高手能不能举几个有关正则表达式在和lisp的简单应用

YAOSHIWEI

高手能不能举几个有关正则表达式在和lisp的简单应用，最好是实例，求助，在网上找了半天没有找到，几个小例子

zhong879

YAOSHIWEI 发表于 2012-5-31 19:42
(if (setq dwmjgl  (getreal "\n请输入单位面积功率(kW)"))
           (setq dwmjgl dwmjgl)
         ...

如果没有输入 dwmjgl 的值，默认设置为0.08

mccad

正则表达式在LISP中的使用，在论坛里已经有不少的例子了，你可以使用论坛的搜索功能，搜索“正则”。

firstinti

你可以看看无痕大虾的“一刀屠文”就清楚了

print1985

我来给你贴一段
(defun C:js2 (/ dwmjgl ss n i ent ob mianji gonglv regex)
  (setq regex (vlax-create-object "Vbscript.RegExp"));引用正则表达式控件
  (vlax-put-property regex "IgnoreCase" 0); 不忽略大小写
  (vlax-put-property regex "Global" 1);全文匹配，而不是只匹配第一处
  (if (setq dwmjgl  (getreal "\n请输入单位面积功率<默认0.08>(kW)"))
          (setq dwmjgl dwmjgl)
          (setq dwmjgl 0.08)
         )
  (if (setq ss (ssget '((0 . "TEXT"))))
  (progn
  (setq n (sslength ss))
  (setq i (- n 1))
  (repeat n
        (setq ent (ssname ss i)) ;图元名称
        (setq ob (vlax-ename->vla-object ent));转换
        (setq mianji (cdr (assoc 1 (entget ent)))) ;门市面积
        (vlax-put-property regex "Pattern" "[^0-9\\.]");正则表达式，提取0~9和.
        (setq mianji (atof (vlax-invoke-method  regex "Replace" mianji "")));提取对象为mianji字符串
        (setq gonglv (rtos (* mianji dwmjgl) 2 1));将面积换算为功率
        (vlax-put-property ob 'TextString gonglv) ;改变特性
        (setq i (1- i))
  )
))
(princ)
)

YAOSHIWEI

那个比较乱，看不懂得，我已经晓得每个字符意思了，但不知道具体如何应用，明总讲的那几个太深了，明总能不能讲几个比较简单的，求助

print1985

  关键几句就是
(setq regex (vlax-create-object "Vbscript.RegExp"));引用正则表达式控件
(vlax-put-property regex "IgnoreCase" 0); 不忽略大小写
(vlax-put-property regex "Global" 1);全文匹配，而不是只匹配第一处

(vlax-put-property regex "Pattern" "[^0-9\\.]");正则表达式，提取0~9和.
(setq mianji (atof (vlax-invoke-method  regex "Replace" mianji "")));提取对象为mianji字符串

qincccken

好深啊,俺没学过呢,看不懂,得好好学习才行

qq229918602

想问一下什么叫正则运算？？？？

print1985

YAOSHIWEI 发表于 2012-5-30 20:06
大哥，你那个具体是怎么用的，

YAOSHIWEI

print1985 发表于 2012-5-30 20:03
我来给你贴一段
(defun C:js2 (/ dwmjgl ss n i ent ob mianji gonglv regex)
  (setq regex (vlax-creat ...

大兄弟，这个具体是怎么用的，谢谢，能干什么