分享

VBA生成或读取指定字符集的文本文件

 Excel实用知识 2021-11-21
用VBA做工具的过程中,遇见这样一个问题。使用FSO方式或者直接OPEN文件方式,生成的文本文件采用的字符集为当前操作系统默认字符集,不能选择字符集类型。这样的文件作为应用程序的配置文件或者作为js代码文件,常常会因为字符集不是UTF-8,不能直接使用,需要利用记事本进行一次人工的字符集转换。特别麻烦。

近日发现有一办法,可以较好的解决这个问题。即是采用ADO的方式,将字符串生成以指定字符集的流文件输出。
函数代码如下,VB或VBA中均可用。注意:需要添加对ADO 对象库的引用。

ADO方式写入
'功能:text保存为文件(ADO方式)
'
输入:输出文件地址、内容文本、字符集
'
输出:无
Sub WriteToTextFileADO(filePath As String, strContent As String, CharSet As String)
    
Set stm = New ADODB.Stream
    stm.Type 
= 2 '以本模式读取
    stm.Mode = 3
    stm.CharSet 
= CharSet
    stm.Open
    stm.WriteText strContent
    
'如果文件存在,删除文件
    If Len(Dir(filePath)) > 0 Then
        Kill filePath
    
End If
    stm.SaveToFile filePath, 
2
    stm.Flush
    stm.Close
    
Set stm = Nothing
End Sub

使用示例:
Call WriteToTextFileADO(Sheets('channel-list').Cells(35& '\' & feedName & '.xml', feedXml, 'utf-8')

ADO方式读取

'功能:读取text文件(ADO方式)
'
输入:输入文件地址、字符集
'
输出:无
Function ReadFromFileADO(filePath As String, CharSet As StringAs String
    
Dim strRtn As String
    
Set stm = New ADODB.Stream
    stm.Type 
= 2 '以本模式读取
    stm.Mode = 3
    stm.CharSet 
= CharSet
    stm.Open
    stm.LoadFromFile filePath
    strRtn 
= stm.ReadText
    stm.Close
    
Set stm = Nothing
    ReadFromFileADO 
= strRtn
End Function

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多