VB 按指定编码格式写入文本文件

 代码如下：

'VB 按指定编码格式写入文本文件，默认GB2312编码。

Private Sub SaveFile(FilePath As String, strText As String, Optional Charset As String = "GB2312")
Dim Obj As Object
Set Obj = CreateObject("ADODB.Stream")
With Obj
.Mode = 3
.Charset = Charset
.Open
.WriteText strText
.SaveToFile FilePath, 2
End With
Set Obj = Nothing
End Sub

Private Sub Form_Load()
Call SaveFile("c:\test.txt", "1234", "UTF-8")
End Sub

摘自：网络整理

相关文章参考：

---

※VB输入文本文件实现右对齐

※VB计算文本文件的行数

※VB打开文本文件各种方法

※vb：读写文本文件

※vb UTF文本文件访问

※简述UTF－8编码原理及其文本文件的读写技术【转】

※VB 读写TXT文本文件函数

※VB 判断是否文本文件

※VB 按指定编码格式写入文本文件

★VB部分相关文章推荐：★

---

☆