VBS从INI文件中获取一个部分名称,其中只有一个唯一的密钥名称和ADODB.Stream

时间:2017-09-22 12:57:50

标签: vbscript adodb ini

我想从INI文件中找到一个部分名称,只使用 ADODB.Stream 而不是使用Charset“_autodetect_all”编写脚本.FileSystemObject的唯一键名

我的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] 美国???密钥是随机顺序的。感谢

1 个答案:

答案 0 :(得分:2)

以下是我从其他网站获得的答案(非常感谢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