代码之家  ›  专栏  ›  技术社区  ›  Erik Bender

VBS使用ADODB从INI文件中获取节名,该文件只有一个唯一的键名。流动

  •  1
  • Erik Bender  · 技术社区  · 8 年前

    我想从INI文件中找到一个节名,该文件只有一个唯一的键名,使用 ADODB。流动

    我的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 
    
    ... 
    ... 
    ...
    

    美国钥匙按随机顺序排列。谢谢

    1 回复  |  直到 8 年前
        1
  •  2
  •   Erik Bender    8 年前

    这是我从另一个网站得到的答案(非常感谢)

    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