(1) −−−−−−−−−−−−−−−−−−−−−−−−−−−− '/////////////////ループ処理///////////////////////// For Each url In urlList wscript.sleep 60000 −−−−−−−−−−−−−−−−−−−−−−−−−−−− を検索したら wscript.sleep 60000の行を削除
If retVal Then work=GetHTMLDocument(out,tuika) ←このサブルーチンはOn Error resume nextがあるためファイル無しでもスルー '//////// Set fs = WScript.CreateObject("Scripting.FileSystemObject") Set su = fs.OpenTextFile(tuika) ←158行目 suStr = su.ReadAll su.Close '///////// End If
'最終行まで全部読み込む Dim arrFileLines() i=0 Set fs=CreateObject("Scripting.FileSystemObject") Set su = fs.OpenTextFile(tuika, ForReading) Do Until su.AtEndOfStream Redim Preserve arrFileLines(i) arrFileLines(i) = su.ReadLine i = i + 1 Loop su.Close
'最終行が長さ0以上の時(EOFでないとき)空行追加 If Len(arrFileLines(Ubound(arrFileLines))) > 0 Then Set su = fs.OpenTextFile(tuika, ForAppending) su.WriteLine su.Close End If