Remove space of texts

[Dayananda]

This is the text I found in my cad Drawing  2T16  -  05

I need to remove the blank space which after 16 and before 05

The minus mark is ok. New texts should be as 2T16-05

Pl can you help.

[dlanorh]

(while (vl-string-search " " str) (setq str (vl-string-subst "" " " str)))

 

where str is the string you want to change

[Trudy]

Something from me, it can be change for multiple text. 

(defun c:try1 (/ sel text text2 )
(setq sel (car (entsel "\nSelect some text: ")))
(setq text (cdr (assoc 1 (entget sel))))
(setq text2 (vl-list->string (vl-remove 32 (vl-string->list text))))
(entmod (subst (cons 1 text2) (assoc 1 (entget sel)) (entget sel)))
(princ)
)