integer li_rtn
string ls_data
OLEObject ole_ADOStream
ole_ADOStream = CREATE OLEObject
li_rtn = ole_ADOStream.ConnectToNewObject("ADODB.Stream")
ole_ADOStream.Type = 1 //二进制数据Binary
ole_ADOStream.Mode =3 //具有读/写权限
// ole_ADOStream.Charset = "UTF-8"
ole_ADOStream.Open()
ole_ADOStream.LoadFromFile("c:\test.txt")
ole_ADOStream.Position = 0 //Position为0才能设置Charset
ole_ADOStream.Type = 2 //文本数据
ole_ADOStream.Charset = "UTF-8"
ole_ADOStream.SaveToFile("c:\test1.txt",2)
ole_ADOStream.Close()
destroy ole_ADOStream
PB 字符串转 UTF-8
最新推荐文章于 2022-05-11 11:23:22 发布