There must be a cleaner way to add a back slash before each quote char in th string.
(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