VB怎么把ANSI编码的txt文件转为UTF-8编码？

VB怎么把ANSI编码的txt文件转为UTF-8编码？
点击窗体上的command1自动把C:\1.txt转为UTF-8的文本。
之前用过很多代码，得出的都是乱码。
对了，是不包含签名的UTF-8。

谢谢。

第1个回答 2011-11-06

charset设置为utf-8即可

Function BytesToBstr(body, charset)
Dim objstream
Set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
On Error Resume Next
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.charset = charset
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function追问

好像不是针对文件而是针对字符串的，呃

第2个回答 2011-11-06

0122444444

相似回答

VB中MultiByteToWideChar如何调用使得文本格式由ANSI转换成UTF-8答：lngResult = lngResult - 1 ReDim Preserve bytUtf8(lngResult)S = StrConv(bytUtf8, vbUnicode)End If PutFile Filename, S UTF8_Encode = True End Function 二、程序调用如下：If UTF8_Encode("f:\temp\a.txt") Then MsgBox ""文件转换成功！"Else MsgBox "文件转换失败！"End If 注...

高分求-VB 把ANSI文本转换成UTF-8,多谢!!答：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格式编码了，不会...

vb中怎么把ansi转换成UTF-8答：FileName = App.Path & "\1.txt" '请修改为具体文件名 If Dir(FileName) = "" Then Exit Sub ReDim b(FileLen(FileName))Open FileName For Binary As #1 Get #1, , b Close #1 S = StrConv(b, vbUnicode)Set ADO_Stream = CreateObject("ADODB.Stream")With ADO_Stream .Type = ...

VB中如何生成编码格式为UTF-8的文本文件?答：' CP_UTF8 UTF-8，设置此值时lpDefaultChar和lpUsedDefaultChar都必须为NULL '第二个参数：指定如何处理没有转换的字符，但不设此参数函数会运行的更快一些，我都是把它设为0。'第三个参数: 待转换的宽字符串?'第四个参数：待转换宽字符串的长度，-1表示转换到字符串结尾。'第五个参数: ...

在VB中,如果检测到某文本文件为非UTF8格式则自动转换为UTF8格式?答：If strFileHead = "EFBBBF" Then '前3个byte如果为 EF BB BF 则表示为 UTF-8编码 FileCharset = "UTF-8"Else strFileHead = Left(strFileHead, 4)If Left(strFileHead, 4) = "FEFF" Then '此时为 unicode big endian 编码 FileCharset = "Unicode big ...

VB 怎么更改TXT编码格式和读取Txt指定字符答：VB可以通过CreateObject函数来实现打开UTF-8编码格式文本文件，将它显示于文本框中。并可通过Print # 语句将格式化显示的数据以ANSI格式写入顺序文件中。CreateObject函数，创建并返回一个对 ActiveX 对象的引用。Print # 语句，将格式化显示的数据写入顺序文件中。以下是实现代码：Private Sub Command1_Click()...

高分求VB读取文本乱码问题utf-8和ansi互相转换答：代码如下,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("...

excel vb 文本保存为 utf-8答：' CP_UTF8 UTF-8，设置此值时lpDefaultChar和lpUsedDefaultChar都必须为NULL '第二个参数：指定如何处理没有转换的字符，但不设此参数函数会运行的更快一些，我都是把它设为0。'第三个参数: 待转换的宽字符串?'第四个参数：待转换宽字符串的长度，-1表示转换到字符串结尾。'第五个参数: ...

...XML文件编码是Ansi,我需要手工打开,编码选择utf-8再保存,怎样用vb代...答：'TxtFile 读写属性，读取或写入指定编码的文本文件，取值为读取，赋值为写入。Option Explicit Enum TXT ANSI Unicode Unicode_big_endian End Enum Type AutoSel Text As String Code As TXT End Type Public Property Get TxtAutoSel(地址$) As AutoSel '自动选择编码 Dim Head%, FN%: FN = ...

大家正在搜

文件转换编码怎么设置文件转pdf怎么转怎么把文档变成文件 pdf文件怎么转换成word文档文件编码序号怎么设置文件格式怎么转换 pdf文件怎么编辑 docx是什么格式的文件 linux 查看文件编码