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

陌生人 · 发表于 2003-12-20 23:17:56

恩,这里提出一个问题: 如何判别一个字符串是否可以转换为数?
如: "1.2"->1.2
".3"->0.3 "1e-3"->1e-003 "-.7"->-0.7

cjrun · 发表于 2004-2-24 18:13:22

如何实现下面的问题：
"asss-122aa22."---->("asss" "-" "122" "aa" "22" ".")

陌生人 · 发表于 2004-2-24 21:28:13

有什么意义，用在什么地方？能说说么？

aeo · 发表于 2004-2-24 23:19:48

最初由 zhang8755 发布
[B]只需作如下修改
[CODE]

(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... [/B]

应该把要分割的字符做变量.
这样就不要老变了.

我前面写过的，就是只能以"一窜字符"分，不能把"很多字符"同时分,应该是str-cut.

(defun str_to_list(str to-cut / ...
to-cut -->可以是";:?..."
把str先转成ascii就方便了

lsjjm · 发表于 2004-2-26 10:05:22

字符串特别分割符要有一般的规定性, 否编程没有什么意义.

e2002 · 发表于 2004-2-27 10:59:15

最初由陌生人发布
[B]恩,这里提出一个问题: 如何判别一个字符串是否可以转换为数?
如: "1.2"->1.2
".3"->0.3 "1e-3"->1e-003 "-.7"->-0.7 [/B]

(if (distof sInput) T nil)

可以达到你要求吗?

LUCAS · 发表于 2004-3-1 12:27:32

(mapcar 'atof (list "1.2" ".3" "1e-3" "-.7"))

swaywood · 发表于 2004-11-18 22:27:19

如何将
"晓晓11东2论3坛4坛a1.0ab5"
转换为：
("晓晓" "11" "东" "2" "论" "3" "坛" "4" "坛a" "1.0" "ab" "5" )

lsjjm · 发表于 2004-11-21 11:04:40

最初由 swaywood 发布
[B]如何将"晓晓11东2论3坛4坛a1.0ab5"转换为：("晓晓" "11" "东" "2" "论" "3" "坛" "4" "坛a" "1.0" "ab" "5" ) [/B]

REFER TO:
http://www.xdcad.net/forum/showthread.php?s=&threadid=296234

silen618 · 发表于 2004-11-22 14:35:58

可以直接将“分割字符”如“,”替换成""。
如：
(read (strcat "(" (vl-string-translate "," " " "dsf,fhd,dfh,dfgk,fj,kf") ")"))
返回：
(DSF FHD DFH DFGK FJ KF)
只是不能解决变为大写的问题。

f4800 · 发表于 2020-11-2 12:59:24

如何直接以 lsp加载方式执行？

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