[问题求助] [已解决]VBS如何读取unicode编码的inf文件里等号后面的内容

yuanyannian

求助---VBS如何读取 inf 文件等号后面的内容 并赋给变量

问题描述：还是处理 unicode 格式的 inf 文件，比如：

  aaa.inf
   [Strings]
   BIOS = "abcd-abcd"
   TIDS  = ABCD

用 vbs （也要求是 unicode 格式）读取 BIOS 及 TIDS 等号后面的内容，并分别赋给变量 str1 和 str2

谢谢！

yuanyannian

回复 1# yuanyannian

是不是这个问题太幼稚？

yuanyannian

回复 3# yu2n

谢谢，试了一下，但读不出啊。

yuanyannian

回复 3# yu2n

上传需要处理的原文件，请老师给看一下。
文件大点，给个地址：

HIVESFT.rar

http://pan.baidu.com/s/1mgl24dy

yuanyannian

回复 7# yu2n

再次感谢了。
这样可以了，但问题又来了：就思密达而言，将读出的变量写入注册表，都成了“?????????”，请老师给看一下。
另外，不能读如：STANGDARD_NAME、KLT_63 等格式的变量。

yuanyannian

回复 9# yu2n

直接在 vbs 中：
    Set Reg=WScript.CreateObject("WScript.Shell")
    Reg.RegWrite "HKCU\yyn\Desktop\Wallpaper",strBIOS,"REG_SZ"
   
如果用 .reg ，需要用vbs先写入到 .reg 文件，而且必须是 unicode 格式，这个我不会，老师可否帮一帮？

yuanyannian

回复 11# yu2n

抱歉，看不太懂，请帮写一个代码？

yuanyannian

回复 13# yu2n

抱歉，我是真的不会，前一阵子还在论坛中求助过，是可以创建一个文件，但只能全新覆盖写入，不能追加写入。
请老师帮忙，谢谢！

yuanyannian

回复 16# apang

谢谢 apang 老师出手，读、写均正常。
不过，我的需求是：只读出 =  后面的内容作为变量，写入注册表中的路径、键值是需要自定义的，比如 HKCU\yyn\Desktop, yyn(键值), BIOS 或 NDIS (还有很多其它的) = 后面的内容(数据), 或者如注册表文件：

[HKEY_CURRENT_USER\yyn\Desktop]
"yyn1"="대한민국 표준시"
"yyn2"="한국어"

或：
[HKEY_CURRENT_USER\yyn\System\Test]
"yyn3"="한국어 입력 시스템 (IME 2000)"
"yyn4"="한"

或者将读出的数据分别写成注册表文件，再自行导入注册表也可。比如写成注册表文件 (unicode 格式)：

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\yyn\Desktop]
"yyn1"="대한민국 표준시"
"yyn2"="한국어"

[HKEY_CURRENT_USER\yyn\System\Test]
"yyn3"="한국어 입력 시스템 (IME 2000)"
"yyn4"="한"

有劳 apang 老师了。

yuanyannian

回复 18# apang

是这样吗？

Dim fso, txt, re, m, regPath, regValue, regData
Set fso = CreateObject("Scripting.FileSystemObject")
txt = fso.OpenTextFile("HIVESFT.INF", 1, false, -1).ReadAll
txt = txt & vbCrLf & "["

Set re = New RegExp
re.Pattern = "^ *\[Strings] *$[\s\S]*?(?=^ *\[)"
re.IgnoreCase = true
re.Global = true
re.MultiLine = true
If Not re.Test(txt) Then WScript.Quit
txt = re.Execute(txt)(0)
re.Pattern = "^ *(BIOS|NDIS|NETWORK_DDE|NETWORK_DDE_DESCRIPTION|NETWORK_DDE_DSDM) *= *(.+)"
For Each m in re.Execute(txt)
    regData = Replace(m.SubMatches(1), chr(34), "")
    If UCase(m.SubMatches(0)) = "BIOS" Then
        regPath = "yyn\Desktop"
        regValue = "yyn1"
    End If
    If UCase(m.SubMatches(0)) = "NDIS" Then
        regPath = "yyn\Desktop\yyn"
        regValue = "yyn2"
    End If
    If UCase(m.SubMatches(0)) = "NETWORK_DDE" Then
        regPath = "yyn\Test"
        regValue = "yyn3"
    End If
    If UCase(m.SubMatches(0)) = "NETWORK_DDE_DESCRIPTION" Then
        regPath = "yyn\Test\yyn"
        regValue = "yyn4"
    End If
    If UCase(m.SubMatches(0)) = "NETWORK_DDE_DSDM" Then
        regPath = "yyn\yyn\yyn"
        regValue = "yyn5"
    End If
    WriteToRegValue regPath, regValue, regData
Next

Sub WriteToRegValue(ByVal regPath, ByVal regValue, ByVal regData)
    Const HKCU = &H80000001
    Dim regWMI
    Set regWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\Default:StdRegProv")
    regWMI.CreateKey HKCU, regPath1
    regWMI.SetStringValue HKCU, regPath, regValue, regData
End Sub
复制代码

但提示：

另外，在 re.Pattern = "^ *(BIOS|NDIS|NETWORK_DDE|NETWORK_DDE_DESCRIPTION|NETWORK_DDE_DSDM) *= *(.+)" 中，如果需要几十个变量，该如何处理？

yuanyannian

提示现象是我把 regWMI.CreateKey HKCU, regPath1 搞错了。

另外，我把 HKCU 改成 HKLM ，把  Const HKCU = &H80000001 改为     Const HKLM = &H80000002，失败。

yuanyannian

这样也好，19楼的代码不能写入 HKLM 应该是对该根键没有权限造成的，路径写入 HKLM 的子键中是则可以。
再次谢谢 apang 老师。

再请问，如果不需要搜索 [strings], 去掉那些代码？

yuanyannian

回复 23# apang

有道理，那我采用写入注册表文件。

yuanyannian

回复 23# apang

再麻烦 apang 老师，测试中发现一个问题：当源文件等号后面的数据没有 "" 情况下，无法读出及写入注册表文件。

yuanyannian

回复 26# apang

是的，都是字符串 - REG_SZ 的。