用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

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

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2011-02-27 17:05:29

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

VBScript code复制代码
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", "新兴网络 http://www.newxing.com", "UTF-8")
End Sub
 

Tags:VB UTF-8 GB2312 编码 写入文件

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      100%(1)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论