table.htm と table.csv は固定です。最近では、ブラウザの開発者ツールで簡単に目的のテーブルの HTML をコピーできるので、このスクリプトと同じフォルダに table.htm を作成して、テーブルの HTML を書き込んで使用します 拡張子:txtvbswsfjsphpjavahtmlutf8sjis <JOB> <COMMENT> ************************************************************ WSH 実行スケルトン ************************************************************ </COMMENT> <COMMENT> ************************************************************ 外部スクリプト定義 ************************************************************ </COMMENT> <SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"> </SCRIPT> <SCRIPT language=VBScript> ' *********************************************************** ' 処理開始 ' *********************************************************** Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" ) Call laylaLoadFunction( "baseFunction.vbs" ) Call laylaLoadFunction( "toolFunction.vbs" ) Call LoadIEDocument( ScriptDir & "\table.htm" ) Set node = IEDocument.document.getElementsByTagName("TABLE")(0) Set nodeList = node.getElementsByTagName("TR") strText = "" For Each row In nodeList Set colNodeList = row.getElementsByTagName("TD") strLine = "" For Each col In colNodeList if strLine <> "" then strLine = strLine & "," end if strWork = col.innerText strWork = Replace( strWork, vbCrLf, "\n" ) strWork = Replace( strWork, vbLf, "\n" ) strLine = strLine & strWork Next strText = strText & strLine & vbCrLf Next Call PutTextFile( ScriptDir & "\table.csv", strText ) IEDocument.Quit Wscript.Echo "処理が終了しました" </SCRIPT> </JOB>
table.htm と table.csv は固定です。最近では、ブラウザの開発者ツールで簡単に目的のテーブルの HTML をコピーできるので、このスクリプトと同じフォルダに table.htm を作成して、テーブルの HTML を書き込んで使用します
<JOB> <COMMENT> ************************************************************ WSH 実行スケルトン ************************************************************ </COMMENT> <COMMENT> ************************************************************ 外部スクリプト定義 ************************************************************ </COMMENT> <SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"> </SCRIPT> <SCRIPT language=VBScript> ' *********************************************************** ' 処理開始 ' *********************************************************** Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" ) Call laylaLoadFunction( "baseFunction.vbs" ) Call laylaLoadFunction( "toolFunction.vbs" ) Call LoadIEDocument( ScriptDir & "\table.htm" ) Set node = IEDocument.document.getElementsByTagName("TABLE")(0) Set nodeList = node.getElementsByTagName("TR") strText = "" For Each row In nodeList Set colNodeList = row.getElementsByTagName("TD") strLine = "" For Each col In colNodeList if strLine <> "" then strLine = strLine & "," end if strWork = col.innerText strWork = Replace( strWork, vbCrLf, "\n" ) strWork = Replace( strWork, vbLf, "\n" ) strLine = strLine & strWork Next strText = strText & strLine & vbCrLf Next Call PutTextFile( ScriptDir & "\table.csv", strText ) IEDocument.Quit Wscript.Echo "処理が終了しました" </SCRIPT> </JOB>