Code Red > AutoLISP (Vanilla / Visual)

read string..

<< < (4/4)

Andrea:
Lol !

thanks...did same thing with the help you provide me.


--- Code: ---(setq f1 (open "c:\\040412-001.stg" "r"))
(setq l0 (read-line f1))
(close f1)
(setq l1 (substr l0 6))
(setq list1 (list (substr l0 1 5)))
(repeat (strlen l1)
  (setq list1 (append list1 (list (substr l1 1 1))))
  (setq l1 (substr l1 2))
)

list1
--- End code ---

thank you again MP.

MP:
You're welcome Andrea.

Navigation

[0] Message Index

[*] Previous page