Topic: Strings

[ImaJayhawk]

How can I delete all of the spaces out of this string?

Code: [Select]


"EF-1                "


Thanks.


--ImaJayhawk

[SMadsen]

Check out the VL-STRING-RIGHT-TRIM function in the online help.

[M-dub]

How many are there in your drawing?  Could you select each string you want to change?  If so, Edit -> Find...
Find " " (without quotation marks)
Replace with "" (nothing) and hit replace all.

The only thing is if you do this on the whole drawing, it will take every single space out of every string.  That's why you'd have to select each one.

I know what I'd have to do to code it, but I'm really new to VB and it would take me too long to get it figured out properly.  
HTH,
Mike

[Keith™]

Try this ....

Code: [Select]


(while (=(substr STRVAR (strlen STRVAR) 1)" ")(setq STRVAR (substr STRVAR 1 (1-(strlen STRVAR)))))


[ImaJayhawk]

Both of the below seemed to work like I needed.

Code: [Select]


(while (=(substr STRVAR (strlen STRVAR) 1)" ")(setq STRVAR (substr STRVAR 1 (1-(strlen STRVAR)))))

(vl-string-right-trim " " STRVAR)


But I'm not sure why

Code: [Select]


(setq strvar "EF 1          ")
returns
"EF 1"


I would have thought if the "-" was left out it would return just "EF"

But "EF 1" is what I would want it to return.......

Thanks.


--ImaJayhawk

[ImaJayhawk]

M-dub I should have clarified these strings are being extracted from a text file generated by another program


--ImaJayhawk

[daron]

You get that from excel, I assume. When I bring anything in from excel, I create a new tab in excel, set each cell with =TRIM('tabname'!cellname(A1)), that way all extra stuff is not there when I copy it. Might or might not work, but that's what I do. Then I don't have to worry about it in autocad. Another thing that tends to happen is empty cells sometimes have spaces in them and they come up as ghosted images in autocad that you can't get rid of by selection. My solution takes care of that from happening.

[M-dub]

Good tip, Daron!