致N版:亲，请看过来，这个正则肿么了？

/db_自贡黄明儒_ · 发表于 2016-8-26 13:02:31

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

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

×

本帖最后由 /db_自贡黄明儒_ 于 2016-8-26 13:06 编辑

[url=;;http://bbs.xdcad.net/thread-669167-1-1.html]XD::String:RegExpR[/url]
(defun test1 (/ NEW OLD TXT X Y)
  (SETQ txt "5.3A4.5B5.0")
  (setq old '("5.3" "4.5" "5.0"))
  (setq New '("6.30" "5.50" "6.00"))
  (mapcar '(lambda (x y)
         (setq txt (XD::String:RegExpR x txt y ""))
         )
      old
      New
  )
  txt
)
;;(test1)=>"6.30A5.50B6.00"

(defun test2 (/ NEW OLD TXT X Y)
  (SETQ txt "5.3A4.5B5")
  (setq old '("5.3" "4.5" "5"))
  (setq New '("6.30" "5.50" "6.00"))
  (mapcar '(lambda (x y)
         (setq txt (XD::String:RegExpR x txt y ""))
         )
      old
      New
  )
  txt
)
;;(test2)=>"6.30A6.00.6.000B6.00"
我是希望数值都是保留2位，(test1)是行的，(test2)就不行了。结果却令人失望，怎么办？

newer · 发表于 2016-8-26 13:25:28

本帖最后由 newer 于 2016-8-26 13:26 编辑

你的数据，你重复替换了啊，第一个没问题，是因为每个数字都是不同的第二个，替换和被替换的里面都有5，而你mapcar里面把txt修改了，所有带5都替换了。

/db_自贡黄明儒_ · 发表于 2016-8-26 14:07:57

newer 发表于 2016-8-26 13:25
你的数据，你重复替换了啊，第一个没问题，是因为每个数字都是不同的第二个，替换和被替换的里面都有5，而 ...

New值是我在old的基础上加减一个数值之后的值，怎么才能一对一替换呢？

Lisphk · 发表于 2016-8-26 14:18:51

/db_自贡黄明儒_ 发表于 2016-8-26 14:07
New值是我在old的基础上加减一个数值之后的值，怎么才能一对一替换呢？

你的代码是中间替换了txt内容，每次替换都是在上一次替换后的基础上新txt再替换。

newer · 发表于 2016-8-26 14:29:07

/db_自贡黄明儒_ 发表于 2016-8-26 14:07
New值是我在old的基础上加减一个数值之后的值，怎么才能一对一替换呢？

你应该把每个数字给提取出来，然后再替换具体的数字

命令: (SETQ txt "5.3A4.5B5")
"5.3A4.5B5"

下面这正则找出非字母的，对你的数据来说。

命令: (xdrx_string_regexps "[^a-zA-z]+" txt)
("5.3" "4.5" "5")

然后你替换上面这个表

/db_自贡黄明儒_ · 发表于 2016-8-26 14:42:11

newer 发表于 2016-8-26 14:29
你应该把每个数字给提取出来，然后再替换具体的数字

命令: (SETQ txt "5.3A4.5B5")

("5.3" "4.5" "5")=old,正是用正则表达式提取出来的，我是想将其中的数值全加1

newer · 发表于 2016-8-26 14:45:07

/db_自贡黄明儒_ 发表于 2016-8-26 14:42
("5.3" "4.5" "5")=old,正是用正则表达式提取出来的，我是想将其中的数值全加1

你把原先的要替换提出来，单独替换每一个后（这样就不会出现重复替换），再组合。

newer · 发表于 2016-8-26 14:50:35

/db_自贡黄明儒_ 发表于 2016-8-26 14:42
("5.3" "4.5" "5")=old,正是用正则表达式提取出来的，我是想将其中的数值全加1

命令: (xdrx_string_regexps "[^0-9.]+" txt)
("A" "B")
用这个提出数字中间的，你把上面的单独的数字表替换新的后，再和这个字母组合起来。

另外正则表达式的key 好像有个参数，替换的时候保存位置，再替换的时候从新的位置开始查找，这样就就避免，你查下正则的手册。

/db_自贡黄明儒_ · 发表于 2016-8-26 15:38:34

newer 发表于 2016-8-26 14:50
命令: (xdrx_string_regexps "[^0-9.]+" txt)
("A" "B")
用这个提出数字中间的，你把上面的单独的数字 ...

这招还是比较麻烦，没有比这个更省的招术么？

newer · 发表于 2016-8-26 16:51:46

/db_自贡黄明儒_ 发表于 2016-8-26 15:38
这招还是比较麻烦，没有比这个更省的招术么？

在你的代码里面，mapcar里面，不要对txt赋值，用一个中间变量，变量等于去掉上次替换的子串，循环替换这个子串。最后把替换后的合并起来。

newer · 发表于 2016-8-26 17:22:19

/db_自贡黄明儒_ 发表于 2016-8-26 15:38
这招还是比较麻烦，没有比这个更省的招术么？

试试：把字符串里面数字加1。"5.3A4.5B5"
整数或者实数你自己在修改修改。

(defun test2 ()
(setq txt "5.3A4.5B5")
(setq txt1 "")
(setq old (xd::string:regexps "[0-9.]+" txt ""))
(setq join (xd::string:regexps "[^0-9.]+" txt "")
i 0
)
(repeat (length join)
(setq new (vl-prin1-to-string (1+ (atof (nth i old))))
txt1 (strcat txt1 new (nth i join))
)
(setq i (1+ i))
)
(setq txt1 (strcat txt1 (vl-prin1-to-string (1+ (atof (last old))))))
)

newer · 发表于 2016-8-26 17:26:57

本帖最后由 newer 于 2016-8-26 17:31 编辑

/db_自贡黄明儒_ 发表于 2016-8-26 15:38
这招还是比较麻烦，没有比这个更省的招术么？

或者写个函数：

(defun test2 (txt)
(setq txt1 "")
(if (and
(setq old (xd::string:regexps "[0-9.]+" txt ""))
(setq join (xd::string:regexps "[^0-9.]+" txt "")
i 0
)
)
(progn
(setq new (mapcar
'(lambda (x)
(vl-prin1-to-string (1+ (atof x)))
)
old
)
)
(repeat (length join)
(setq txt1 (strcat txt1 (nth i new) (nth i join)))
(setq i (1+ i))
)
(setq txt1 (strcat txt1 (last new)))
)
)
)

命令: (setq txt "5.3A4.5B5")
"5.3A4.5B5"
命令: (test2 txt)
"6.3A5.5B6.0"
命令: (setq txt "5.3AAA4.5BBBB5")
"5.3AAA4.5BBBB5"
命令: (test2 txt)
"6.3AAA5.5BBBB6.0"

newer · 发表于 2016-8-26 17:46:44

/db_自贡黄明儒_ 发表于 2016-8-26 15:38
这招还是比较麻烦，没有比这个更省的招术么？

代码再优化下就这样：

(defun test2 (txt)
(setq txt1 "")
(if (and
(setq old (xd::string:regexps "[0-9.]+" txt ""))
(setq join (xd::string:regexps "[^0-9.]+" txt "")
i -1
)
)
(progn
(apply
'strcat
(mapcar
'(lambda (x)
(strcat (vl-prin1-to-string (1+ (atof x))) (if (< i (- (length join) 1))
(nth (setq i (1+ i)) join)
""
)
)
)
old
)
)
)
)
)

/db_自贡黄明儒_ · 发表于 2016-8-29 14:50:53

newer 发表于 2016-8-26 17:46
代码再优化下就这样：
我只是想叙述简单方便，用了old和new，没想倒把您带进沟里去了。
我原来的处理标高只有一个数字，比较容易，后来发现有些是2个数值（绝对标高和相对标高），所以重写。在您8楼指引下写成如下：

;;(MyH:Public "5.3A-4.5B5.0" -1 2)=>"4.30A-5.50B4.00"
(defun MyH:Public (txt h n / LST NUM X)
(setq Lst (xd::string:regexps "[-0-9.]+|[^-0-9.]+" txt ""))
;;下面不转成字符串居然也行
(setq Lst (mapcar '(lambda (x)
(cond ((setq num (distof x)) (HH:rtosr1 (+ num h) n))
(T x)
)
)
Lst
)
)
(apply 'strcat Lst)
)

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

[求助] 致N版:亲，请看过来，这个正则肿么了？

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

点评

点评

评分

点评