[LISP程序]：请问怎样在文本文件中提取数值信息？

north911 · 发表于 2004-12-17 08:27:22

提示: 作者被禁止或删除内容自动屏蔽

ski · 发表于 2004-12-17 10:08:08

;;;°´¶ººÅ·Ö¸î³ÉÁÐ±í
(defun sep_line(st / l n str1 str0 strlist)
  (setq l (strlen st)
n 1
str1 ""
strlist ()
)
  (repeat l
(setq st0 (substr st n 1)
   n (1+ n))

(if (= st0 ",")
   (progn
(setq strlist (append strlist (list str1)))
(setq str1 "")
   )
   (if (= " " str0)()(setq str1 (strcat str1 st0)))
)

  )
  (setq strlist (append strlist (list str1)))
  strlist
)

north911 · 发表于 2004-12-19 09:00:03

提示: 作者被禁止或删除内容自动屏蔽

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

north911 north911 当前离线 UID 186781 积分 144 精华贡献威望活跃度 D豆在线时间小时注册时间 2004-10-25 最后登录 1970-1-1 窥视卡雷达卡	发表于 2004-12-17 08:27:22 \| 显示全部楼层 \|阅读模式【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	相关帖子 • [求助]：，怎样用VB提取autocad中的截面几何特性？ • [编程申请]：有没有提取坐标的程序 • [求助]：vb 提取面域的边界坐标 • [LISP函数]：用lisp怎么提取块的名？ • 帮写个提取地形图中展点号的程序 • 求助大家一个这样对象的属性lisp • LEE MAC作品之“纯lisp在不打开图纸情况下提取其内属性块” • 按提取数据改变圆的直径！ • 按提取数据改变圆的直径！ • 再问GRID。。论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报提升卡置顶卡沉默卡变色卡千斤顶

north911 north911 当前离线 UID 186781 积分 144 精华贡献威望活跃度 D豆在线时间小时注册时间 2004-10-25 最后登录 1970-1-1 窥视卡雷达卡	楼主\| 发表于 2004-12-19 09:00:03 \| 显示全部楼层【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[LISP程序]：请问怎样在文本文件中提取数值信息？

相关帖子

浏览过的版块