[分享]：我编的字符串转化为表的子程序

zhang8755 · 发表于 2003-12-18 19:53:22

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

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

×

;将一行字符串转为表,逗号分隔,并取掉双引号

[FONT=courier new]
(defun str_to_list(str / i one l strl)
(setq one "")
(setq strl (strlen str))
(setq i 1)
(while (<= i strl)
(if (/= "," (substr str i 1))
(setq one (strcat one (substr str i 1)))
(progn
(if (= "." (substr one 1 1))
(setq one (strcat "0" one))
)
(setq l (append l (list (read one))))
(setq one "")
)
)
(setq i (1+ i))
)
(if (= "." (substr one 1 1))
(setq one (strcat "0" one))
)
(setq l (append l (list (read one))))
l
)
[/FONT]

lsjjm · 发表于 2003-12-19 10:34:01

也贴一个, 以空格分隔:

(defun c:test (str / sl pos)
  (setq str (strcat str " "))
  (while (> (strlen str) 1)
(setq pos (vl-string-search " " str))
(if pos
   (setq sl (append sl (list (substr str 1 pos)))
         str (substr str (+ 2 pos)))
)
  )
  sl
)

陌生人 · 发表于 2003-12-19 14:29:24

其实如果字符以空格分隔的话,转换为表是最好写的了.呵呵

运用两个lsp函数,最多只要用两行, 就可写出 ................谁先来试试? 如果过两天还没人知道我是怎么做的,那时再贴出我的程序.
至于逗号分隔的嘛,我想大概3,4行就能写出吧,还没试:)

如:
"两个lsp 函数最多只要用两行 1515 858.56 e85" ->(两个lsp 函数最多只要用两行 1515 858.56 e85)

zhang8755 · 发表于 2003-12-19 14:46:39

如下：
(READ (STRCAT "(" STR ")"))

lsjjm · 发表于 2003-12-19 15:07:02

最初由陌生人发布
[B]其实如果字符以空格分隔的话,转换为表是最好写的了... [/B]

将程序中的" " 换成","即可以处理逗号分隔的!

陌生人 · 发表于 2003-12-19 19:08:51

最初由 zhang8755 发布
[B]如下：
(READ (STRCAT "(" STR ")")) [/B]

对了

lsjjm · 发表于 2003-12-20 03:33:58

可是(READ (STRCAT "(" STR ")")) 只能用于空格符分割的呀?

on/off · 发表于 2003-12-20 08:35:41

明经的函数，里面有现成的。包括串-〉表和表-〉串。

陌生人 · 发表于 2003-12-20 10:46:43

我觉得应该给 zhang8755 加币鼓励
lsjjm ,没错,这是个特例. 只有在分隔符含有空格的时候,这个写法才成立.之所以说是'含有",如分隔符列特征字符串 " ; . -" 都可处理,条件是分隔符转为空格的时候分隔都复合要求,否则,这样的写法就不成立了.

楼上的,不仅明经里面有这样的函数,其他还有很多.我们在这里不是讨论如何实现,而是讨论如何编程实现,不过还是谢谢

zhang8755 · 发表于 2003-12-20 11:39:51

我的上述程序中如下三行是用来处理以点开头的浮点数，在前面补个零。因为lisp中不允许数值以点开头，以免和点对表混淆。
(if (= "." (substr one 1 1))
(setq one (strcat "0" one))
)

lsjjm · 发表于 2003-12-20 12:55:51

这样写可能清楚些:
str- 字符串 div-任意分隔符(CAD有效的)
(defun str2list (str div / sl pos)
  (setq str (strcat str div))
  (while (> (strlen str) 1)
(setq pos (vl-string-search div str))
(if pos
   (setq sl (append sl (list (substr str 1 pos)))
         str (substr str (+ 2 pos)))
)
  )
  sl
)

陌生人 · 发表于 2003-12-20 16:23:14

完善下,写一个支持分割符串的吧
如: ";, " 对用; , (空格) 分隔的字符串转换为表

另外:用(str2list "12 啊;1.1,;; ,1,,a" ";")
返回:("12 啊" "1.1," "" " ,1,,a")
有两个" " ,应该做个判断避开

我晚上贴我的程序:)
(str2lst "12 啊;1.1,;; ,1,,a" " ;,")
返回:("12" "啊" "1.1" "1" "a")

zhang8755 · 发表于 2003-12-20 18:17:22

只需作如下修改

[FONT=courier new]
(defun str_to_list(str / i one l strl)
(setq one "")
(setq strl (strlen str))
(setq i 1)
(while (<= i strl)
(if (and (/= ";" (substr str i 1))(/= "," (substr str i 1))
(/= ":" (substr str i 1))(/= " " (substr str i 1)))
(setq one (strcat one (substr str i 1)))
(progn
(if (= "." (substr one 1 1))
(setq one (strcat "0" one))
)
(setq l (append l (list (read one))))
(setq one "")
)
)
(setq i (1+ i))
)
(if (= "." (substr one 1 1))
(setq one (strcat "0" one))
)
(setq l (append l (list (read one))))
l
)
[/FONT]

增加对空格的支持

陌生人 · 发表于 2003-12-20 18:31:04

反映好快,很好:)
测试了楼上的
"12 啊;1.1,;; ,.1,,a"
返回:
(12 1.1 nil nil nil 0.1 nil A)

另外提出一个:用read后,小写变大写了.谁考虑下如何保持原貌?

zhang8755 · 发表于 2003-12-20 18:43:27

小写变大写了的问题还没想出好办法

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

[分享]：我编的字符串转化为表的子程序

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

相关帖子