VBS 从 INI 文件中获取一个节名,只有一个唯一的键名 ADODB.Stream
VBS Get a section name from an INI file with only a unique key name with ADODB.Stream
我想使用 ADODB.Stream 而不是 scripting.FileSystemObject 和 Charset "_autodetect_all"
我的 ini 文件:
...
...
...
[Area.104]
Title=Central North America
Local=Scenery\NAMC Layer=104
Active=TRUE
Required=FALSE
[Area.105]
Local=Scenery\NAME
Layer=105
Active=TRUE
Required=FALSE
Title=Eastern North America
[Area.106]
Local=Scenery\NAMW
Layer=106
Title=Western North America
Active=TRUE
Required=FALSE
...
...
...
如何从唯一键 Title=Eastern North 获取区域名称 [Area.105]
美国 ???键是随机排列的。谢谢
这是我从另一个网站得到的答案(非常感谢 omen999)
此代码与 ADODB 完美配合
Dim TitleName
TitleName = Array("Central North America")
Set IniStream=CreateObject("ADODB.Stream")
IniStream.Open
Inistream.Charset="_autodetect_all"
IniStream.LoadFromFile "Area.ini"
IniFile=IniStream.ReadText
PosEnd=InStrRev(IniFile,"]",InStrRev(IniFile,TitleName(0)))
PosStart=InStrRev(IniFile,"[",PosEnd)+1
Wscript.Echo Mid(IniFile,PosStart,PosEnd-PosStart)
IniStream.Close
我想使用 ADODB.Stream 而不是 scripting.FileSystemObject 和 Charset "_autodetect_all"
我的 ini 文件:
...
...
...
[Area.104]
Title=Central North America
Local=Scenery\NAMC Layer=104
Active=TRUE
Required=FALSE
[Area.105]
Local=Scenery\NAME
Layer=105
Active=TRUE
Required=FALSE
Title=Eastern North America
[Area.106]
Local=Scenery\NAMW
Layer=106
Title=Western North America
Active=TRUE
Required=FALSE
...
...
...
如何从唯一键 Title=Eastern North 获取区域名称 [Area.105] 美国 ???键是随机排列的。谢谢
这是我从另一个网站得到的答案(非常感谢 omen999)
此代码与 ADODB 完美配合
Dim TitleName
TitleName = Array("Central North America")
Set IniStream=CreateObject("ADODB.Stream")
IniStream.Open
Inistream.Charset="_autodetect_all"
IniStream.LoadFromFile "Area.ini"
IniFile=IniStream.ReadText
PosEnd=InStrRev(IniFile,"]",InStrRev(IniFile,TitleName(0)))
PosStart=InStrRev(IniFile,"[",PosEnd)+1
Wscript.Echo Mid(IniFile,PosStart,PosEnd-PosStart)
IniStream.Close