1,183
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
wuzuoshen 2007-04-07
- 打赏
- 举报
10
skertone 2006-12-20
- 打赏
- 举报
用正则表达式
所有西文单词 \b(\w+)\s+
所有GB2312-80编码
([\xA1-\xFE][\xA1-\xFE])+
所有西文单词 \b(\w+)\s+
所有GB2312-80编码
([\xA1-\xFE][\xA1-\xFE])+
超级大笨狼 2006-12-15
- 打赏
- 举报
http://community.csdn.net/Expert/topic/5232/5232012.xml?temp=.9141962
[超级大笨狼]提供三万单词库备份下载，MS-SQL 2000格式，下载请“自觉”捐赠可用分给我。
[超级大笨狼]提供三万单词库备份下载，MS-SQL 2000格式，下载请“自觉”捐赠可用分给我。
keyz 2006-06-07
- 打赏
- 举报
简单的判断
if char>128 then 中文 else 英文
if char>128 then 中文 else 英文
xixuemao 2006-06-07
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
s: Widestring;
i: integer;
begin
s:= '啊ab从d';
begin
for i:= 0 to Length(s) do
if (Ord(s[i]) >= 33) And (Ord(s[i])<=126) then
begin
showmessage('英文');
end
else
if (Ord(s[i]) >= 127) then
begin
showmessage('中文');
end;
i:= i+1;
end;
end;
var
s: Widestring;
i: integer;
begin
s:= '啊ab从d';
begin
for i:= 0 to Length(s) do
if (Ord(s[i]) >= 33) And (Ord(s[i])<=126) then
begin
showmessage('英文');
end
else
if (Ord(s[i]) >= 127) then
begin
showmessage('中文');
end;
i:= i+1;
end;
end;
