Topic: Add Character to string

[CAB]

There must be a cleaner way to add a back slash before each quote char in th string.

Code: [Select]

(if (vl-string-search "\"" ln)
 (progn;  Add backslash to hide quotes
   (setq ln (vl-string->list ln)
 newln nil
   )
   (foreach x ln
     (if (= x 34)(setq newln (cons 92 newln)))
     (setq newln (cons x newln))
   ) ; end foreach
   (setq ln (vl-list->string (reverse newln)))
 ) ; end progn
) ; endif


[Mark]

I have to ask CAB, why? What am I missing here! <G>

[CAB]

Well haven't finished testing it but this is why.

CAB