gb码与utf-8转换

在pb下,怎么实现GB码到UTF-8码的转换,函数和控件都可以

7 个解决方案

#1

9以上用XML模板就能直接转换导出

#2

或者ToUnicode就可以

#3

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

#4

高版本的话实现方式很多,低版本的话只能用控件或类似的第3方调用方式....
最简单的控件就是直接利用IE的Web控件-windows自带

#5

提供个思路，低版本的把数据导出来，用高版本的读取进去，高版本的导出为UNICODE，低版本导入

#6

引用 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.…

3楼正解，可以用来转换UTF-8 UNICODE

#7

很好，正需要