コードをテキストドキュメントにコピーして貼り付けて保存し、ファイルの接尾辞名をHTAに変更し、ダブルクリックして実行します。
コードは次のとおりです。
<！ - /////////////// =====
プログラム名：消費記録Ver1.1（20070808-20070811）.hta
使用の手順：コードをテキストドキュメントにコピーして貼り付け、保存し、ファイルの接尾辞名をHTAに変更し、ダブルクリックして実行します。
著者の説明：Youxi01 ,,、著作権なし、海賊版バージョンへようこそ!! //////////->
<！ - //////////////->
<title>消費録音プログラム</title>
<Meta http-equiv = "content-type" content = "text/html; charset = gb2312"/>
<！ - ///////// hta logo ////-->
<HTA：アプリケーション
scroll = "no"
キャプション= "はい"
sysmenu = "yes"/>
<！ - ////////////->
<スクリプト言語= "vbscript">
TotalMoney = 0 '合計消費
index = -1 'チェックボックス制御ID番号を初期化します。
フラグ= 0 'ファイルが変更されたかどうかを定義するフラグ
fso = createObject（ "Scripting.filesystemObject"）
'////////////////////構成ファイルを読んで、独自のサイズと場所を定義する//////
sub window_onload
そうでない場合（fso.fileexists（ "Consume.ini"））、構成ファイルがない場合に作成します。
fso.createTextFile（ "Consume.ini"）。閉じます
ifを終了します
window.resizeto 638,495 '独自のサイズと位置を設定します。
Window.Moveto 200,100
Addrow 0、 "Hoho"、 "2007-1-1"、 "火曜日" '最初に行を追加します。自分で理解することすらできませんが、とにかくバグに対処するためにそれを使用しています。
document.all.NamedItem（ "myTable"）。rows（1）.style.display = "none" 'この行の設定は見えません。
Addrow 0、 "Hoho"、 "2007-1-1"、 "火曜日" '別の行を追加します。自分で理解することすらできませんが、とにかくバグに対処するためにそれを使用しています。
document.all.NamedItem（ "myTable"）。rows（2）.style.display = "none" 'この行は見えません。
readfile（ "Consume.ini"）
End Sub
'////////////////////////////////
function readfile（filename）
file = fso.opentextfile（filename、1,1）を設定します
while file.Atendofline <> true 'ファイルの最後までファイルを読む
str = split（file.readline、 "＃"） '＃flagsによって行を分割します（合計4つのそのようなフラグがあります）
addrow str（1）、str（2）、str（3）、str（4） '5つのセルを追加します。
ループ
エンド関数
'///////////////////////
関数addrow（cnum、ctype、cdate、cday）
index = index+1 'シリアル番号が追加されます
objtable = document.all.nameditem（ "myTable"） 'idに基づいてオブジェクトテーブルを取得します
newRow = objtable.insertrow（） '' insient inessient set set lineを挿入します
newRow.ClassName = "row_add" 'ラインのスタイルを設定します。
newRow.OnMouseOver = getRef（ "Change_bgcolor"）
newRow.OnMouseout = getRef（ "back_bgcolor"）
newRow.OnClick = getRef（ "Chooseobj"）
var = "＃"＆cnum＆ "＃"＆ctype＆ "＃"＆cdate＆ "＃"＆cday
str = split（var、 "＃"）
str（0）= "<入力タイプ=チェックボックスID = 'DelCheck'＆Index>"
i = 0〜4の場合
newcell = newRow.InsertCell（） 'セルを挿入し、セルの値を設定します。
newcell.innerhtml = str（i）
次
TotalMoney = TotalMoney+CLNG（CNUM） 'Total消費量の値を設定し、ディスプレイを定義します。
Consumption.innerhtml = "合計消費："＆TotalMoney＆ "Yuan"