AAAAAAA

Option Explicit

Dim objFileSys
Dim strScriptPath
Dim strReadFile
Dim strWriteFile
Dim objReadStream
Dim objWriteStream
Dim sText
Dim iPos
Dim sDataNew
Dim sDataOld
Dim KEYWARD

KEYWARD = "E:\copy\"

Set objFileSys = CreateObject("Scripting.FileSystemObject")

strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
strReadFile = objFileSys.BuildPath(strScriptPath,"aa.txt")
strWriteFile = objFileSys.BuildPath(strScriptPath,"WriteData.txt")

Set objReadStream = objFileSys.OpenTextFile(strReadFile, 1)
Set objWriteStream = objFileSys.OpenTextFile(strWriteFile, 2, True)

iPos = 0
sDataNew = ""
sDataOld = ""

Do Until objReadStream.AtEndOfStream = True

sText = objReadStream.ReadLine

'＃文字検索し、検索文字以降を出力対象にする
iPos = InStr(sText,KEYWARD)
If iPos <> 0 Then
sDataNew = Mid(sText,iPos)
'sDataNew = iPos
'＃出力対象行の比較をし、内容が異なれば出力する　　
If sDataNew <> sDataOld Then
objWriteStream.WriteLine sDataNew
WScript.echo sDataNew
End If

sDataOld = sDataNew
End If
Loop

objReadStream.Close
objWriteStream.Close

Set objReadStream = Nothing
Set objWriteStream = Nothing
Set objFileSys = Nothing