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

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