替换giv上的给定字符

Aftertouch · 发表于 2022-7-5 16:38:00

大家好，

我想做一个函数来替换字符串/int的给定位置上的给定字符。

例如
如果有一个字符串/int，则为：
- 11111001112022020
我想将此更改为：
- 11111001112012020

所以


- 111110011120[color="red"]2[/color]2020
- 111110011120[color="red"]1[/color]2020

但我想替换的角色每次都不同。
所以我在寻找一个函数，比如：

（defun CHANGENUMBER（位置newnumber/）
（setq oldnumber（getvar“UserS1”））
（setvar“UserS1”newnumber）
（普林斯）
)

我可以把strcat和strlen结合起来生成te编号。。但是必须有一个更简单的方法。。。

Lee Mac · 发表于 2022-7-5 18:23:15

快速示例：

copy

(defun CharAtN ( cha pos str )
   (if (<= 1 pos (strlen str))
       (strcat (substr str 1 (1- pos)) cha (substr str (1+ pos)))
       str
   )
)

copy

(defun CharAtN ( cha pos str )
   (setq cha (ascii cha))
   (vl-list->string (mapcar '(lambda ( x ) (if (zerop (setq pos (1- pos))) cha x)) (vl-string->list str)))
)

copy

(defun CharAtN ( cha pos str )
   (cond
       (   (= 1 pos) (strcat cha (substr str 2)))
       (   (= "" str) str)
       (   (strcat (substr str 1 1) (CharAtN cha (1- pos) (substr str 2))))
   )
)

[编程交流] 替换giv上的给定字符

发表回复

精选推荐