VBScriptで、ファイルから任意の行のみ取り出す方法について

質問

VBScriptにて、あるファイル内を1行ずつ順番に取り出しながら、
途中の数行を別のファイルに書き出したいのですが、方法が分からず
悩んでいます。

--------------------------------------------------------------
set objFS = CreateObject("Scripting.FileSystemObject")
set objReadText = objFS.OpenTextFile("C:\read.log")
set objWriteText = objFS.CreateTextFile("C:\write.log")

count = 1
Do Until objReadText.AtEndOfStream

If count >3 And count < 8 Then

strLine = objReadText.ReadLIne
objWriteText.WriteLine(strLine)
ElseIf count = 8 Then
Exit Do
End If

count = count + 1
Loop

objReadText.Close
objWriteText.Close
--------------------------------------------------------------

上記にて、例えばread.logの4行目から7行目だけをwrite.logに書き出したいのですが、
想定した途中の行だけを別ファイルに書き出す事が出来ません。
どなたかアドバイスを頂けないでしょうか。

回答No.1

bin-chan · ベストアンサー

set objFS = CreateObject("Scripting.FileSystemObject")
set objReadText = objFS.OpenTextFile("C:\read.log")
set objWriteText = objFS.CreateTextFile("C:\write.log")

count = 0
Do Until objReadText.AtEndOfStream
　strLine = objReadText.ReadLIne
　count = count + 1

　If count >3 And count < 8 Then
　　objWriteText.WriteLine(strLine)
　End If
　If count = 8 Then
　　Exit Do
　End If

Loop

objReadText.Close
objWriteText.Close

お礼

有難う御座いました。
間違いが見つけられずモヤモヤしていましたが
すっきりしました。