FrontPage 新規 編集 検索 一覧 ヘルプ

BBS-雑談/17

vbsで作成したシステムで設定ファイルを読み込む処理について - toshi (2003年10月06日 18時49分02秒)

VBS初心者です。ただ今、VBSファイルでDBにアクセスするシステムを作っています。その際、初期設定などをソースに直接書いているのですが、別ファイルに設定を明記して、VBS内でそのファイルを読み込み値を取得したいと思っています。

ファイルを1行づつ読み込みや、すべて読み込むといった処理した作れず、困っています。何か他に、もっと良いやり方がありましたら、アドバイスお願いできないでしょうか?宜しくお願い致します。

ちょっとアドバイス

> ファイルを1行づつ読み込みや、すべて読み込むといった処理した作れず・・・とのことですが、一行づつ読み込み解読して使うようなプログラムが基本となります。以下はサンプルです。設定ファイルには、キーと値を=で区切った設定値を列記します。読み出しは、ディクショナリーオブジェクトを使い、dic("NAME") などとアクセスできるようになります。

param.txt

 NAME=tuka
 MIN=1000
 MAX=5000

param.vbs

 Option Explicit
 ' param.vbs - 外部設定ファイルを読み込んで利用する
 
 Const DATA_FILE = "param.txt"    ' 設定ファイル
 
 Dim fs, text, line, dic
 
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set text = fs.OpenTextFile(DATA_FILE)
 Set dic = CreateObject("Scripting.Dictionary")
 
 While Not text.AtEndOfLine
     line = Split(text.ReadLine, "=")
     dic.Add Trim(line(0)), Trim(line(1))
 Wend
 
 Dim key
 For Each key In dic.keys
     WScript.Echo key & " :: " & dic(key)
 Next
 
 Set dic = Nothing
 Set text = Nothing
 Set fs = Nothing

{{comment}}

Yesterday Today Total