yu2n

VBA、VBS读写INI文件
http://blog.sina.com.cn/s/blog_6163bdeb0102e5ki.html

' 读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 Function
复制代码

yu2n

回复 6# yuanyannian

思密达文字可能不兼容中文系统的 fso.opentextfile(file, 1,-1) Unicode 编码，我换 ADODB.Stream  Unicode 测试OK。

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 Function
复制代码

yu2n

回复 8# yuanyannian

1. 你是如何写入注册表的？
   建议注册表使用 regedit.exe /s abc.reg 的形式写入，其中 abc.reg 为Unicode编码。
2. 你将代码14行的Unicode编码改为其他编码试试。

yu2n

回复 10# yuanyannian

读写Unicode文本：

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 Function
复制代码

yu2n

回复 12# yuanyannian

函数 WriteUnicodeText(File, TextString)
功能：将字符串以Unicode编码写入文本文件。
参数：File 为文本文件路径，TextString 为字符串。

函数 ReadUnicodeText(File, TextString)

……你一定是在逗我，这个就不解释了。

yu2n

回复 14# yuanyannian

追加写入？
1. 读取旧文本，保存为字符串 str1
2. 将要保存的字符串 str2 与字符串 str1 合并为 str3 。（字符串使用 & 连接符）
3. 向文件写入 str3 ，即完成追加写入。

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