[求助]：各位帮帮忙！如何在lisp中判断文字内容是否为中文（大字体）？

haijiangl

先在这里谢过了！

eachy

最初由 haijiangl 发布
[B]先在这里谢过了！ [/B]

转贴晓东工具箱。

2. <normalfont>
   
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. )
    
21. </normalfont>
    

<normalfont><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 /> )<br /> </normalfont><br />

haijiangl

双眼含着泪水：太感谢了！（握手并颤抖）

PFD8667

我真需要,谢谢!

雪山飞狐(lzh)

Mtext里可以用\U+XXXX的形式输出汉字（我见到有的图里是这样的），是不是也要判断一下？