正在从中删除左侧“0”

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

“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”