htmlのクラス
VBScript をOO風に書いてみた。とりあえず、下のようなテスト用のwsfファイルを先に作って
Dim objRS
Dim strTEMP
Set objRS = New html
strTEMP = "これはHTMLクラスのテストです"
objRS.setBody(strTEMP)
objRS.setHTMLElements
objRS.showALL
*cript>
その後に、下のhtml.classを書いてこのwsf実行したら意図していた通りにできた。なお、ブログ本文中にスクリプトタグ書くとエラーになるからsの文字をアスタリスクに変更
html.classの中身
Option Explicit
Class html
Private m_strHTML 'HTML全体を格納
Private m_strHEAD
Private m_strBody
Private m_strFooter
Private Sub Class_Initialize
m_strHEAD = "抽出結果 " & vbCrLf &_
"" & vbCrLf &_
""
m_strFooter = "