当前位置: 代码迷 >> PB >> PB 怎么导出 UFT-8 格式 文本
  详细解决方案

PB 怎么导出 UFT-8 格式 文本

热度:424   发布时间:2016-04-29 08:42:38.0
PB 如何导出 UFT-8 格式 文本
找了下这方面的帖子,找不到 。可能那些帖子太老了吧。希望各位帮忙。

------解决方案--------------------
就用一般的saveas导出为ansi的txt文件,然后再使用以下方法将该txt文件转换为UTF-8格式
C/C++ code
integer   li_rtn string ls//定义流OLEObject   ole_ADOStream //创建流ole_ADOStream   =   CREATE   OLEObject //连接流li_rtn   =   ole_ADOStream.ConnectToNewObject( "ADODB.Stream") if li_rtn <> 0 then    messagebox('提示', '无法连接ADODB.Stream')    return end if//初始化流ole_ADOStream.Mode   = 3   //具有读/写权限 ole_ADOStream.Type   =   2   //二进制数据Binary ole_ADOStream.charset = 'GB2312' //打开流ole_ADOStream.Open() //载入文本文件ole_ADOStream.LoadFromFile( "c:\1.txt") //读取流文本ls = ole_ADOStream.readtext()//重新初始化流ole_ADOStream.Position   =   0  //Position为0才能设置Charset 和 Typeole_ADOStream.Type   =   2   //文本数据 ole_ADOStream.Charset   =   "UTF-8" //写入流文本(关键步骤,不然中文会出现乱码)ole_ADOStream.writetext(ls)//保存为文本文件ole_ADOStream.SaveToFile( "c:\1.txt",2) //清空缓冲区数据ole_ADOStream.flush() //关闭流ole_ADOStream.Close() //销毁流destroy   ole_ADOStream
  相关解决方案