不用ASCII，把字符串分成单个汉字或其余单字节字符

菜卷鱼

1. ;;;;;字符串粉碎;;;;;;;;;;by 菜卷鱼 2021.01.28
   
2. (defun smash (str / l s g1 mash)
   
3.   (setq l (strlen str))
   
4.   (setq s 1)
   
5.   (while (<= s l)
   
6.     (setq g1 (substr str s 1))
   
7.     (if  (wcmatch (vl-prin1-to-string g1) "*`?")
   
8.       (setq g1 (substr str s 2)
   
9.       s  (+ s 2)
   
10.       )
    
11.       (setq s (1+ s))
    
12.     )
    
13.     (setq mash (cons g1 mash))
    
14.   )
    
15.   (reverse mash)
    
16. )

;;;;;字符串粉碎;;;;;;;;;;by 菜卷鱼 2021.01.28<br /> (defun smash (str / l s g1 mash)<br />   (setq l (strlen str))<br />   (setq s 1)<br />   (while (<= s l)<br />     (setq g1 (substr str s 1))<br />     (if  (wcmatch (vl-prin1-to-string g1) "*`?")<br />       (setq g1 (substr str s 2)<br />       s  (+ s 2)<br />       )<br />       (setq s (1+ s))<br />     )<br />     (setq mash (cons g1 mash))<br />   )<br />   (reverse mash)<br /> )

举例：(smash "嗯嗯，吃早餐的时候，买点可乐，你*#@！……&*）")
返回：("嗯" "嗯" "，" "吃" "早" "餐" "的" "时" "候" "，" "买" "点" "可" "乐" "，" "你" "*" "#" "@"
"！" "…" "…" "&" "*" "）")

菜卷鱼

还是用正则保险一点，substr 容易报错

1. (defun charset (str1 / lst matchcollect reg)
   
2.   (setq reg (vlax-create-object "vbscript.regexp"))    ;创建正则表达式
   
3.   (vlax-put-property reg 'global -1)        ;是否匹配全部 （-1是 ，0 不是）
   
4.   (vlax-put-property reg 'Multiline -1)        ;是否多行匹配 （-1是 ，0 不是）
   
5.   (vlax-put-property reg 'IgnoreCase -1);忽略大小写 （-1是 ，0 不是）
   
6.   (vlax-put-property reg 'pattern "[^\W]")
   
7.   (if (vlax-invoke-method reg 'test str1)
   
8.     (progn (setq matchcollect (vlax-invoke-method reg 'Execute str1))
   
9.            (vlax-for match_item        matchcollect
   
10.              (setq
    
11.                lst (cons (eval (vlax-get-property match_item 'value)) lst)
    
12.              )
    
13.            )
    
14.     )
    
15.   )
    
16.   (vlax-release-object reg)                ;释放内存
    
17.   (reverse lst)
    
18. )

(defun charset (str1 / lst matchcollect reg)<br />   (setq reg (vlax-create-object "vbscript.regexp"))    ;创建正则表达式<br />   (vlax-put-property reg 'global -1)        ;是否匹配全部 （-1是 ，0 不是）<br />   (vlax-put-property reg 'Multiline -1)        ;是否多行匹配 （-1是 ，0 不是）<br />   (vlax-put-property reg 'IgnoreCase -1);忽略大小写 （-1是 ，0 不是）<br />   (vlax-put-property reg 'pattern "[^\W]")<br />   (if (vlax-invoke-method reg 'test str1)<br />     (progn (setq matchcollect (vlax-invoke-method reg 'Execute str1))<br />            (vlax-for match_item        matchcollect<br />              (setq<br />                lst (cons (eval (vlax-get-property match_item 'value)) lst)<br />              )<br />            )<br />     )<br />   )<br />   (vlax-release-object reg)                ;释放内存<br />   (reverse lst)<br /> )

jun353835273

你是怎么发现的，我电脑返回("? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "? "*" "#" "@" "?

wrf610051

请问与字体文件有关吗？我的电脑返回：
("嗯" "嗯" "，" "吃" "早" "餐" "的" "时" "候" "，" "买" "点" "可" "乐" "，" "你" "*" "#" "@"
"！" "\\" "U" "+" "2" "0" "2" "6" "\\" "U" "+" "2" "0" "2" "6" "&" "*" "）")

菜卷鱼

wrf610051 发表于 2021-1-30 07:20
请问与字体文件有关吗？我的电脑返回：
("嗯" "嗯" "，" "吃" "早" "餐" "的" "时" "候" "，" "买" "点" " ...

哈哈哈，你们应该是从当行或者多行文字里直接读取的文字吧？？