多应用+插件架构,代码干净,二开方便,首家独创一键云编译技术,文档视频完善,免费商用码云13.8K 广告
autolisp中的主要字符串处理函数如下: String-handling functions |函数|说明|示例| |-|-|--| |(read*\[string\]*)|从字符串中获取第一个列表或原子| |(strcase*string \[which\]*)|将字符串的字符全部转化为大写或小写| |(strcat*\[string1 \[string2 ...\]*)|将多个字符串连接为一个字符串| |(strlen*\[string ...\]*)|返回字符串包含的字符的个数| |(substr*string start \[length\]*)|返回字符串的子字符串| |(vl-prin1-to-string*object*)|返回lisp对象的字符串表示,就好象这个对象是用prin1 函数打印出的一样| |(vl-princ-to-string*object*)|返回lisp对象的字符串表示,就好象这个对象是用princ 函数打印出的一样| |(vl-string->list*string*)|返回由字符串的每个字符的字符代码构成的列表| |(vl-string-elt*string position*)|返回一个字符串的指定位置的某个字符的ascii码| |(vl-string-left-trim*character-set string*)|去除字符串开始的指定字符| |(vl-string-mismatch*str1 str2 \[pos1 pos2 ignore-case-p\]*)|返回两个字符串从指定位置开始的最长相同前缀的长度| |(vl-string-position*char-code str \[ start-pos \[from-end-p\]\]*)|在字符串中查找具有指定ascii码的字符| |(vl-string-right-trim*character-set string*)|在字符串末尾去除指定字符| |(vl-string-search*pattern**string*\[*start-pos*\])|在字符串中查找指定的字符串| |(vl-string-subst*new-str pattern string \[start-pos\]*)|在一个字符串中,将一个子串替换为另一个子串| |(vl-string-translate*source-set dest-set str*)|直接看示例|命令:(vl-string-translate "abcABC" "123123" "A is a, B is b, C is C")<br>"1 is 1, 2 is 2, 3 is 3"<br>命令:(vl-string-translate "abc" "123" "A is a, B is b, C is C")<br>"A is 1, B is 2, C is 3"| |(vl-string-trim*char-set str*)|在字符串的开头和末尾去除指定字符|| |(wcmatch*string pattern*)|对字符串进行通配符式的匹配||