用StreamReader读text的时候可以指定编码的 StreamReader sr = new StreamReader(filePath, Encoding.UTF-8);查一下msdn
Private Sub Command1_Click()Dim FileName As String, b() As Byte, S As String Dim ADO_Stream As Object FileName = App.Path & "\1.txt" '请修改为具体文件名 If Dir(FileName) = "" Then Exit Sub ReDim b(FileLen(FileName))Open FileName For Binary As #1 Get #1, , b ...
你的代码里看不到要转编码吗，不过从你报错信息来看，在第一行加上一句：# coding:gbk 即可解决。