如何把UniCode保存為UTF-8格式的文檔 |
|
缺席
|
|
stars_chen
一般會員   發表：14 回覆：35 積分：9 註冊：2006-10-29 發送簡訊給我 |
|
|
taishyang
站務副站長   發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
stars_chen
一般會員 發表：14 回覆：35 積分：9 註冊：2006-10-29 發送簡訊給我 |
謝謝大大們的關心了,問題我解決了.
如下: procedure TForm1.Button3Click(Sender: TObject);
var S:UTF8String; F:TextFile; begin S:=UTF8Encode(TntEdit1.Text); AssignFile(F, 'C:\test.txt'); Rewrite(F); Write(F,#$EF #$BB #$BF); //UTF8?? Write(F,S); CloseFile(F); end; |
|
fireflybug
一般會員 發表：18 回覆：36 積分：15 註冊：2008-07-17 發送簡訊給我 |
大大您好，最進想要處理寫入 TRichEdit.txt 的文字編碼轉存成UTF8，看到您這篇文章，想請教
Write(F,#$EF #$BB #$BF); //UTF8 這行的用意? 那些 #$ 是在處理什麼?
------
今天的事，留到後天再說....
編輯記錄
|
|
Coffee
版主 發表：31 回覆：878 積分：561 註冊：2006-11-15 發送簡訊給我 |
it's BOM header, a symbol of unicode to specify a utf format file, though has some problems.
just google "BOM" with "unicode" you'll get lots of answer.
------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。 為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。 在引述到我的文時自然會儘量替各位想辦法，謝謝大家！ |
|
sryang
尊榮會員  發表：39 回覆：762 積分：920 註冊：2002-06-27 發送簡訊給我 |
如果是 Delphi 2009 / 2010 的話，不用那麼辛苦
[code delphi] procedure SaveAsUTF8(fileName, newFileName: string); var tmp: TStrings; begin tmp := TStringList.Create; try tmp.LoadFromFile(fileName); tmp.SaveToFile(newFileName, TEncoding.UTF8); finally tmp.Free; end; end; [/code]
------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/ |
|
fireflybug
一般會員 發表：18 回覆：36 積分：15 註冊：2008-07-17 發送簡訊給我 |
這邊有說明我前面所提的問題
Unicode、Unicode big endian和UTF-8編碼的txt文件的開頭會多出幾個字元，分別是FF、FE（Unicode）,FE、FF（Unicode big endian）,EF、BB、BF（UTF-8） http://60.248.128.85/bbs/dv_rss.asp?s=xhtml&boardid=63&id=491&page=3
------
今天的事，留到後天再說.... |
發表時間：2007-07-25 16:58:51
IP:221.224.xxx.xxx 訂閱
系統時間：2024-04-19 11:07:56
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |