字符串按"{"分解

QiaoCheng · 发表于 2013-6-1 12:37:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

弄了好久晕呼呼的，没办法，只好求高手了
怎样分解？
"{setq pickcircle {list '{0 . \"CIRCLE\"} '{8 . \"0\"} ;End_setq"
==>
"{setq pickcircle" "{list" "'{0 . \"CIRCLE\"}" "'{8 . \"0\"}" ";End_setq"

Free-Lancer · 发表于 2013-6-1 12:47:46

规则不明确来自: Android客户端

QiaoCheng · 发表于 2013-6-1 13:03:13

Free-Lancer 发表于 2013-6-1 12:47
规则不明确

是在搞个批量格式LSP文件
但到这步就卡住了
能不能根据"{" 或 " ' "来分解，难道真的无解

Lispboy · 发表于 2013-6-1 13:06:21

QiaoCheng 发表于 2013-6-1 13:03
是在搞个批量格式LSP文件
但到这步就卡住了
能不能根据"{" 或 " ' "来分解，难道真的无解

正则表达式处理，找匹配字符之间的。

Gdlprfcu · 发表于 2013-6-1 13:48:09

这是我自用分解字符串的，将字符串根据给定字符串分解成表并返回。
[sell=1]

(defun StampingDie_Split(STR S / strls n gh)
(setq gh(strlen str))
(while (setq n(vl-string-search s str))
(if(> n 0)
(setq strls(append strls (list(substr str 1 n ))))
)
(setq str(substr str (+ n (strlen s) 1)(strlen str)))
)
(if(and(> gh (strlen str))(/= str ""))
(setq strls(append strls (list str)))
)
(if(= gh (strlen str))(setq strls(list str)))
strls
)

[/sell]

taner · 发表于 2013-6-1 15:02:57

;;; 定界符分割文字成表,定界符不去掉
(DEFUN BQ-STR-SPLIT (STR DELIMITER / POS STRLST STR-N)
(WHILE (SETQ POS (VL-STRING-POSITION (ASCII DELIMITER) STR))
(SETQ STR-N (SUBSTR STR 1 (1+ POS))
STR (SUBSTR STR (+ 2 POS))
)
(IF (/= STR-N "")
(SETQ STRLST (CONS STR-N STRLST))
)
)
(IF (/= STR "")
(SETQ STRLST (CONS STR STRLST))
)
(REVERSE STRLST)
)

QiaoCheng · 发表于 2013-6-1 15:12:57

5、6楼好程序
"{" "setq pickcircle " 还是拆开了
没关系，只能变通下了

freeok2013 · 发表于 2013-11-24 22:39:35

taner 发表于 2013-6-1 15:02

大哥，我想知道您这个函数我要怎么调用才行呢？比如我想要分割 "8-9-10" 得到 "8" "9" "10". 能帮下我吗？谢谢！

cooolsee · 发表于 2014-5-8 21:38:17

学习中，进步中，高手如云

账号		自动登录	找回密码
密码			立即注册

[求助] 字符串按"{"分解

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

评分

评分

点评

评分