获取文字中的钢筋字符串

dyjwyqz5221

[Actionscript3] 纯文本查看 复制代码

(defun get::barfh(str / pat)
	(setq pat "%%132%%140R%%141|%%130%%140RH%%141|%%130|%%131|%%132|%%133")
	(xdrx_string_regexps pat str)
);;;defun

命令: (setq str "10层箍筋%%1318-100/150,核心区箍筋：%%1328@100/150(%%130%%140RH%%14110-100)")
"10层箍筋%%1318-100/150,核心区箍筋：%%1328@100/150(%%130%%140RH%%14110-100)"

命令: (get::barfh str)
("%%131" "%%132" "%%130%%140RH%%141")

marting

1. (defun xd::string:gangin (str / v)
   
2.   (setq        lst '("%%132%%140R%%141"  "%%132"
   
3.               "%%133"                  "%%131"
   
4.               "%%130%%140RH%%141"
   
5.              )
   
6.   )
   
7. ;;;可自己增加钢筋符号
   
8.   (vl-some '(lambda (x) (setq v (xd::string:regexps str x "")))
   
9.            lst
   
10.   )
    
11.   (car v)
    
12. )
    

(defun xd::string:gangin (str / v)<br />   (setq        lst '("%%132%%140R%%141"  "%%132"<br />               "%%133"                  "%%131"<br />               "%%130%%140RH%%141"<br />              )<br />   )<br /> ;;;可自己增加钢筋符号<br />   (vl-some '(lambda (x) (setq v (xd::string:regexps str x "")))<br />            lst<br />   )<br />   (car v)<br /> )<br />

命令: (xd::string:gangin "%%1328@100/150")
"%%132"

dyjwyqz5221

marting 发表于 2020-5-28 17:55
命令: (xd::string:gangin "%%1328@100/150")
"%%132"

函数有点问题吧，测试了一下，改成这样就可以了
(defun xd::string:gangin (str / v)
        (setq lst '("%%132%%140R%%141" "%%132" "%%133" "%%131" "%%130%%140RH%%141"));;;可自己增加钢筋符号
        (vl-some
                '(lambda (x)
                        (setq v (xdrx_string_regexps x str ""))
                )
                   lst
         )
          (car v)
)


我还真想用正则法则替换来着，没想出办法了，你给想到了，非常感谢！


测试下两个函数的效率：
(defun c:tt(/ str)
        (setq str "8%%13318")
        (repeat 5
                  (xd::quickbench '((get::barfh str)(xd::string:gangin str)))
        )
        (princ)
);;;defun

命令: TT
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(GET::BARFH STR)                  8192      1203       1203      2.10 <fastest>
(XD::STRING:GANGIN STR)           4096      1266       2532      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(GET::BARFH STR)                  8192      1188       1188      2.16 <fastest>
(XD::STRING:GANGIN STR)           4096      1281       2562      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(GET::BARFH STR)                  8192      1172       1172      2.16 <fastest>
(XD::STRING:GANGIN STR)           4096      1266       2532      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(GET::BARFH STR)                  8192      1172       1172      2.16 <fastest>
(XD::STRING:GANGIN STR)           4096      1266       2532      1.00 <slowest>
-------------------------------------------------------------------------------
CPU:(1x)Intel(R) Core(TM) i7-7700 @ 3.60GHz 4Cores  / Memory:24G / OS:WIN10专业版
Benchmarking ....... done for 8192 iterations. Sorted from fastest.
Statement                    Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(GET::BARFH STR)                  8192      1188       1188      2.08 <fastest>
(XD::STRING:GANGIN STR)           4096      1234       2468      1.00 <slowest>
-------------------------------------------------------------------------------

aisong220

dyjwyqz5221

这样取钢筋符号最方便：

[Actionscript3] 纯文本查看 复制代码

(defun get::gjfh(str / pat)
        (setq pat "%%132%%140R%%141|%%130%%140RH%%141|%%130|%%131|%%132|%%133")
        (xdrx_string_regexps pat str)
);;;defun

命令: (setq str "10层核心区箍筋：%%1328@100/150(%%130%%140RH%%14110-100)")
"10层核心区箍筋：%%1328@100/150(%%130%%140RH%%14110-100)"

命令: (get::gjfh str)
("%%132" "%%130%%140RH%%141")