20090416_006_002

===

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 & vbCrLf
WScript.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.Close
Set objFile02 = Nothing
Set objFso02 = Nothing

objFile03.Close
Set objFile03 = Nothing
Set objFso03 = Nothing

===



txt_File02 = "file002.txt"
txt_File03 = "file003.txt"

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)

    Do Until objFile02.AtEndOfStream

     objFile03.WriteLine "aaa " & objFile02.ReadLine

    Loop

objFile02.Close
Set objFile02 = Nothing
Set objFso02 = Nothing

objFile03.Close
Set objFile03 = Nothing
Set objFso03 = Nothing

===