《X-Only》

关于UTF-8的字符集文件的转换对于VB的使用者来说的确是件困难的事情，后来在网上找到一篇用ADODB转换UTF-8的文章（具体网址本人记不清了，但是是要非常的感谢愿作者。），本人原希望能用API来解决这个问题，但是效果实在是无法启齿。现在就用ADODB的方法来实现。

　　ADODB被封装到微软的Microsoft Data Access Components (MDAC)的安装包中，我想现在的系统越来越庞大了，ADODB基本已经成了系统的必带数据接口了，如果没有的话那只能去http://www.microsoft.com/downloads/results.aspx?productid=&freetext=mdac&displaylang=en下载了。

　　将UTF-8转换为ANSI，首先先在VB中引用Microsoft ActiveX Data Objects 2.5 Library对象，最低也要2.5版本的，再低就不支持Stream对象了。

　　代码如下：

Dim loadStream As ADODB.Stream  
Dim saveStream As ADODB.Stream  
 
Set loadStream = New ADODB.Stream  
Set saveStream = New ADODB.Stream  
 
With saveStream  
    .Mode = 8  
    .Open  
    .Charset = "chinese"  '设置保存文件的字符集类别，如果是中文用户建议使用“chinese”  
                          '当然如果用“ascii”也可以的，但中文就...  
                          '字符集的类别见本站《字符集（Charset）的查询和使用》文章。  
        With loadStream  
            .Open  
            .Charset = "utf-8" '设置读取文件的字符集，缺省为“unicode”  
            .LoadFromFile "c:\UTF-8.txt" '对文件名似乎要区分大小写，请注意了！  
            .CopyTo saveStream  
            .Close  
        End With 
    .SaveToFile "c:\ANSI.txt" '无法判断制定目录中是否有该文件，而且也无法覆盖  
                              '只能写一个新文件，清注意！  
    .Close  
End With 
 
Set loadStream = Nothing 
Set saveStream = Nothing 
 
End 

　　以上是UTF-8转换ANSI的方法，如果你要逆向转换，只需要修改一下字符集即可，只要你能在字符集中找到的类型基本都可以互相转换的，还要注意一点最好在转换前做一下字符集类型的判断。