UC知道高分求VB读取文本乱码问题utf-8和ansi互相转换
来源：百度知道 编辑：UC知道 时间：2024/06/17 04:53:55
我用VB读取一他TXT文本，编码为UTF-8，读取入变量，显示为乱码
然后将文本另存为ANSI格式编码时，读取却正常
但是我想让VB直接读取UTF格式编码文件，不想每次都要把文件另存为ANSI格式的文件（因为文件很多）
求高人帮下忙
我的用VB读入是打开文本然后把每行赋值给A(i),我想用一个函数或过程来把A(i)转换成ANSI格式的，比如
OPen "c\a.txt" for input as #1
do while not eof(1)
redim preserve a(i)
line print #1,a(i)
a(i)=(utf-8转ansi的过程)(a(i))
i=i+1
loop
close# 1
希望高手写个代码~~
编辑完成之后还要转换回去，希望在写个ANSI转UFT-8的代码过程
例如
Private Sub cmdsave_Click()
Dim j As Integer
Open "a.txt" For Output As #1
For j = 0 To UBound(a)
Print #1, a(j)
a(i)=(ansi 转utf-8的代码)(a(i))
Next
Close #1
End Sub
完成后追加100分，多谢！！！
然后将文本另存为ANSI格式编码时，读取却正常
但是我想让VB直接读取UTF格式编码文件，不想每次都要把文件另存为ANSI格式的文件（因为文件很多）
求高人帮下忙
我的用VB读入是打开文本然后把每行赋值给A(i),我想用一个函数或过程来把A(i)转换成ANSI格式的，比如
OPen "c\a.txt" for input as #1
do while not eof(1)
redim preserve a(i)
line print #1,a(i)
a(i)=(utf-8转ansi的过程)(a(i))
i=i+1
loop
close# 1
希望高手写个代码~~
编辑完成之后还要转换回去，希望在写个ANSI转UFT-8的代码过程
例如
Private Sub cmdsave_Click()
Dim j As Integer
Open "a.txt" For Output As #1
For j = 0 To UBound(a)
Print #1, a(j)
a(i)=(ansi 转utf-8的代码)(a(i))
Next
Close #1
End Sub
完成后追加100分，多谢！！！
你好，此问题已作回答，答案在http://zhidao.baidu.com/question/123224632.html?fr=im2。
使用StrConv只能转换utf8 里面的单字节,双字符的字符还会是乱码.
另外还有的办法能转换utf8里面的大部分字符,但是唯独双字节和单字节相连的地方,两个字符会变乱码.
如果是读取文件里面的字符,用adodb.stream处理的效果最好
代码如下,sUTF8File 表示文件的路径
使用前要先引用Microsoft ActiveX Data Objects ( ado)
Public Function readUTF8file(ByVal sUTF8File As String) As String
If Len(sUTF8File) = 0 Or Dir(sUTF8File) = vbNullString Then Exit Function
Dim ados As Object
Set ados = CreateObject("adodb.stream")
With ados
.Charset = "utf-8"
.Type = 2
.Open
.LoadFromFile sUTF8File
readUTF8file = .ReadText
.Close
End With
Set ados = Nothing
End Function
Private Const CP_ACP = 0 ' defaul