「20090416_006_002_02」の編集履歴(バックアップ)一覧はこちら
追加された行は緑色になります。
削除された行は赤色になります。
<p><br />
===<br /><br /><br />
===</p>
<p><br />
===<br /><br />
txt_File02 = "file002.txt"<br />
txt_File03 = "file003.txt"</p>
<p>s_txt001 = "<a href="http://www.yourfilehost.com/">http://www.yourfilehost.com/</a>"<br />
s_txt002 = "http://"</p>
<p>s_len_txt001 = len(s_txt001)<br />
s_len_txt002 = len(s_txt002)</p>
<p>WScript.Echo s_len_txt001 & vbCrLf<br />
WScript.Echo s_len_txt002 & vbCrLf</p>
<p>Set objFso02 = CreateObject("Scripting.FileSystemObject")<br />
Set objFile02 = objFso02.OpenTextFile("C:\Documents and Settings\parao\My
Documents\w\" & txt_File02, 1, False)</p>
<p>Set objFso03 = CreateObject("Scripting.FileSystemObject")<br />
Set objFile03 = objFso03.OpenTextFile("C:\Documents and Settings\parao\My
Documents\w\" & txt_File03, 2, True)</p>
<p> flg_01 = "0"<br />
'WScript.Echo "flg_01 = " & flg_01 & vbCrLf<br />
'WScript.Echo flg_01 & vbCrLf</p>
<p> Do Until objFile02.AtEndOfStream</p>
<p> s01 = objFile02.ReadLine</p>
<p> 'objFile03.WriteLine s01</p>
<p>' if mid(s01,1,s_len_txt001 - 1) = s_txt001 then<br />
if mid(s01,1,28) = s_txt001 then<br />
flg_01 = "1"<br />
'objFile03.WriteLine s01<br />
'WScript.Echo flg_01 & vbCrLf<br />
end if</p>
<p> if flg_01 = "1" and mid(s01,1,7) = s_txt002 then<br />
objFile03.WriteLine s01<br />
end if</p>
<p> Loop<br />
flg_01 = "0"</p>
<p><br />
objFile02.Close<br />
Set objFile02 = Nothing<br />
Set objFso02 = Nothing</p>
<p>objFile03.Close<br />
Set objFile03 = Nothing<br />
Set objFso03 = Nothing</p>
<p> </p>
<p><br />
===</p>