'テキスト中の検索ワードがある行を抽出して書き出すwsh
'使用は自己責任でお願いします
' 　　　　　　　　　　　　　　　http://www.geocities.jp/mirrorhenkan/
'
'[更新履歴]
'2007/10/31 作成
'2007/11/01 正規表現版追加

Set fs = WScript.CreateObject("Scripting.FileSy" & "stemObject")

TargetFile = InputBox("検索対象のファイル名を入力して下さい","検索対象ファイル名入力","subject.txt")
SearchWord = InputBox("検索ワードを入力して下さい" & vbCrLf & _
					"語句には正規表現も使えます" & vbCrLf & vbCrLf & _
					"例：「ブーン」「ようです」「そうです」「様です」のどれかにマッチさせたい場合　→　『ブーン|(?:よう|様|そう)です』" & vbCrLf & vbCrLf & _
					"","検索語句入力","台湾")
SaveFile = InputBox("検索結果一覧のファイル名を入力して下さい","検索結果ファイル名入力","result.txt")

fs.CreateTextFile SaveFile

kensaku

Function kensaku
b=0
c=0
	Set f = fs.OpenTextFile(TargetFile)
		Do Until f.AtEndOfStream
		    l = f.ReadLine
'		    If InStr(l, SearchWord) <> 0 then 
			Set re2 = New RegExp 
			re2.Pattern=".*" & SearchWord & ".*"
			retVal = re2.Test(l)

			If retVal Then

		    tuiki(l & vbCrLf)
		    c = c + 1
		    End If
		  b = b + 1
		Loop
	f.Close
WScript.Echo b & "件中　" & c & "件ヒットしました。" & vbCrLf & "また、検索結果を" & SaveFile & "に出力しました。" & vbCrLf & "終了します。"
End Function


Function tuiki(s)
	Set abc = fs.OpenTextFile(SaveFile, 8, False) '8=ForAppending, False=noCreate
	abc.Write s   '改行コード入らない。
	abc.Close
End Function