gb码与utf-8转换

[flappySoft]

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

[hxbkkk]

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

[hxbkkk]

或者ToUnicode就可以

[WorldMobile]

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

[Methodor]

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

[sanmao136]

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

[softvery]

[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

[alina452]

很好，正需要