===txt_File02 = "file002.txt"txt_File03 = "file003.txt"
s_txt001 = "http://www.yourfilehost.com/"s_txt002 = "http://"
s_len_txt001 = len(s_txt001)s_len_txt002 = len(s_txt002)
WScript.Echo s_len_txt001 & vbCrLfWScript.Echo s_len_txt002 & vbCrLf
Set objFso02 = CreateObject("Scripting.FileSystemObject")Set objFile02 = objFso02.OpenTextFile("C:\Documents and Settings\parao\My Documents\w\" & txt_File02, 1, False)
Set objFso03 = CreateObject("Scripting.FileSystemObject")Set objFile03 = objFso03.OpenTextFile("C:\Documents and Settings\parao\My Documents\w\" & txt_File03, 2, True)
flg_01 = "0" 'WScript.Echo "flg_01 = " & flg_01 & vbCrLf 'WScript.Echo flg_01 & vbCrLf
Do Until objFile02.AtEndOfStream
's01 = objFile02.ReadLine
objFile03.WriteLine s01
' if mid(s01,1,s_len_txt001 - 1) = s_txt001 then if mid(s01,1,28) = s_txt001 then flg_01 = "1" 'objFile03.WriteLine s01 'WScript.Echo flg_01 & vbCrLf end if
if flg_01 = "1" and mid(s01,1,7) = s_txt002 then objFile03.WriteLine s01 end if
Loop flg_01 = "0"
objFile02.CloseSet objFile02 = NothingSet objFso02 = Nothing
objFile03.CloseSet objFile03 = NothingSet objFso03 = Nothing
objFile03.WriteLine "aaa " & objFile02.ReadLine
Loop
===
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。
下から選んでください: