PB 字符串轉 UTF-8

 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