UC知道VB 怎么更改TXT编码格式和读取Txt指定字符
来源：百度知道 编辑：UC知道 时间：2024/05/22 10:31:48
现要读取一个txt文本里面的多条字符串记录，txt原本的编码格式为UTF-8，VB读取此格式下的中文字符成乱码，只能将txt的编码格式变为ANSI格式，请问VB中用代码怎么实现TXT编码格式的改变，还有怎么实现截取记录中指定字节数的的字符
VB可以通过CreateObject函数来实现打开UTF-8编码格式文本文件，将它显示于文本框中。并可通过Print # 语句将格式化显示的数据以ANSI格式写入顺序文件中。
CreateObject函数，创建并返回一个对 ActiveX 对象的引用。
Print # 语句，将格式化显示的数据写入顺序文件中。
以下是实现代码：
Private Sub Command1_Click()
Dim ados As Object
Dim str As String
CommonDialog1.FileName = ""
CommonDialog1.Filter = "文本文件（*.txt）|*.txt|"
CommonDialog1.Action = 1
str = CommonDialog1.FileName
Debug.Print str
Set ados = CreateObject("adodb.stream")
With ados
.Charset = "utf-8"