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

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

TargetFile = InputBox("検索対象のファイル名を入力して下さい","検索対象ファイル名入力","subject.txt")
SearchWord = InputBox("検索ワードを入力して下さい","検索語句入力","台湾")
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 
		    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