[Nitrogenium]

Требуется преобразовать строку такого вида
"0 1 3 4 6 16 54" в список (0 1 3 4 6 16 51)
В строке только целые неотрицательные числа, отделенные пробелами.

[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))
  )
)

[Nitrogenium]

Спасибо! сейчас разбираться буду!
...правда с рекурсией это будет непросто))
А что такое функция T?

[Кулик Алексей aka kpblc]

http://forum.dwg.ru/showthread.php?t=15661

[gomer]

Т - это не функция...
собственнно, в вашем случае

Код:

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

 (mapcar 'atoi (cdl-string->list "0 1 3 4 6 16 54" " "))

вот и все решение...

[Vov.Ka]

Код:

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

 (read (strcat "(" "0 1 3 4 6 16 54" ")"))

[Олег (jr.)]

Сообщение от Nitrogenium Требуется преобразовать строку такого вида "0 1 3 4 6 16 54" в список (0 1 3 4 6 16 51) В строке только целые неотрицательные числа, отделенные пробелами.

Мой скромный пятак в общую копилку:

Код:

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

;;*** string-to-list ***
(defun Split  (txt sep);provided by fixo
  (if (not (eq (chr 34) txt))
    (if	(setq pos (vl-string-search sep txt 0))
      (cons (substr txt 1 pos)
	    (split (substr txt (+ pos 1 (strlen sep))) sep))
      (list txt)))
  )

;;examples of usage:
;(split "1 2 3 4 5 25 65" (chr 32))
;(split "1\t2\t3\t4\t5\t25\t65" (chr 9))
;(split "1XXL2XXL3XXL4XXL5XXL25XXL65" "XXL")
;etc..

[gomer]

Сообщение от Олег (jr.) Мой скромный пятак в общую копилку:

очень похоже на #2

[Олег (jr.)]

Сообщение от gomer очень похоже на #2

Много чего такого на свете похоже а работает по разному
И я может по слабости ума чего не так понимаю, но следующая к примеру
тоже очень похоже на #2 или наоборот

Код:

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

(defun str-str-lst (str pat / i);Evgeny Elpanov
  (cond ((= str "") nil)
        ((setq i (vl-string-search pat str))
         (cons (substr str 1 i)
               (str-str-lst (substr str (+ (strlen pat) 1 i)) pat)
         ) ;_  cons
        )
        (t (list str))
  ) ;_  cond
) ;_  defun

[gomer]

Разница в области применения функции и, соответственно в наличии или отсутствии дополнительных проверок

[Nitrogenium]

Может кто-нить скажет, что значит T?

[gomer]

Код:

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

 (If T nil T)

[Disney]

Сообщение от Nitrogenium Может кто-нить скажет, что значит T?

Логический (Булевский) тип данных, всего два возможных значения: T- True - Истина и nil - false - Ложь

[Дима_]

Вобще в автолиспе нет как таковых булевских типов - то что подразумевают под истинной (true, #t, итд) - может являтся абсолютно любым значением кроме пустого списка - то есть nil или '() - что является абсолютными синонимами - то есть по сути T является атомом без значения.

[Pastor]

Может кто-нить скажет, что значит T?

Это значит, что по странице 59 книги Полещука твой взгляд никогда не пробегал...
Ну, или по странице 12 другой книги того же Полещука...