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

http://www.cnblogs.com/heekui/archive/2008/12/22/896704.html

用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( 3 5 &   " \ "   &  feedName  &   " .xml " , feedXml,  " utf-8 " )

ADO方式读取

' 功能:读取text文件(ADO方式)
'
输入:输入文件地址、字符集
'
输出:无
Function  ReadFromFileADO(filePath  As   String , CharSet  As   String As   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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值