[Holon]

Есть задача выделить цифры из строки,
к примеру из строки
"Маленькие раки 10 Х 300 руб. большие раки 10 х 500 руб."
получить "10" "300" "10" "500"
Пытался решить примерно так:

Код:

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

(defun c:te (/ a b d c result)
(setq a "iuyiuy 100X100 jggjgh" b(strlen a) d 1 )
 (while (<= d b)
   (progn
  (if(>(atoi(substr a d 1))0)(progn (setq c(substr a d 1) result (append result(list c)))))
  (setq d (1+ d))
   ))
(print result)
   (princ)
)

но к моему великому сожелению

Код:

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

(atoi "0")

и

Код:

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

(atoi "М")

возвращает одно и тоже.

[Holon]

Продвинулся еще на несколько шагов, осталость только
разделить числа между собой.

Код:

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

(defun c:te (/ a b d c result)
(setq a "iuyiuy 100X100 jggjgh" b(strlen a) d 1 )
 (while (<= d b)
   (progn
  (if
    (or
      (=(ascii (substr a d 1))48)(>(atoi(substr a d 1))0))
    (progn (setq c(substr a d 1) result (append result(list c)))))
  (setq d (1+ d))
   ))
(print result)
   (princ)
)

[Makswell]

Есть такая функция
http://forum.dwg.ru/showpost.php?p=285510&postcount=2
разделяет строку на список текстовых и цифровых составляющих

Если её применить, то прога получится такой:

Код:

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

(defun test (_str / lst)
  (foreach item	(_dwgru-str->list _str)
    (if	(/= (type item) 'STR)
      (setq lst (append lst (list item)))
    )
  )
  lst
)

Проверка:

_$ (test "Маленькие раки 10 Х 300 руб. большие раки 10 х 500 руб.") (10 300 10 500) _$

[VVA]

И еще пару вариантов
Как Извлечь из строки числа

[Красин]

В автолиспе нет функций для работы с регулярными выражениями, и от этого всё зло. В принципе есть возможность добавить эти функции при помощи Object ARX или .NET, только это никому не надо

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

Красин, что значит "нет функций"? Точнее, что ты понимаешь под регулярными выражениями?

[ShaggyDoc]

Нет- потому что "это никому не надо", чтобы включать в штатный набор. А кому надо - делают, и для этого совсем не надо Object ARX или .NET.

[Красин]

Сообщение от Кулик Алексей aka kpblc Красин, что значит "нет функций"? Точнее, что ты понимаешь под регулярными выражениями?

Вот статья из энциклопедии
Я имел в виду такие, как в Perl. В стандартную библиотеку Python-а они включены, и задача из первого поста решается очень просто:

Код:

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

import re
print re.findall(r'\d+', 'Маленькие раки 10 Х 300 руб. большие раки 10 х 500 руб.')

[ShaggyDoc]

Ну и в LISP есть стандартная функция wcmatch c кучей паттернов для поиска, в том числе в разных сочетаниях.

Спору нет, в Perl работа с регулярными выражениями неимоверно мощнее. Так язык на это заточен. А LISP - на списки. Задача-то решаемая в любом случае, и использование прикладным программистом функции (пусть не стандартной) с названием наподобие список_чисел_из_строки не представляет сложности.

Зачем зайцу стоп-сигнал? Только потому, что он у мотоцикла есть?