如何将数据窗口saveas出来的文本文件格式转换为utf-8格式的??

时间:2022-11-22 06:36:53
我看前面有人提供了一个dll,不知道哪位可以提供给我
或者有其他的方法也可以。

12 个解决方案

#1


我的邮件:
wangs@sinopharmholding.com

#2


支持一下

#3


关注 + 友情UP

#4


如果你的计算机上安装了adodb(microsoft Acitvex data objet 2.x) 库的话 ,这个问题就比较容易解决了.

#5


to  lzheng2001(1加1)
如果装了的话怎么做?

其他各位就没有什么更好的方法吗?

#6


我写点代码测试一下,如果成功的话,迟D再贴出来

#7


关注一下

#8


这贴这么多星星~~~~~~~~~~~~

#9


to lzheng2001(1加1) 
非常感谢

大家也帮忙踢一下。问题解决了,我另外开贴给分

#10


今天终于有时间可以试一下了,也可以尝试用API但代码要复杂一些
//要求你的系统上装有adodb(microsoft Acitvex data objet 2.x) 库,
//没有的话可以到网上下载安装
integer li_rtn
OLEObject ole_ADOStream
ole_ADOStream = CREATE OLEObject
li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream")
ole_ADOStream.Type = 1 //二进制数据Binary
ole_ADOStream.Mode =3 //具有读/写权限
ole_ADOStream.Open()
ole_ADOStream.LoadFromFile("c:\1.txt")
ole_ADOStream.Position = 0 //Position为0才能设置Charset
ole_ADOStream.Type = 2 //文本数据
ole_ADOStream.Charset = "UTF-8"
ole_ADOStream.SaveToFile("c:\2.txt",2)
ole_ADOStream.Close()
destroy ole_ADOStream

#11


类库好象简称 ADO2.8 吧,微软网站上可以下载

#12


搞定了,自己写了一个dll
不过还是很谢谢 lzheng2001(1加1,你的方法我晚上试试

#1


我的邮件:
wangs@sinopharmholding.com

#2


支持一下

#3


关注 + 友情UP

#4


如果你的计算机上安装了adodb(microsoft Acitvex data objet 2.x) 库的话 ,这个问题就比较容易解决了.

#5


to  lzheng2001(1加1)
如果装了的话怎么做?

其他各位就没有什么更好的方法吗?

#6


我写点代码测试一下,如果成功的话,迟D再贴出来

#7


关注一下

#8


这贴这么多星星~~~~~~~~~~~~

#9


to lzheng2001(1加1) 
非常感谢

大家也帮忙踢一下。问题解决了,我另外开贴给分

#10


今天终于有时间可以试一下了,也可以尝试用API但代码要复杂一些
//要求你的系统上装有adodb(microsoft Acitvex data objet 2.x) 库,
//没有的话可以到网上下载安装
integer li_rtn
OLEObject ole_ADOStream
ole_ADOStream = CREATE OLEObject
li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream")
ole_ADOStream.Type = 1 //二进制数据Binary
ole_ADOStream.Mode =3 //具有读/写权限
ole_ADOStream.Open()
ole_ADOStream.LoadFromFile("c:\1.txt")
ole_ADOStream.Position = 0 //Position为0才能设置Charset
ole_ADOStream.Type = 2 //文本数据
ole_ADOStream.Charset = "UTF-8"
ole_ADOStream.SaveToFile("c:\2.txt",2)
ole_ADOStream.Close()
destroy ole_ADOStream

#11


类库好象简称 ADO2.8 吧,微软网站上可以下载

#12


搞定了,自己写了一个dll
不过还是很谢谢 lzheng2001(1加1,你的方法我晚上试试