全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:3273
推到 Plurk!
推到 Facebook!

如何讀取Unicode 文字檔

缺席
chingrenn
一般會員


發表:10
回覆:13
積分:4
註冊:2003-03-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-28 13:26:24 IP:211.20.xxx.xxx 未訂閱
請教先進們,小弟最近遇到一個問題,是如何讀取unicode文字檔, 不知先進們是否有此經驗,可否指點一二,或是如何將程式改成for unicode
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-28 15:43:28 IP:203.73.xxx.xxx 未訂閱
引言: 請教先進們,小弟最近遇到一個問題,是如何讀取unicode文字檔, 不知先進們是否有此經驗,可否指點一二,或是如何將程式改成for unicode
chingrenn 你好:
(1)先利用 TMemoryStream 把 Unicode 文字檔載入記憶體
(2)再利用 Win32 API WideCharToMultiByte 把 Unicode 轉換成 ANSI
   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28163
-- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
chingrenn
一般會員


發表:10
回覆:13
積分:4
註冊:2003-03-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-07-28 17:48:44 IP:211.20.xxx.xxx 未訂閱
對Unicode不懂,可否給個sample 十分感謝!
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-07-28 20:08:00 IP:61.221.xxx.xxx 未訂閱
引言: 對Unicode不懂,可否給個sample 十分感謝!
chingrenn 你好: sample 有很多喔,你可以在本站利用搜尋的功能,就可以找到很多這方面的討 論文章了 (關鍵字 WideCharToMultiByte),所以,站內的文章就留給你自己找 了,我就不另外列出;站外的文章幫你找了一篇,參考看看吧
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
chingrenn
一般會員


發表:10
回覆:13
積分:4
註冊:2003-03-04

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-07-29 11:59:16 IP:211.20.xxx.xxx 未訂閱
根據您提示寫出下列程式 var pBuffer: PByte; pwChr: PWideChar; strmText: TFileStream; sText: string; begin sText := 'f:\testdata.txt'; strmText := TFileStream.Create(sText, fmOpenRead); GetMem(pBuffer, strmText.Size); try strmText.Read(pBuffer^, strmText.Size); pwChr:= PWideChar(pBuffer); Inc(pwChr,2); sText := WideCharToString(pwChr); RichEdit1.Text := sText; //showMessage(sText); finally FreeMem(pBuffer); strmText.Free; end; 可讀,但有些難字亦無法顯示,且第一筆會有一?ㄝ,前輩可否幫我看一下
系統時間:2024-03-29 16:57:54
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!