Topic: help text to list

[TopoWAR]

hello, a help please, I have the following string:

Code: [Select]

(read "(b (91.1849 87.7505 0.0))")but I need to return the value b = b and b = B not,

return value like this:

Code: [Select]

'(b (91.1849 87.7505 0.0))
took 2 hours trying everything and I returned the b and B,  help me thank you

[CAB]

The B is a variable NAME and B is the same as b in the eyes of LISP.

[TopoWAR]

CAB ,
see, I do the following, I convert a list to a text string, as shown in b is a text

Code: [Select]

(setq est (vl-princ-to-string (list "b" '(100. 100. 0.0))))
the problem that when I use

Code: [Select]

(read est)I returned b uppercase:

Code: [Select]

'(B (100.0 100.0 0.0))I need to return the same value as before: lower case b

I need is retrieve back the string "b"

I hope I explained, thanks

[Keith™]

I see what you are doing.

You need to separate the individual items and recreate the list. Read will convert to uppercase, so you need to do something like this:

Code: [Select]

(setq est (vl-princ-to-string (list "b" '(100. 100. 0.0))))
(setq val (substr est 2 1))
As you see, the "b" in the string is extracted to a new variable

Without understanding the larger use, it is difficult to provide guidance.

What are you trying to do?

[TopoWAR]

Keith™

it is a solution.
so I would stay to the end.
thanks

Code: [Select]

(setq est (vl-princ-to-string (list "abc" '(100. 100. 0.0))))
(setq val (substr est 2 (1- (vl-string-search " " est))))

[Keith™]

Glad to be of assistance

[Lee Mac]

Alternatively, you could use vl-prin1-to-string to preserve the string data type:

Code: [Select]

_$ (read (vl-prin1-to-string '("b" (100.0 100.0 0.0))))
("b" (100.0 100.0 0.0))

[TopoWAR]

Lee Mac , excellent

as simple as changing

Code: [Select]

vl-princ-to-stringby

Code: [Select]

vl-string-to-prin1
thanks for sharing.