Powershell キーワード検索して5行下を置換

Question

Powershell 初心者で手探りで勉強しながら作っています

フォルダ内の複数のテキストファイル内の
あるキーワードを検索してそのキーワードから5行下に
検索したものとは別のキーワードがある場合は置換、
ない場合は何もしないを繰り返して
元のファイル名と違う名前でそれぞれ出力ということは出来ますか？

Select-string で検索してreplaceで置換すれば出来そうな気は
するのですが、上手くいかないので力を貸して頂ければと思います。

Comments

[Zuishin]

できますが、何のためにそれをするんですか？

[HAL0012]

5行下のものだけを指定して置換をすると
置換をしたくないところもしてしまうので、
近くの別のキーワードを検索してから置換出来ればと思った感じです

Answer 1

次のスクリプトを untitled.ps1 として保存してください。

[CmdletBinding()]
Param (
	[Parameter(
		Mandatory = $true,
		Position = 0,
		ValueFromPipelineByPropertyName = $true
	)]
	[regex]$FirstPattern,

	[Parameter(
		Mandatory = $true,
		Position = 1,
		ValueFromPipelineByPropertyName = $true
	)]
	[regex]$SecondPattern,
	
	[Parameter(
		Mandatory = $true,
		Position = 2,
		ValueFromPipelineByPropertyName = $true
	)]
	[string]$Replacement,
	
	[Parameter(
		Mandatory = $false,
		Position = 3,
		ValueFromPipelineByPropertyName = $true
	)]
	[ValidateRange(1, [int]::MaxValue)]
	[int]$Count = 5,

	[Parameter(
		Mandatory = $true,
		Position = 4,
		ValueFromPipelineByPropertyName = $true,
		ValueFromPipeline = $true,
		ValueFromRemainingArguments = $true
	)]
	[string[]]$InputObject
)
Begin {
	$phase = 0
}
Process {
	if ($phase -eq $Count) {
		$InputObject -replace $SecondPattern, $Replacement
	} else {
		$InputObject
	}
	if ($phase -ne 0 -or $_ -match $FirstPattern) {
		$phase++
	}
}

次にテスト用のデータを作ります。

1..10 | Foreach-Object { "foo","bar" } > old.txt

old.txt を開き、foo bar が交互に 10 回並んでいることを確かめてください。
問題無ければ置換します。

Get-Content .\old.txt | .\untitled.ps1 bar . x

置換結果は画面に表示されます。
7 行目の foo が xxx に置換されているはずです。

.\untitled.ps1 bar . x は三つの引数 bar . x を取ります。
最初の bar は最初に発見する文字列です。
これが二行目にあるので、実際に置換するのはその五行後の七行目ということになります。
. は正規表現で任意の一文字の意味です。これを x に置換します。
この結果、七行目の foo が xxx になります。
これを新しいファイルに保存するには次のようにします。

Get-Content .\old.txt | .\untitled.ps1 bar . x > new.txt

一番目の引数と二番目の引数が正規表現であることに気を付けてください。

追記

二度の仕様追加の要件を満たすもののはずです。これ以降、仕様の追加があるのであれば、この質問は解決済みにして自分で実装してください。それでどうしてもわからなければまた改めて新しい質問を立ててください。

[CmdletBinding()]
Param (
	[Parameter(
		Mandatory = $true,
		Position = 0,
		ValueFromPipelineByPropertyName = $true
	)]
	[regex]$FirstPattern,

	[Parameter(
		Mandatory = $true,
		Position = 1,
		ValueFromPipelineByPropertyName = $true
	)]
	[regex]$SecondPattern,
	
	[Parameter(
		Mandatory = $true,
		Position = 2,
		ValueFromPipelineByPropertyName = $true
	)]
	[string]$Replacement,
	
	[Parameter(
		Mandatory = $false,
		Position = 3,
		ValueFromPipelineByPropertyName = $true
	)]
	[ValidateRange(0, [int]::MaxValue)]
	[int]$Count = 5,

	[Parameter(
		Mandatory = $true,
		Position = 4,
		ValueFromPipelineByPropertyName = $true,
		ValueFromPipeline = $true,
		ValueFromRemainingArguments = $true
	)]
	[string[]]$InputObject
)
Begin {
	$replace = @()
	$line = 1
}
Process {
	if ($InputObject -match $FirstPattern) {
		$replace += ($line + $Count)
	}
	if ($replace -contains $line) {
		$InputObject -replace $SecondPattern, $Replacement
		$replace = $replace -gt $line
	} else {
		$InputObject
	}
	$line++
}

Comments

[HAL0012]

Zuishinさん
ありがとうございます。

概ね目的のものが出来たのですが3つほど質問があります。
1 こちらで用意したファイルを置換した際ファイルに改行が入っており
「引数がないため〜」とエラーが出てファイルは出力され置換もされたのですが改行が全部消えてしまいました。回避する方法はありますか？
2 ファイル内に複数の1つ目の引数がある場合それぞれの5行下の2つ目の引数全てを置換するにはどうすればよいですか？
3 今回5行下でお願いしたのですが置換対象の行数を変えたい場合はどこを修正すればよいですか？

よろしくお願いします。

[Zuishin]

1. こちらで用意したファイルではうまくいっています。そちらで用意したファイルがわからないのでわかりません。もしかしたら改行コードが Mac 用のものだとうまくいかないかもしれません。その場合は Get-Content の引数 Delimiter を使ってください。
2. 複数回行ってください。パイプが使えます。Get-Content .\old.txt | .\untitled.ps1 bar . x | .\untitled.ps1 foo . y > new.txt
3. 引数 Count を用意しています。untitled -Count 6 で六行下になります。

[HAL0012]

1.3については解決出来ましたありがとうござました
2なのですが、今の状態だと2行目のbarを検索して7行目のfooを置換で終わるので、繰り返しで4行目のbarを検索して9行目のfooを置換、6行目のbarを検索して。。。
というようにファイル内のbarを全て検索して置換を実施したいのですが出来ますか？

[Zuishin]

そうなるとスクリプトを書き換えなければいけませんが、もともとの質問とは違ってきています。

[HAL0012]

作成意図を上手く伝えられなくて申し訳ありませんでした

[Zuishin]

配列は使えますか？
具体的には要素の取得、追加、削除はできますか？
コードで答えてください。

[Zuishin]

自分でやってもらおうと思ったけど、こちらでも試してみたら少しハードルが高いような気がしたのでこちらで作り、追記しました。

[HAL0012]

すいません
ありがとうござました。