如何读取带有中文字符的.txt文件？答案

【问题标题】：How to read .txt file with Chinese characters?如何读取带有中文字符的.txt文件？
【发布时间】：2017-03-30 04:58:46
【问题描述】：

我有一个读取文本文件并从中提取某些数据的子程序。这是一个例子：

NamePrefix = "Example"
OutputPath = "C:\Example"
DbSize = 65536

LstStr = ""
Dim Success() As Boolean
Dim Value() As Double
ReDim Success(1 to DbSize)
ReDim Value(1 to DbSize)
For ID = 1 to DbSize
  'Read string
    FileName = NamePrefix & Format(ID,"000000") & ".lst"
    FilePath = OutputPath & "\" & FileName
    Open FilePath For Input As 1
    LstStr = Input(LOF(1),1)
    Close 1
  'Extract data
    If InStr(1, LstStr, "SUCCESS") <> 0 Then Success(i) = True Else Success(i) = False
    Pos1 = InStr(1, LstStr, "TH 1 value: ") 'Position varies for each file
    Value(i) = Val(Mid(LstStr, Pos1 + 13, 10)) 'Value in scientific notation
Next ID

当只有字母、数字和符号时，使用 InStr 按位置定位字符串非常有效。但是，有时文件中包含中文字符，Input 函数会向LstStr 返回一个空字符串“”。我尝试使用其他一些建议的方法但徒劳无功（例如Extract text from a text file with Chinese characters using vba）。我应该如何成功读取带有汉字的文件，而无需修改按位置提取数据的代码的其他部分？谢谢！

【问题讨论】：

您是否尝试使用 ADODB.Stream（具有正确的字符集）而不是 VBA 文件访问方法？

标签： excel vba

【解决方案1】：

这将是读取字符串的另一种方法。确保将.Charset 设置为您要读取的文件的字符集。

要使用 ADOBD，您需要在 VBA 菜单 › Extras › References 中添加参考 Microsoft ActiveX Data Objects 6.1 Library（版本可以不同）

Dim adoStream As ADODB.Stream
Set adoStream = New ADODB.Stream

adoStream.Charset = "UTF-8" 'set the correct charset
adoStream.Open
adoStream.LoadFromFile FilePath

LstStr = adoStream.ReadText

adoStream.Close
Set adoStream = Nothing

【讨论】：

对于日语 utf-8 不适合我。我发现 shift-jis 字符集适用于它。