String Split Groups

st788796

Call the function string-split-groups to split a string into a list of strings grouped by ranges of characters found consecutively in the original string. E.g. say you want the alphabetic and numeric characters extracted from a string like "AF023-BZ056" into a list like ("AF" "023" "-" "BZ" "056") for easier manipulations like incrementing.Note: This function uses VisualLisp codes (if existing) which may not be available in your version of CAD. It has only been tested on full AutoCAD 2008-2012 running in Windows XP-32bit & Windows 7 - 64 bit. If your version of CAD does not contain the visual lisp functions required, then a less efficient (AutoLisp-only) method will be used to calculate the groups.
Syntax(string-split-groups <string> <groups>) --> (<grouping1> <grouping2> ... <groupingN>)

Returns a newly created list containing strings grouped by the specified ranges of characters.ArgumentsBoth these arguments are treated as by-value calls. Ensure you don't send quoted symbols as they might be altered inside the function.
<string>Required value of the original string. It can be any of the following:

• A direct coded string like "Test String".
• A variable containing a string.
• The result of a function call as a string value.
  

<groups>Required list containing wcmatch patterns for each group to split the string into. The pattern must be in a form matching a single character. Any characters found in the string, not matching any of the specified groups will be deemed to be in a default group. It can be any of the following:

• A direct quoted list like '("@" "#").
• A variable containing a list.
• A list created from direct coded strings, string results from a function call and / or variables like (list "[- _]" digits (roman-numerals))
• The result of a function call as a list of strings containing these groups.
  

ResultA newly created single dimensional list containing strings extracted from the original string. Each are the consecutive characters matching into a single group.

2. 
   
3. (defun string-split-groups (string groups / temp char last-group result test-groups found
   
4.                            )
   
5.   (if (and vl-position)
   
6.     (defun test-groups (char /)
   
7.       (vl-position
   
8.         t
   
9.         (mapcar (function (lambda (grp) (wcmatch char grp))) groups)
   
10.       )
    
11.     )
    
12.     (defun test-groups (char / n)
    
13.       (setq n 0)
    
14.       (while (and (< n (length groups))
    
15.                   (not (wcmatch char (nth n groups)))
    
16.              )
    
17.         (setq n (1+ n))
    
18.       )
    
19.       (if (< n (length groups))
    
20.         n
    
21.       )
    
22.     )
    
23.   )
    
24.   (if (> (strlen string) 0)
    
25.     (setq last-group (test-groups (setq char (substr string 1 1)))
    
26.           temp       char
    
27.           string     (substr string 2)
    
28.     )
    
29.   )
    
30.   (while (> (strlen string) 0)
    
31.     (if (/= last-group
    
32.             (setq found (test-groups (setq char (substr string 1 1))))
    
33.         )
    
34.       (setq result     (cons temp result)
    
35.             temp       ""
    
36.             last-group found
    
37.       )
    
38.     )
    
39.     (setq temp   (strcat temp char)
    
40.           string (substr string 2)
    
41.     )
    
42.   )
    
43.   (reverse (cons temp result))
    
44. )
    

<br /> (defun string-split-groups (string groups / temp char last-group result test-groups found<br />                            )<br />   (if (and vl-position)<br />     (defun test-groups (char /)<br />       (vl-position<br />         t<br />         (mapcar (function (lambda (grp) (wcmatch char grp))) groups)<br />       )<br />     )<br />     (defun test-groups (char / n)<br />       (setq n 0)<br />       (while (and (< n (length groups))<br />                   (not (wcmatch char (nth n groups)))<br />              )<br />         (setq n (1+ n))<br />       )<br />       (if (< n (length groups))<br />         n<br />       )<br />     )<br />   )<br />   (if (> (strlen string) 0)<br />     (setq last-group (test-groups (setq char (substr string 1 1)))<br />           temp       char<br />           string     (substr string 2)<br />     )<br />   )<br />   (while (> (strlen string) 0)<br />     (if (/= last-group<br />             (setq found (test-groups (setq char (substr string 1 1))))<br />         )<br />       (setq result     (cons temp result)<br />             temp       ""<br />             last-group found<br />       )<br />     )<br />     (setq temp   (strcat temp char)<br />           string (substr string 2)<br />     )<br />   )<br />   (reverse (cons temp result))<br /> )<br />

ExamplesGroup all alphabetic and numerals separate from other characters.
(string-split-groups " B01 - B02" '("@" "#")) ; --> (" " "B" "01" " - " "B" "02")

ynhh

是不是
字符串分割为表

Lisphk

英文看着实在是晕，用谷歌翻译下

===============================================

调用函数string-split-groups将字符串拆分为按原始字符串中连续找到的字符范围分组的字符串列表。例如。假设您希望将字母和数字字符从“AF023-BZ056”这样的字符串中提取到类似（“AF”“023”“ - ”“BZ”“056”）的列表中，以便更轻松地进行操作。注意：此函数使用VisualLisp代码（如果存在）可能在您的CAD版本中不可用。它仅在运行Windows XP-32bit和Windows 7 - 64位的完整AutoCAD 2008-2012上进行了测试。如果您的CAD版本不包含所需的可视化lisp函数，则将使用效率较低（仅限AutoLisp）的方法来计算组。
语法（string-split-groups <string> <groups>） - >（<grouping1> <grouping2> ... <groupingN>）

返回一个新创建的列表，其中包含按指定的字符范围分组的字符串.Arguments这些参数被视为按值调用。确保您不发送带引号的符号，因为它们可能在函数内部被更改。
<string>原始字符串的必需值。它可以是以下任何一种：
直接编码的字符串，如“Test String”。
包含字符串的变量。
函数调用的结果为字符串值。
<groups>包含要将字符串拆分为的每个组的wcmatch模式的必需列表。模式必须采用与单个字符匹配的形式。在字符串中找到的任何字符都不会与任何指定的组匹配，将被视为默认组。它可以是以下任何一种：
直接引用的列表，如'（“@”“＃”）。
包含列表的变量。
从直接编码字符串创建的列表，来自函数调用的字符串和/或类似的变量（列出“[ - _]”数字（罗马数字））
函数调用的结果作为包含这些组的字符串列表。
ResultA一个新创建的单维列表，包含从原始字符串中提取的字符串。每个都是匹配到单个组中的连续字符。

sicky111

翻译成中文就好理解多了。