[Zaghim]

Подскажите, пожалуйста, цикл, из которого нужно считать 2 числа и слово и запихнуть в переменные, из строки такого типа:

100_286.77552632_Object1

Соответственно переменные должны быть:
а1 = 100
а2 = 286.77552632
а3 = Object1

Всем заранее спасибо!!!!!

[gomer]

Преобразуй строку в список по разделителю _
пост #5 http://forum.dwg.ru/showthread.php?t=56201
Дальше используй nth
Хотя для таких строк лучше, чтоб файл был
* с расширением csv
* разделитель - ; или пробел
И еще...

Сообщение от Zaghim а1 = 100 а2 = 286.77552632 а3 = Object1

Здесь две лишние переменные

[Дима_]

Вот тебе парсер который делит строку на список:

Код:

[Выделить все]

(defun parsing (str s)
  ((lambda (f)
     (f str "" nil))
   (lambda (str tmp ret)
     (if (= str "")
         (if (= tmp "")
             (reverse ret)
             (reverse (cons tmp ret)))
         ((lambda (sym) (if (= sym s)
                            (f (substr str 2) "" (cons tmp ret))
                            (f (substr str 2) (strcat tmp sym) ret)))
          (substr str 1 1))))))

то есть (parsing "100_286.77552632_Object1" "_") венрет список
("100" "286.77552632" "Object1") - ну а уж его по переменным раскидать надеюсь ты справишся.

[Zaghim]

Ниче не понял ни там ни там))))
Нельзя как-нибудь просто в цикле?

[gomer]

Чего сложного?

Код:

[Выделить все]

(defun cdl-string->list (s p / i)
;;; (cdl-string->list (getenv "ACAD") ";")
  (cond
	((setq i (vl-string-search p s))
		(cons (substr s 1 i) (cdl-string->list (substr s (+ (strlen p) i 1)) p))
	)
	(T (list s))
  )
)
(setq str "100_286.77552632_Object1")
(setq a1 (atoi (nth 0 (cdl-string->list str "_"))))
(setq a2 (atof (nth 1 (cdl-string->list str "_"))))
(setq a3 (nth 2 (cdl-string->list str "_")))

[Дима_]

тебе и там и там - просто цикл - возращает список а его уж присваивай, хотя как уже замеченно в посту 2 - не к чему плодить лишние переменные
(обрати внимание в прцедуре парсинга вобще ни одного setq не используеться - и не чего - работает) но если уж "приперло":

Код:

[Выделить все]

((lambda (lst)
(setq a1 (car lst)
        a2 (cadr lst)
        a3 (caddr lst)))
(parsing "100_286.77552632_Object1" "_"))

ps - опять опоздал
pps - ну соответственно если тебе в a1 и a2 числа нужны:
a1 (atof (car lst))
a2 (atof (cadr lst))

[Zaghim]

gomer: СПАСИБИЩЕ!!!!!))))

[gomer]