VB如何将文本文件保存为Unicode编码的文件?

[jsjjms]

VB如何将文本文件保存为Unicode编码的文件?

比如将hello,world存成hello.txt,要求
hello.txt为unicode编码的.

最好有简单代码能举例一下,谢谢.

[boywang]

直接用richtextbox控件的savefile和loadfile就可以了吧。
richtextbox.savefile "C:\save.rtf"

不过是rtf文件格式的。

[一笑拔剑]

等我的代码

[kmlxk0]

转换成数组保存。

[一笑拔剑]

Private Sub Command4_Click()
WriteToTextFile "c:\unicode.txt", Text1.Text, "unicode"
End Sub

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

[VirtualDesktop]

Text=StrConv("原来的文本", vbUnicode)