addslashes (sort of)

ollie · 发表于 2022-7-6 10:42:30

Sort of addslashes type method; nothing special figured it may be useful at some point to someone.

EDIT:

Yeah that was a bit off; amended code below

copy

;;-Ollie;;  Precede each instance of an identifying char (single|group) within the source;  string with a char (single|group);;  text       = (String) source string;  iinsert    = (String) text to insert in front of matches;  identifier = (String) text to be preceded by the insert text in the source string(defun addMidText(text insert identifier / i ids textLen idLen insertionLen) (setq i  0) (setq textLen (strlen text)) (setq idLen(strlen identifier)) (setq insertLen (strlen insert)) (while(< (setq i (1+ i))(- textLen idLen))   (if(eq (substr text i idLen) identifier)     (progn       (setq text     (strcat       (substr text 1 (1- i))       insert       (substr text i (- textLen (1- i)))))   (setq i (+ i  insertLen) textLen(+ textLen insertLen ))     )   )  ) text)

Cheers,
Ollie.

Lee Mac · 发表于 2022-7-6 11:45:23

On first testing, I couldn't get it to function, but I may have used it incorrectly,

However, what about vl-string-subst?

Or for multiple instances:

copy

(defun StringSubst ( new old str ) ;; © Lee Mac 2010 (   (lambda ( i / nl ) (setq nl (strlen new))     (while       (and (< i (strlen str))         (setq i (vl-string-search old str i))         (setq str (vl-string-subst new old str i) i (+ i nl))       )     )     str   )   0 ))

[编程交流] addslashes (sort of)

发表回复

精选推荐