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

' 读INI文件
strIniFile = ".\test.inf"
strBIOS = ReadINI(strIniFile, "Strings", "BIOS")
strTIDS = ReadINI(strIniFile, "Strings", "TIDS")
MsgBox "BIOS = " & strBIOS & vbCrLf & "TIDS  = " & strTIDS, vbInformation
 
' read函数
Function ReadINI(FilePath, Bar, PrimaryKey)
Dim fso, sReadLine, i, j, ss
Set fso = CreateObject("Scripting.FileSystemObject")
Set IniFile = fso.opentextfile(FilePath, 1,-1)
Do Until IniFile.atendofstream
    sReadLine = IniFile.readline
    If sReadLine = "" Then
        IniFile.skipline
    ElseIf Trim(sReadLine) = "[" & Bar & "]" Then       '找到小节名
        '查找该小节名下的键名
        Do Until IniFile.atendofstream
            sReadLine = IniFile.readline                '读取小节名后的行
            j = InStr(sReadLine, "=")
            If j > 0 Then                               '小节名后的文本行存在
                If InStr(Left(sReadLine, j), PrimaryKey) > 0 Then                       '从"="左边字符串找到键名
                    ss = Trim(Right(sReadLine, Len(sReadLine) - InStr(sReadLine, "="))) '读取等号后的部分
                    Exit Do
                End If
            End If
        Loop
    End If
Loop
IniFile.Close
Set fso = Nothing
ReadINI = ss
End FunctionCOPY

strIniFile = "V:\HIVESFT.INF"
strBIOS = ReadINI(strIniFile, "Strings", "BIOS")
strTIDS = ReadINI(strIniFile, "Strings", "NDIS")
strInfo = "BIOS = " & strBIOS & vbCrLf & "NDIS  = " & strTIDS
Msgbox strInfo, vbInformation
 
Function ReadIni(strIniFilePath, strPrimary, strSubKey)
  Dim objStream
  Set objStream = CreateObject("ADODB.Stream")
  With objStream
      .Type = 2
      .Mode = 3
      .Open
      .Charset = "Unicode"
      .LoadFromFile strIniFilePath
       strText = .ReadText
      .Close
  End With
  Set objStream = Nothing
  arrText = Split(strText, vbCrLf)
  For Each strLine In arrText
    If intCount = 0 Then
      If strLine = "[" & strPrimary & "]" Then
          intCount = 1
      End If
    Else
      If Left(strLine,1) = "[" Then Exit For
      j = InStr(strLine, "=")
      If j > 0 Then                               '小节名后的文本行存在
        If InStr(Left(strLine, j), strSubKey) > 0 Then                       '从"="左边字符串找到键名
          ReadIni = Trim(Right(strLine, Len(strLine) - InStr(strLine, "="))) '读取等号后的部分
          Exit For
        End If
      End If
    End If
  Next
End FunctionCOPY

Function WriteUnicodeText(File, TextString)
	With CreateObject("ADODB.Stream")
	.Type = 2 :  .Mode = 3 :  .Charset = "Unicode" :  .Open
	.WriteText TextString  :  .SaveToFile File, 2 :  .Close
	End With
End Function
 
Function ReadUnicodeText(File)
	With CreateObject("ADODB.Stream")
	.Type = 2 :  .Mode = 3 :  .Charset = "Unicode" :  .Open
	.LoadFromFile File :  ReadUTF8Text = .ReadText :  .Close
	End With
End FunctionCOPY

File = "d:\abc.txt"
str1 = ReadUnicodeText(File)    ' 读取
str2 = " 我是新字符串 "              ' 新字符串 
str3 = str1 & str2                    ' 合并新旧字符串（追加）
WriteUnicodeText File, str3       ' 写入文件COPY