文件格式ANSI -> UNICODE

[lhj0532]

小弟的一段代码：
目的是把ANSI格式文件转换为相同文件名的UNICODE格式文件
Dim ansiFileNo As Integer
Dim unicodeFileNo As Integer
ansiFileNo = FreeFile()
Open g_UserFile For Input As #ansiFileNo
unicodeFileNo = FreeFile()
'Open "temp.txt" For Output As #unicodeFileNo
Open "temp.txt" For Binary As #unicodeFileNo

Dim inputText As String
Dim inputTextByte() As Byte
Dim inputTextUnicode As String
Do While Not EOF(ansiFileNo)
Line Input #ansiFileNo, inputText
If Len(Trim(inputText)) = 0 Then
Exit Do
End If
'inputTextByte = StrConv(inputText, vbFromUnicode)
'inputTextUnicode = StrConv(inputTextByte, vbUnicode)
'Print #unicodeFileNo, inputTextUnicode
ReDim imputTextByte(LenB(inputText) - 1)
inputTextByte = StrConv(StrConv(inputText, vbFromUnicode), vbUnicode)
Put #unicodeFileNo, , inputTextByte
Loop
'关闭文件
Close ansiFileNo
Close unicodeFileNo
Kill g_UserFile
FileCopy "temp.txt", g_UserFile
Kill "temp.txt"
执行完毕，用记事本打开文件仍为ANSI编码格式。
请问如何用记事本打开文件变为UNICODE编码格式？
多谢！

[lhj0532]

没人回答,自己顶……

[tb01412]

你用记事本打开文件，咋个晓得是ANSI编码格式呢？
你意思是你用记事本打开文件时仍是ANSI格式，那就是你程序没对啊！！！
一些大型的软件支持多种编码格式，比如OFFICE软件

[lhj0532]

对,用记事本打开还是ANSI格式。

[lhj0532]

顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶

[lhj0532]

顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶

[lhj0532]

楼上的兄弟：
好像不行，用记事本打开还是ANSI的阿，编码方式肯定是变了，不过变成乱码了。

[eslbs]

不要告诉我 你在98系统……

[eslbs]

Open g_UserFile For Input As #1
Open App.Path & "\temp.txt" For Binary As #2
Put #2, ,StrConv(InputB$(LOF(1), #1), vbUnicode)
Close #1
Close #2

[eslbs]

Dim outputbyte() As Byte
Open g_UserFile For Input As #1
Open App.Path & "\temp.txt" For Binary As #2
outputbyte = StrConv(InputB$(LOF(1), #1), vbUnicode)
Put #2, , outputbyte
Close #1
Close #2


这样就行了

[lhj0532]

系统是Win2000Server

[DawnPine]

有这么复杂吗?
有记事本打开任意一个文本文件
然后打开 另存为 对话框

仔细看一看
看出来了吗?
对了! 你可以在这里选择把这个文件另存为ANSI格式或其它格式