ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文

  メンテナンス 前画面に戻る

対象スレッド 件名: HTMLのテーブル要素の内容をCSVに出力する
名前: lightbox
処理選択
パスワード

件名 HTMLのテーブル要素の内容をCSVに出力する
名前 lightbox
コメント
@SHOW
table.htm と table.csv は固定です。最近では、ブラウザの開発者ツールで簡単に目的のテーブルの HTML をコピーできるので、このスクリプトと同じフォルダに table.htm を作成して、テーブルの HTML を書き込んで使用します
@END

@DIV
<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>
@END