vb6中TXT文档编码转换源代码求助

来源：百度知道 编辑：UC知道 时间：2024/05/16 17:30:02
我现在想把TXT文档中最常见的ANSI编码转换成UNIcode，代码如何写？

比如我现在有个TEXT文档，读起来，然后保存成Unicode2.txt

如何做？
完整的格式好么？
最好把全部的源文件复制给我好么？

StrConv 函数

语法为：StrConv(待转换字串, 转换格式)

转换格式：

vbUnicode 将 Ansi 字串转换为 Unicode

vbFromUnicode 将 Unicode 字串转换为 Ansi

====================

补充回答:

看看下面的基本范例您应该就会对 VB 的字串处理方式有些概念。

Private Sub Command1_Click ()

Dim sUnicode As String

Dim sAnsi As String

' Unicode 运算

sUnicode = "王小明,A123456789,651023,上海市中山路100号,(02)2345678"

Debug.Print Len(sUnicode) ' 返回 44

Debug.Print Mid$(sUnicode, 5, 10) ' 返回 A123456789

Debug.Print Instr(sUnicode, "上海市") ' 返回 23

' 将 Unicode 字串转成 Ansi

sAnsi = StrConv(sUnicode, vbFromUnicode)

' Ansi 运算

Debug.Print LenB(sAnsi) ' 返回 54

Debug.Print MidB$(sAnsi, 8, 10) ' 返回 ?????，因为忘了转回 Unicode

Debug.Print StrConv(MidB$(sAnsi, 8, 10), vbUnicode) ' 返回 A123456789，请注意转