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