如何判断一段文本是国标（GB）码还是大五码（BIG5)。 |
|
答題得分者是：Rain
|
|
jacksee
一般會員   發表：9 回覆：7 積分：3 註冊：2003-02-13 發送簡訊給我 |
|
|
Rain
資深會員  發表：31 回覆：236 積分：268 註冊：2003-02-17 發送簡訊給我 |
//判斷方法大抵如下（這邊只作單個漢字的判斷，進一步的需求自己可再更改下面的函數）
function IsGB(const S: string);
var
c1, c2: Byte;
begin
c1 := Ord(S[1]);
c2 := Ord(S[2]);
if (c1 > 160) and (c2 > 160) then //是否漢字
begin
//GB 前後內碼均大於08x0
//BIG5 一個大於08x0 一個大於04x0
if (c1 > $80) and (c2 > $80) then
Result := True
else
//BIG5
end;
end;
end;
|
發表時間：2003-03-11 14:00:35
IP:211.96.xxx.xxx 未訂閱
系統時間：2024-05-11 0:11:22
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |