UniCode 寫入檔案中的簡單問題 |
|
|
|
kenlee1109
初階會員   發表：20 回覆：40 積分：27 註冊：2006-08-17 發送簡訊給我 |
我們一般建立新檔內容是 Ansi Code, 現需求是產生 Unicode 的 .txt file.
例:
AnsiString str = "[通聯記錄]";
str = "錄音機座=xxxxxxxxx";
str = ...................;
........................
將 str 寫到 1.txt 中,而 1.txt 中的內容是 Unicode.
以記事本開啟 1.txt,按下另存功能,在對話盒下有 Unicode 格式而非 ANSI則 OK.
請問是否有誰做過?我時間不夠,無法測試,請各位幫忙,越快越好.謝謝!
|
|
syntax
尊榮會員 發表：26 回覆：1139 積分：1258 註冊：2002-04-23 發送簡訊給我 |
|
|
kenlee1109
初階會員 發表：20 回覆：40 積分：27 註冊：2006-08-17 發送簡訊給我 |
寫程式怎能用工具轉?當然要 source code 才好控制ㄚ! right.
已解決,附上 source code 給有需要的兄弟參考. bool TForm1::WriteWideString2File(AnsiString filename, WideString& ws) { bool Result = false; WideString wf = (WideString)WideChar(0xFEFF); TFileStream* f= new TFileStream(filename, fmCreate); try { f->Write(wf, 2); f->Write(ws.c_bstr(), ws.Length()*sizeof(WideChar)); Result = true; } __finally { delete f; } return Result; } void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString filename = "UniCodeTest.txt"; WideString Content = Memo1->Text; WriteWideString2File(filename,Content); } //--------------------------------------------------------------------------- |
|
syntax
尊榮會員 發表：26 回覆：1139 積分：1258 註冊：2002-04-23 發送簡訊給我 |
|
|
Stallion
版主 發表：52 回覆：1600 積分：1995 註冊：2004-09-15 發送簡訊給我 |
發表時間：2007-03-15 22:31:20
IP:220.139.xxx.xxx 訂閱
系統時間：2024-04-26 16:00:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |