社区 › Auto Lisp › 正在从中删除左侧“0”

DuanJinHui 发表于 2022-7-5 18:35:50

正在从中删除左侧“0”

“00ABCD12”=>“ABCD12”
“0000abcd0123”==>“abcd0123”
 
我使用“vl string left trim”函数。
 
（vl string left trim“00”“00ABCD12”）==>“ABCD12”
 
但有时，我不知道左边有多少个“0”。

Tharwat 发表于 2022-7-5 18:56:50

试试这个：
 

(setq st "0000abcd012300")

(while (eq (substr st 1 1) "0")
(setq st (substr st 2))
)

Lee Mac 发表于 2022-7-5 19:09:54

(vl-string-left-trim "0" "00ABCD12")
或：
(vl-list->string (vl-member-if '(lambda ( x ) (/= 48 x)) (vl-string->list "00ABCD12")))

DuanJinHui 发表于 2022-7-5 19:13:46

 
谢谢，塔瓦。

DuanJinHui 发表于 2022-7-5 19:34:11

 
谢谢你，李。

Tharwat 发表于 2022-7-5 19:40:30

不客气。

查看完整版本: 正在从中删除左侧“0”