或者有其他的方法也可以。
12 个解决方案
#1
我的邮件:
wangs@sinopharmholding.com
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
//要求你的系统上装有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,你的方法我晚上试试
不过还是很谢谢 lzheng2001(1加1,你的方法我晚上试试
#1
我的邮件:
wangs@sinopharmholding.com
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
//要求你的系统上装有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,你的方法我晚上试试
不过还是很谢谢 lzheng2001(1加1,你的方法我晚上试试