【Grep】複数ファイル文字列検索ソフト【置換】

テキストファイルを扱う人には必須のGrepツールを語りましょう。

Devas，JGREP2，みやぐれっぷ，Googleデスクトップ，秀丸，EmEditor7，サクラエディタで
色々試してみた末に、私が辿り着いた結論・・・それは以下の４行をバッチファイルとして
テキストエディタでWindowsのSendToフォルダに保存する事だった。
(Win95/98/Me/NT/2000/XP共通。引数はフォルダのみ指定可。引数省略時はカレントフォルダが用いられる)
↓

if "%OS%"=="Windows_NT" if "%~1"=="" START "NT系" "C:\Program Files\sakura\sakura.exe" -GREPMODE -GREPDLG -GOPT=SRP2 -GCODE=99 -GFILE="*.*" -GFOLDER="."
if "%OS%"=="Windows_NT" if not "%~1"=="" START "NT系" "C:\Program Files\sakura\sakura.exe" -GREPMODE -GREPDLG -GOPT=SRP2 -GCODE=99 -GFILE="*.*" -GFOLDER="%~1"
if not "%OS%"=="Windows_NT" if "%1"=="" START "C:\Program Files\sakura\sakura.exe" -GREPMODE -GREPDLG -GOPT=SRP2 -GCODE=99 -GFILE="*.*" -GFOLDER="."
if not "%OS%"=="Windows_NT" if not "%1"=="" START "C:\Program Files\sakura\sakura.exe" -GREPMODE -GREPDLG -GOPT=SRP2 -GCODE=99 -GFILE="*.*" -GFOLDER="%1"

ちなみに>415と同じ事をバッチファイルの代わりにVBScriptファイルで実現しようとすると、こうなる。
↓

Option Explicit
Dim WshShell,FSO,corArgs,strCi,intRet
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set corArgs = WScript.Arguments
strCi = Chr(34) & "C:\Program Files\sakura\sakura.exe" & Chr(34) & " -GREPMODE -GREPDLG -GOPT=SRP2 -GCODE=99 -GFILE=" & Chr(34) & "*.*" & Chr(34) & " -GFOLDER=" & Chr(34)
If corArgs.Count > 0 Then
strCi = strCi & FSO.GetAbsolutePathName(corArgs(0)) & Chr(34)
Else
strCi = strCi & FSO.GetAbsolutePathName(".") & Chr(34)
End If
intRet = WshShell.Run(strCi , 1, true)
Set FSO = Nothing : Set corArgs = Nothing : Set WshShell = Nothing
WScript.Quit(intRet)