将文字、数字、字母分解成表

CAD智能@未来

1. 将文字、数字、字母分解成表
   
2. (CSY:String:Spl  “明经CAD论坛”）
   
3. 输出：("明" "经" "C" "A" "D" "论" "坛"）
   
4. (CSY:String:Spl2  "明经CAD论坛")
   
5. 输出：("明经" "CAD" "论坛")

复制代码

2. (defun CSY:String:Spl (str / lst rslt x)
   
3.   (setq lst  (vl-string->list str))
   
4.   (setq rslt nil)
   
5.   (while (setq x (car lst))  
   
6.     (if (<= x 127)
   
7.     (setq rslt (cons (vl-list->string (list x)) rslt))
   
8.     (progn
   
9.       (setq rslt (cons (vl-list->string (list x (cadr lst))) rslt))
   
10.       (setq lst (cdr lst))
    
11.     )   
    
12.     )
    
13.     (setq lst (cdr lst))
    
14.   )
    
15.   (reverse rslt)
    
16. )
    
17. (defun CSY:String:Spl2 (str / lst rslt str_lst x mart)
    
18.   (setq lst  (vl-string->list str))
    
19.   (setq str_lst nil)
    
20.   (setq rslt nil)  
    
21.   (if (<= (car lst) 127)
    
22.     (setq mart 0)  
    
23.     (setq mart 1)
    
24.     )
    
25.   (while (setq x (car lst))  
    
26.   (cond
    
27.     ((and (<= x 127) (= mart 0))
    
28.       (setq str_lst (cons x str_lst))
    
29.     )  
    
30.     ((and (<= x 127) (= mart 1))
    
31.       (setq rslt (cons (vl-list->string (reverse str_lst)) rslt))
    
32.       (setq str_lst (list x))
    
33.       (setq mart 0)
    
34.     )
    
35.     ((and (> x 127) (= mart 0))
    
36.       (setq rslt (cons (vl-list->string (reverse str_lst)) rslt))
    
37.       (setq str_lst (list x))
    
38.       (setq mart 1)
    
39.     )
    
40.     ((and (> x 127) (= mart 1))
    
41.       (setq str_lst (cons x str_lst))
    
42.     )              
    
43.     (t      
    
44.     )   
    
45.   )
    
46.   (setq lst (cdr lst))
    
47.   )
    
48.   (reverse (cons (vl-list->string (reverse str_lst)) rslt))
    
49. )

(defun CSY:String:Spl (str / lst rslt x)<br />   (setq lst  (vl-string->list str))<br />   (setq rslt nil)<br />   (while (setq x (car lst))  <br />     (if (<= x 127)<br />     (setq rslt (cons (vl-list->string (list x)) rslt))<br />     (progn<br />       (setq rslt (cons (vl-list->string (list x (cadr lst))) rslt))<br />       (setq lst (cdr lst))<br />     )   <br />     )<br />     (setq lst (cdr lst))<br />   )<br />   (reverse rslt)<br /> )<br /> (defun CSY:String:Spl2 (str / lst rslt str_lst x mart)<br />   (setq lst  (vl-string->list str))<br />   (setq str_lst nil)<br />   (setq rslt nil)  <br />   (if (<= (car lst) 127)<br />     (setq mart 0)  <br />     (setq mart 1)<br />     ) <br />   (while (setq x (car lst))  <br />   (cond<br />     ((and (<= x 127) (= mart 0))<br />       (setq str_lst (cons x str_lst))<br />     )  <br />     ((and (<= x 127) (= mart 1))<br />       (setq rslt (cons (vl-list->string (reverse str_lst)) rslt))<br />       (setq str_lst (list x))<br />       (setq mart 0)<br />     )<br />     ((and (> x 127) (= mart 0))<br />       (setq rslt (cons (vl-list->string (reverse str_lst)) rslt))<br />       (setq str_lst (list x))<br />       (setq mart 1)<br />     )<br />     ((and (> x 127) (= mart 1))<br />       (setq str_lst (cons x str_lst))<br />     )              <br />     (t      <br />     )    <br />   )<br />   (setq lst (cdr lst))<br />   )<br />   (reverse (cons (vl-list->string (reverse str_lst)) rslt))<br /> )

CAD智能@未来

jinan1913 发表于 2024-8-28 09:23
最后是汉字好像有BUG。
(CSY:String:Spl  “明经CAD论坛”）
("明" "经" "C" "A" "D" "论")

没注意，感谢指正，已更新代码

CAD智能@未来

muai2010 发表于 2024-8-21 20:50
(CSY:String:Spl  “明经** CAD *论坛”）
("明经  " "CAD" " 论坛")能否输出这样的，三个字符中间有空格 ...

你说这个可以在表循环的时候做一个ASCII值的标记（如同为数字、字母、文字等），后续元素与标记一致，就将元素都加入lst1中，若不一致，将标记更新后将lst1转成字符后加入到LST中，并将lst1重置，添加新元素，依次循环即可，其实这个函数功能很简单，主要还是分享思路，想要的组合都可以利用ascii不同的值代表不同的含义（数字或是字母文字）任意组合，也可以利用这个特点做字母递增的函数。
一、ASCII 值的基本范围及用途
ASCII 值 0 - 31：
通常为控制字符，如换行符（10）、回车符（13）等，一般不会直接显示在图形中，主要用于控制数据的传输和处理。
ASCII 值 32 - 126：
包括常见的可打印字符，如数字、字母、标点符号等。这些字符可以在 CAD 中的文本注释、尺寸标注等地方使用。
例如，数字 0 - 9 用于表示数值；字母用于标注名称、说明等。
ASCII 值 127 及以上：
通常包括一些扩展字符和特殊字符，在 CAD 中可能会被识别为特定的文字符号或编码，具体含义取决于 CAD 软件的字符集设置和使用的字体。
例如，一些特殊符号、国际字符等可能在这个范围内。

vitalgg

muai2010 发表于 2024-8-21 20:50
(CSY:String:Spl  “明经** CAD *论坛”）
("明经  " "CAD" " 论坛")能否输出这样的，三个字符中间有空格 ...

加载函数

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br />

Klein

这个程序好，当有中英混合的时候先转成表处理方便很多，直接取字符串，如果截取的位置刚好是文字容易乱码

muai2010

(CSY:String:Spl  “明经** CAD *论坛”）
("明经  " "CAD" " 论坛")能否输出这样的，三个字符中间有空格，如果字符有*则表示为空格

muai2010

vitalgg 发表于 2024-8-21 21:54
加载函数

感谢分享，棒

muai2010

CAD智能@未来 发表于 2024-8-22 14:08
你说这个可以在表循环的时候做一个ASCII值的标记（如同为数字、字母、文字等），后续元素与标记一致，就 ...

受教了，好复杂啊，哈哈

ynhh

谢谢老师的好程序

CAD智能@未来

muai2010 发表于 2024-8-22 15:29
受教了，好复杂啊，哈哈

其实也可以在这里下载Gu_xl版主的API ，用API里面的函数，
(XLRX-String-SplitByChEn "dg斯蒂12芬")
     返回'("dg" "斯蒂" "12" "芬")
网址：http://bbs.mjtd.com/thread-113010-1-1.html

muai2010

CAD智能@未来 发表于 2024-8-24 22:23
其实也可以在这里下载Gu_xl版主的API ，用API里面的函数，
(XLRX-String-SplitByChEn "dg斯蒂12芬")
   ...

3Q谢谢