テキストファイル一括入力と連想配列

  Key=Value 形式のデータの扱い



  
Set Fso = CreateObject( "Scripting.FileSystemObject" )
Set Dic = CreateObject( "Scripting.Dictionary" )
'Set Dic = Wscript.CreateObject( "Scripting.Dictionary" ) ' WSH
'Set Dic = Server.CreateObject( "Scripting.Dictionary" ) ' ASP

strPath = "dic.txt"

' テキストファイル一括入力 --> 配列化
Set objHandle = Fso.OpenTextFile( strPath, 1 )
aData = Split( objHandle.ReadAll, vbCrLf )
objHandle.Close

' 関数化する場合は、再読み込みを考慮してクリアしておく
Dic.RemoveAll

' Value 部に = が含まれない事を前提とした処理
For I = 0 to Ubound( aData )-1
	aWork = Split( aData(I), "=" )
	if Ubound(aWork) >= 0 then
		if Trim(aWork(0)) <> "" then
			if Ubound( aWork ) = 1 then
				Dic.Add Trim(aWork(0)), Trim(aWork(1))
			else
				Dic.Add Trim(aWork(0)), ""
			end if
		end if
	end if
Next

' 列挙
aKey = Dic.Keys
For I = 0 To Dic.Count - 1
	Wscript.Echo aKey(I) & ":" & Dic(aKey(I))
Next
  



  dic.txt



  
DataType_0=不明,値無し,adEmpty,DBTYPE_EMPTY,,,,,,
DataType_11=数値,ブール,adBoolean,DBTYPE_BYTES,YESNO,YESNO,BIT,,,
DataType_14=数値,固定精度およびスケールの正確な数値,adDecimal,DBTYPE_DECIMAL,,,,,,

test

DataType_16=数値,1 バイトの符号付き整数,adTinyInt,DBTYPE_I1,,,,TINYINT,,
DataType_17=数値,1 バイトの符号なし整数,adUnsignedTinyInt,DBTYPE_I1,,BYTE,TINYINY,,,
DataType_18=数値,2 バイトの符号なし整数,adUnsignedSmallInt,DBTYPE_I2,,,,,,
DataType_19=数値,4 バイトの符号なし整数,adUnsignedInt,DBTYPE_I4,,,,,,
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ