pb9 如何将字符串转 UTF-8

[ybbuuuuss]

如题，怎么在网上查了半天，说PB10以上都有自带的方法，直接可以转，但是我目前还是9，应该如何操作呢，请各位指点，谢谢！

[WorldMobile]

用adostream可以实现 integer li_rtn OLEObject ole_ADOStream ole_ADOStream = CREATE OLEObject li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream") ole_ADOStream.Position = 0 //Position为0才能设置Charset ole_adostream.Type = 2 //二进制数据Binary ole_ADOStream.Mode =3 //具有读/写权限 ole_ADOStream.Charset = "UTF-8" ole_ADOStream.Open() ole_ADOStream.WriteText("你的utf_8") ole_ADOStream.Position = 0 //Position为0才能设置Charset ole_ADOStream.Type = 2 //文本数据 ole_ADOStream.Charset = "GB2312" ole_ADOStream.readtext(ls_data) //ls_data即为你想要的东东 ole_ADOStream.Close() destroy ole_ADOStream

[WorldMobile]

以上是utf-8转gb2312的，你仿照写一下即可

[laoer_2002]

你到网上找下,有那种可以成功转换的实例,不过要多试一下才知道

[guitar100]

引用 1 楼 lzp_lrp 的回复:

用adostream可以实现 integer li_rtn OLEObject ole_ADOStream ole_ADOStream = CREATE OLEObject li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream") ole_ADOStream.Position = 0 //Position为0才能设置Charset ole_adostream.Type = 2 //二进制数据Binary ole_ADOStream.Mode =3 //具有读/写权限 ole_ADOStream.Charset = "UTF-8" ole_ADOStream.Open() ole_ADOStream.WriteText("你的utf_8") ole_ADOStream.Position = 0 //Position为0才能设置Charset ole_ADOStream.Type = 2 //文本数据 ole_ADOStream.Charset = "GB2312" ole_ADOStream.readtext(ls_data) //ls_data即为你想要的东东 ole_ADOStream.Close() destroy ole_ADOStream

报错哦 版本！！！

[WorldMobile]

引用 4 楼 guitar100 的回复:

[quote=引用 1 楼 lzp_lrp 的回复:] 用adostream可以实现 integer li_rtn OLEObject ole_ADOStream ole_ADOStream = CREATE OLEObject li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream") ole_ADOStream.Position = 0 //Position为0才能设置Charset ole_adostream.Type = 2 //二进制数据Binary ole_ADOStream.Mode =3 //具有读/写权限 ole_ADOStream.Charset = "UTF-8" ole_ADOStream.Open() ole_ADOStream.WriteText("你的utf_8") ole_ADOStream.Position = 0 //Position为0才能设置Charset ole_ADOStream.Type = 2 //文本数据 ole_ADOStream.Charset = "GB2312" ole_ADOStream.readtext(ls_data) //ls_data即为你想要的东东 ole_ADOStream.Close() destroy ole_ADOStream

报错哦 版本！！！[/quote] //Position为0才能设置Charset

[guitar100]

引用 5 楼 lzp_lrp 的回复:

[quote=引用 4 楼 guitar100 的回复:] [quote=引用 1 楼 lzp_lrp 的回复:] 用adostream可以实现 integer li_rtn OLEObject ole_ADOStream ole_ADOStream = CREATE OLEObject li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream") ole_ADOStream.Position = 0 //Position为0才能设置Charset ole_adostream.Type = 2 //二进制数据Binary ole_ADOStream.Mode =3 //具有读/写权限 ole_ADOStream.Charset = "UTF-8" ole_ADOStream.Open() ole_ADOStream.WriteText("你的utf_8") ole_ADOStream.Position = 0 //Position为0才能设置Charset ole_ADOStream.Type = 2 //文本数据 ole_ADOStream.Charset = "GB2312" ole_ADOStream.readtext(ls_data) //ls_data即为你想要的东东 ole_ADOStream.Close() destroy ole_ADOStream

报错哦 版本！！！[/quote] //Position为0才能设置Charset [/quote] ole_ADOStream.Position = 0 //Position为0才能设置Charset 就是这行报的错

[WorldMobile]

引用 6 楼 guitar100 的回复:

[quote=引用 5 楼 lzp_lrp 的回复:] [quote=引用 4 楼 guitar100 的回复:] [quote=引用 1 楼 lzp_lrp 的回复:] 用adostream可以实现 integer li_rtn OLEObject ole_ADOStream ole_ADOStream = CREATE OLEObject li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream") ole_ADOStream.Position = 0 //Position为0才能设置Charset ole_adostream.Type = 2 //二进制数据Binary ole_ADOStream.Mode =3 //具有读/写权限 ole_ADOStream.Charset = "UTF-8" ole_ADOStream.Open() ole_ADOStream.WriteText("你的utf_8") ole_ADOStream.Position = 0 //Position为0才能设置Charset ole_ADOStream.Type = 2 //文本数据 ole_ADOStream.Charset = "GB2312" ole_ADOStream.readtext(ls_data) //ls_data即为你想要的东东 ole_ADOStream.Close() destroy ole_ADOStream

报错哦 版本！！！[/quote] //Position为0才能设置Charset [/quote] ole_ADOStream.Position = 0 //Position为0才能设置Charset 就是这行报的错[/quote] ADODB.Stream没有安装