How to removes the specified characters

_$ (vl-remove "a" (list "a" "d" "e" " " "s" "u" "h" "a" "r" "n" "a"))
("d" "e" " " "s" "u" "h" "r" "n")
How to remove not in list,as like "ade suharna",I want to become "de suhrn",any suggest,thanks

 

Oops,sorry again
_$ (setq tex "ade suharna")
"ade suharna"
_$ (setq ntex (vl-string-trim "a" (vl-princ-to-string tex)))
"de suharn"

 

Hi Ade,

Suggestion, you don't need vl-princ-to-string here, since the tex symbol refers to a
string.

Command: (setq tex "ade suharna")
"ade suharna"
Command: (vl-string-trim "a" tex)
"de suharn"

Use vl-princ-to-string when a symbol doesn't refer to a string.

Command: (setq number 123)
123
Command: (vl-princ-to-string number)
"123"
Command: (setq lst '(1 2 3))
(1 2 3)
Command: (vl-princ-to-string lst)
"(1 2 3)"

Joe Burke

 

Hi Joe,thanks a lot for your suggest

 

(defun @cv_strsubst_all (new old what / l n)
(setq l (strlen new) n 0)
(while (setq n (vl-string-search old what n))
(setq what (vl-string-subst new old what n)
n (+ n l)
)
)
what
)

Command: (@cv_strsubst_all "" "a" "ade suharna")
"de suhrn"

 

Hi John,

Good eye and point taken, "de suhrn" vs. "de suharn".

Joe Burke

 

Hi John,thanks a lot too for your advice,it is good idea

 

Glad to be of some help. What's humorous is that I built it four years ago and
still haven't used it anywhere. :/