Question

求VB将UTF-8编码的TXT文件转换成ANSI编码的代码

如题。。。
是将文件转换，不是字符串哦。。。

Answer 1

立一个模块，复制下面代码
Option Explicit
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Const CP_UTF8 = 65001

'读文件至变量
Private Function GetFile(FileName As String) As String
Dim i As Integer, BB() As Byte
If Dir(FileName) = "" Then Exit Function
i = FreeFile
ReDim BB(FileLen(FileName) - 1)
Open FileName For Binary As #i
Get #i, , BB
Close #i
GetFile = BB
End Function

'功能: 把Utf8字符转化成ANSI字符
Public Function UTF8_Decode(FileName As String) As String
Dim sUTF8 As String
Dim lngUtf8Size As Long
Dim strBuffer As String
Dim lngBufferSize As Long
Dim lngResult As Long
Dim bytUtf8() As Byte
Dim n As Long
sUTF8 = GetFile(FileName)
If LenB(sUTF8) = 0 Then Exit Function
On Error GoTo EndFunction
bytUtf8 = sUTF8
lngUtf8Size = UBound(bytUtf8) + 1
lngBufferSize = lngUtf8Size * 2
strBuffer = String$(lngBufferSize, vbNullChar)
lngResult = MultiByteToWideChar(CP_UTF8, 0, bytUtf8(0), _
lngUtf8Size, StrPtr(strBuffer), lngBufferSize)
If lngResult Then
UTF8_Decode = Left(strBuffer, lngResult)
End If
EndFunction:

End Function

二、调用举例：
如果你想把一个"c:\1.txt"的UTF-8文件转换为ANSI编码，可这样调用
dim s as string
s=UTF8_Decode("c:\1.txt") '文件名请根据实际修改
此时，s存放的就是ANSI格式编码了，不会出现乱码问题

追问

这个代码之前用过了，得到的结果有问题，比如“开始”这个词转换后就变成了"开??"，呃

Answer 2

用编码转换工具就可以了。下载一个飞梭TXT文本数据处理百宝箱，就可以直接转换。

Answer 3

如楼上所说，楼主提问前也不百度一下

追问

昨晚我的确是搜索到了这段代码，但是不知为啥运行后得到的是乱码，我就想找找有木有其他的代码。。。真是见鬼
程序将一个UTF-8的文本和一个ANSI的文本混合，转换以后就乱了。。混合以后原来ANSI的文本没问题，UTF8的文本乱掉了，唉

追答

UTF-8和ansi是两套不同的编码方式，怎么能混合呢？

追问

所以才把UTF-8转换成了ANSI再混合。。

Answer 4

这个问题已经有人答过了