プロジェクトでIE6上で動く VBScript + JavaScript + HTML のツールを作ってみた。
なんで今更？IE6？
会社の中では未だに頑固にIE6が標準だーって会社は多いのさ。
本当は HTML5 + JavaScript で作りたかったけど仕方ない。
会社のみんなにChromeやFireFoxを強制的にインストールさせるのは面倒だからね。
要件はある固定長インターフェースファイルを使ったテスト用に、
- テキストファイルを別のフォーマットに変えてくれ。(ファイルI/O)
- 要件は流動的に変わる。インクリメンタルにイテレーティブに。
- 実装工数はインフラの空き時間を使って。
この用件ならhttpアクセスで画面はHTMLインターフェースでやるのが適当かなと思った。
ついでに皆標準的に入れてるブラウザはIE6。
ファイル I/O 部位を VBScript に任し、
他の挙動を JavaScript で制御するのが適当か？
以下その場合の注意点
VBScript のファイルI/Oを有効化するにはIE6の設定変更が必要
- メニューバーの【ツール(T)】より【インターネットオプション】を起動します。
- 【セキュリティ】タブを選択し、【レベルのカスタマイズ(C)...】ボタンをクリックします。
- 【スクリプトを実行しても安全だとマークされている ActiveXコントロールのスクリプト実行】を有効にします。
これを画面の最下部に常に表記。
で、まずはFile I/O部のVBScriptコード
注意点は読み込んだ内容をJavaScriptに渡す場合、
配列渡しはうまくいかなかったので、
適当な区切り文字をはさんで渡し、JavaScript側でSpritしたことと、
動的な配列が定義出来なかったのでReDimとPreserveを多様したこと
書き込み
Function FileOutput(FULLPATH,TXT)
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
Set objFile = objFSO.OpenTextFile(FULLPATH, 8, True)
If Err.Number = 0 Then
objFile.Write(TXT & vbcrlf)
objFile.Close
Else
WScript.Echo "file open error: " & Err.Description
End If
Else
WScript.Echo "error: " & Err.Description
End If
Set objFile = Nothing
Set objFSO = Nothing
End function
読み込み
''指定されたパスのファイルを読み取りJavaScriptに渡す。
Function FileInput(FULLPATH)
Dim objFSO, objFile
Dim cnt,max
Dim ret
Dim Arr()
ReDim Arr(10)
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
Set objFile = objFSO.OpenTextFile(FULLPATH, 1, false)
If Err.Number = 0 Then
cnt = 0
max = 10
While (objFile.AtEndOfStream=false)
Arr(cnt) = objFile.ReadLine
cnt = cnt + 1
''cntが配列の配列数に達した時、定義し直して１０配列数を増やす。
if cnt = max then
max = max + 10
''Preserveを入れると配列の中身を壊さずに再定義出来る。
ReDim Preserve Arr(max)
End if
Wend
objFile.Close
Else
WScript.Echo "file open error: " & Err.Description
End If
Else
WScript.Echo "error: " & Err.Description
End If
''区切り文字を使って配列を連結する。
For Each buf in Arr
ret = ret & buf & "区切"
Next
Set objFile = Nothing
Set objFSO = Nothing
FileInput = ret
End function
