WSHでテキストファイルの修正

質問

WSHであるファルダしたのテキストファイルの修正をしたいです。
テキストファイル中に
文字「データファイルを送付します」が有る行の後の行の内容を削除したいです。
WSHサンプルが欲しいです。
お願いします。

回答No.2

BLUEPIXY · ベストアンサー

'現在のフォルダでテキストファイルの中身を
'文字「データファイルを送付します」が有る行の後の行の内容を削除する
Dim fso, wsho, folder, file
Dim tempFile, outFile,readFile
Dim strLine, Flag, fileName, checkStr

checkStr = "データファイルを送付します" '行に含まれているか調べる文字列
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set wsho = WScript.CreateObject("WScript.Shell")
Set folder = fso.GetFolder(".")
tempFile = fso.GetTempName
For Each file in folder.files
if UCase(right(file.Name,4)) = ".TXT" then '拡張子が.txt
Set outFile = folder.CreateTextFile(tempFile, true) '作業ファイルを作る
Set readFile = file.OpenAsTextStream(1)
Flag = false
Do until readFile.AtEndOfStream
strLine = readFile.ReadLine '一行読み出し
outFile.WriteLine(strLine)
if instr(strLine, checkStr) > 0 then '指定した文字が見つかった
Exit Do '以後の部分は書き出さない
end if
loop
readFile.Close
outFile.Close
fileName = file.Name
file.Delete
Set file=fso.GetFile(tempFile)
file.Name=fileName
end if
next

お礼

いつも教えていただき、
心より感謝いたします。

回答No.1

GuruGuru22

>WSHサンプルが欲しいです。
とおっしゃっていますが、サンプルなら既に
回答してもらってませんか。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1243140
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1246720
それらを参考にすれば、よいのではないですか。

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1243140,http://oshiete1.goo.ne.jp/kotaeru.php3?q=1246720

お礼

ご返事ありがとうございます。
毎回の内容は違いますから、
頭の整理ができないです。
融通が利かない頭ですよ。
一目で見ると同じかもしれない・・・