[讨论]：是否可以如此判断s是一个中文还是英文字？

libo2000

(defun isCh ( s / s1)  
  (setq s1 (substr s 1 1)
          s1 (strcat s1 " " "*")
  )
(wcmatch s s1)
);endfun
是否可以如此判断s是一个中文还是英文字？

xcajcj

可用“ASCII”函数试一试，该函数返回字符串中的第一个字符的ASCII值。如：
(ascii "A")             返回65
(ascii "汉")            返回214

aeo

最初由 libo2000 发布
[B](defun isCh ( s / s1)  
  (setq s1 (substr s 1 1)
          s1 (strcat s1 " " "*")
  )
(wcmatch s s1)
);endfun
是否可以如此判断s是一个中文还是英文字？ [/B]

工具箱里的

2. 
   
3. ;|
   
4.    判断一个字符串里面是否包含汉字
   
5. |;
   
6. (defun $xdlsp_text_hashz (str / cha tf)
   
7.   (setq tf nil
   
8.         i 1
   
9.   )
   
10.   (while (and
    
11.            (not tf)
    
12.            (/= "" (setq cha (substr str i 1)))
    
13.          )
    
14.     (if (> (ascii cha) 159)
    
15.       (setq tf t)
    
16.     )
    
17.     (setq i (1+ i))
    
18.   )
    
19.   tf
    
20. )

<br /> ;|<br />    判断一个字符串里面是否包含汉字<br /> |;<br /> (defun $xdlsp_text_hashz (str / cha tf)<br />   (setq tf nil<br />         i 1<br />   )<br />   (while (and<br />            (not tf)<br />            (/= "" (setq cha (substr str i 1)))<br />          )<br />     (if (> (ascii cha) 159)<br />       (setq tf t)<br />     )<br />     (setq i (1+ i))<br />   )<br />   tf<br /> )

ascii 值大于159就为汉字.
注意:如果是汉字就要读两个字节

ll_j

准确的说，判断一个字符是否是汉字还是比较难的。汉字由两个字节组成，在GB_2312中定义了一、二级字库及部分特殊符号，两个字节的编码开始都在ascii码160位置，只需按此条件判断即可。GB_13000.1发布后编码大大扩展（就是我们使用的“宋体”等，包含大量生僻字符），汉字首个字符为“丂”，编码为“8140”，就是ascii码的129-064，如果考虑这些，判断时与西文字符有些冲突就需要解决。现在GB_18030已经发布，字符扩展到四字节，至今无法搞清楚，也不敢多讲。
总之，一般可以考虑按GB_2312判别，只是需要知道会有那些问题。

libo2000

同意楼上的说法
电脑这个东西本来就是老外，不支持汉字很正常，
支持了才不正常了呢。用Ascii吗来判断，怎么说都好象不对，
每一个都有可能是西文字，只是平常用的字很难涉及到而已，
老外为什么就不能定义１６０、１６１的两个连续的怪东西？
(defun isCh ( s / s1)
(setq s1 (substr s 1 1)
s1 (strcat s1 " " "*")
)
(wcmatch s s1)
);endfun
一般情况能判断他是否汉字，但是我不清楚
wcmatch函数的原理（判断ascii?），就不知道isCh到底正确不。

我写了几个中文的str_pos，str_insert,str_substr，都依靠它来判断，在一般情况下，看不出有问题，但总是觉得不塌实。