1,108
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
alina452 2011-03-03
- 打赏
- 举报
很好，正需要
softvery 2009-05-01
- 打赏
- 举报
[Quote=引用 3 楼 lzp_lrp 的回复:]
integer li_rtn
OLEObject ole_ADOStream
ole_ADOStream = CREATE OLEObject
li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream")
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.…
[/Quote]
3楼正解，可以用来转换UTF-8 UNICODE
integer li_rtn
OLEObject ole_ADOStream
ole_ADOStream = CREATE OLEObject
li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream")
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.…
[/Quote]
3楼正解，可以用来转换UTF-8 UNICODE
sanmao136 2009-04-30
- 打赏
- 举报
提供个思路，低版本的把数据导出来，用高版本的读取进去，高版本的导出为UNICODE，低版本导入
Methodor 2009-04-28
- 打赏
- 举报
高版本的话实现方式很多,低版本的话只能用控件或类似的第3方调用方式....
最简单的控件就是直接利用IE的Web控件-windows自带
最简单的控件就是直接利用IE的Web控件-windows自带
WorldMobile 2009-04-28
- 打赏
- 举报
integer li_rtn
OLEObject ole_ADOStream
ole_ADOStream = CREATE OLEObject
li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream")
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.writetext(ls_str_file)
ole_ADOStream.SaveToFile(ls_filenam, 2)
ole_ADOStream.Close()
destroy ole_ADOStream
OLEObject ole_ADOStream
ole_ADOStream = CREATE OLEObject
li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream")
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.writetext(ls_str_file)
ole_ADOStream.SaveToFile(ls_filenam, 2)
ole_ADOStream.Close()
destroy ole_ADOStream
hxbkkk 2009-04-28
- 打赏
- 举报
或者ToUnicode就可以
hxbkkk 2009-04-28
- 打赏
- 举报
9以上用XML模板就能直接转换导出
