求助：如何将字符串变成变量？

xkcjf_1219

如何将字符串变成变量？
例如，文本文件中kg,200.255
从文件中读出"KG" 和200.255后，既令kg=200.255

Andyhon

(setq Str "Kg,200.255")

Command: (set (read (substr str 1 2)) (read (substr str 4)))
200.255

Command: !kg
200.255

highflybir

1.   (setq f (open "c:/test.txt" "R"))
   
2.   (setq l nil)
   
3.   (while (setq s (read-line f))
   
4.     (setq s (strcat "(" (VL-STRING-SUBST " " "," s) ")"))
   
5.     (setq s (read s))
   
6.     (apply 'set s)
   
7.     (setq l (cons s l))
   
8.   )
   
9.   (close f)
   
10.   (reverse l)

  (setq f (open "c:/test.txt" "R"))<br />   (setq l nil)<br />   (while (setq s (read-line f))<br />     (setq s (strcat "(" (VL-STRING-SUBST " " "," s) ")"))<br />     (setq s (read s))<br />     (apply 'set s)<br />     (setq l (cons s l))<br />   )<br />   (close f)<br />   (reverse l)

譬如test.txt如下的文字
kg,200.255
km,10000
kl,123214
dg,123551
ek,12
返回:
((KG 200.255) (KM 10000) (KL 123214) (DG 123551) (EK 12))

每个变量都赋值了

e2002

如果txt中每行的格式是 ：  xyz,123.456
你 read-line 后先替换一下 逗号 为 空格 ，再 read 就可以便为 LIST 了

如 xyz, 123.456

2. (setq sText (read-line f)
   
3.         sText (function-replace "," " " sText)
   
4.         return-list (read (strcat "(" sText ")")
   
5. )
   

(setq sText (read-line f)<br />         sText (function-replace "," " " sText)<br />         return-list (read (strcat "(" sText ")")<br /> )<br />