Question

VB6中如何创建一个编码为Unicode的TXT文本文件？

如题！高分！！！！！！！！！！！！！！！！！！！！

Answer 1

Function saveUnicode()Function saveUnicode()function saveUnicode(byval str as string,FileName as string)
dim data() as byte,fnu as integer

fn=freefile
data=str
Open FileName For Binary Access Write As #fnu
Put #fnu, , Data
Close #fnu
end functionVB内部处理字符就是用UNICODE,所以在VB要保存字符为UNICODE格式如此简单
=========================
或是用这个

Sub WriteToTextFile(FileUrl, ByVal Str, CharSet)
Set stm = CreateObject("adodb.stream")
stm.Type = 2 '以本模式读取
stm.mode = 3
stm.CharSet = CharSet
stm.open
stm.WriteText Str
stm.SaveToFile FileUrl, 2
stm.flush
stm.Close
Set stm = Nothing
End Sub