怎样判断一个字符串中不能包括除汉字以外的字符？

[aiq]

字符串中除了汉字，不能有其他字符，比如字母，标点符号等，怎样写个函数，有就返回1，没有就返回0

[lhy]

按照汉字的范围一个字符一个字符的核对

[namoemitoufo]

用正则表达式撒。。。。

var str=document.getElementById("name").value;
var reg = /^[\u4e00-\u9fa5]+$/i;
if (!reg.test(str))
{
alert("请输入中文名字！");

return 1;
}
return 0;

[lyhoo163]

汉字是双字节（Byte）组成，第一字节的属性是mbLeadByte。由此可以测定字符串中有多少汉字。

function ChineseS(S:string):integer;
var s:string;
i,k:integer;
begin
result:=0;
k:=0;
for i:=1 to length(S) do
if (ByteType(S,i)=mbLeadByte) then K:=K+1;
result:=K;
end;

[bdmh]

function HasHz(s: string): Integer;
var
  i:Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
  begin
    if Ord(s[i])<128 then
    begin
      Result := 1;
      Break;
    end;
  end;
end;

[Waldenz]

没c#版 的???

[ai0fan]

function HasHz(s: string): Integer;
const
  CN_NUMBER = '1234567890１２３４５６７８９０';
  CN_LETTER =
    ' ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ' +
    ' ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ' +
    ' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
//基本上常用的就是这些符号、不够的时候再加
  CN_SIGN = '^.,/\[]!@#%&*()_+<>?:"{}|`-=~$;'''
    + '．，／＼［］！＠＃％＆＊（）＿＋＜＞？：＂｛｝｜｀－＝～＄；＇。';
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
  begin
    if Ord(s[i]) < 128 then //过滤单字节
    begin
      Result := 1;
      Break;
    end
    else if Pos(s[i], CN_NUMBER) > 0 then //数字
    begin
      Result := 1;
      Break;
    end
    else if Pos(s[i], CN_LETTER) > 0 then //字母
    begin
      Result := 1;
      Break;
    end
    else if Pos(s[i], CN_SIGN) > 0 then //符号
    begin
      Result := 1;
      Break;
    end
  end;
end;

[winstonbonaparte]

[Quote=引用 5 楼 enter89 的回复:]

没c#版 的???
[/Quote]
自己把这代码翻译成C#的啊

[亮剑_]

1、确认汉字编码
2、每种编码都有一个码的范围，且一般都是连续的
据此判定

[aiq]

谢谢各位，但测试还有问题，比如汉字 “玥”

上面各位给出的都认为这个不是汉字

[麦客来了]

如果只获得包含不包含的结果，那就这样看行不行。

function check(const src: string): Boolean;
begin
  Result := Length(WideString(Trim(src))) = Length(AnsiString(Trim(src))) div 2;
end;

[Harryfin]

[Quote=引用 10 楼 biekvn 的回复:]

如果只获得包含不包含的结果，那就这样看行不行。

Delphi(Pascal) code

function check(const src: string): Boolean;
begin
Result := Length(WideString(Trim(src))) = Length(AnsiString(Trim(src))) div 2;
end;
[/Quote]
不行的，全角字符是2字节

[ai0fan]

[Quote=引用 9 楼 aiq 的回复:]
谢谢各位，但测试还有问题，比如汉字 “玥”

上面各位给出的都认为这个不是汉字
[/Quote]

function HasHz(s: widestring): Integer;
方法内容不变