20090416_006_002_02

「20090416_006_002_02」の編集履歴(バックアップ)一覧はこちら

20090416_006_002_02」(2009/04/16 (木) 18:26:19) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

<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 &amp; vbCrLf<br /> WScript.Echo s_len_txt002 &amp; vbCrLf</p> <p>Set objFso02 = CreateObject("Scripting.FileSystemObject")<br /> Set objFile02 = objFso02.OpenTextFile("C:\Documents and Settings\parao\My Documents\w\" &amp; txt_File02, 1, False)</p> <p>Set objFso03 = CreateObject("Scripting.FileSystemObject")<br /> Set objFile03 = objFso03.OpenTextFile("C:\Documents and Settings\parao\My Documents\w\" &amp; txt_File03, 2, True)</p> <p>    flg_01 = "0"<br />     'WScript.Echo "flg_01 = " &amp; flg_01 &amp; vbCrLf<br />     'WScript.Echo flg_01 &amp; 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 &amp; 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>

表示オプション

横に並べて表示:
変化行の前後のみ表示:
ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。