[drafter2006]

Добрый день!
Я новичок в LISP-e. У меня вот такая задачка:
есть две колонки по 500-600 строк
1)в первой колонке Single Line Texts:
а=134.98
а=344.908
а=3444.918
а=74.928
а=4534.90128
итд
2) во второй колонке Single Line Texts, все нули, т.е.
0.00000
0.00000
0.00000
0.00000
и.т.д
Можно ли как-то автоматизировать процесс перехода только цифровых значений из первой колонки
(т.е. без букв) на место нулей во второй колонке.
Кажздый раз я делаю copy and paste,
что занимает кучу времени.
Заранее благодарю всех.

[{Smirnoff}]

Программу то написанть несложно. Однако всё решается стандартыми средствами. См. команду _find. Там можно выбрать все тексты с "a=" и убрать это самое "a=" путем замены (с пустой строкой 'Replace with').

[drafter2006]

Я на примере етой задачки хотел научитса написать что-то подобное, потому что в моем случае немного все обстоит посложнее, можете ли вы мне помочь

[VVA]

Пусть данные колонок записаны в списках col1 и col2, тогда так

Код:

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

;============ Дополнительные ф-ции Begin===================
;|
* Ф-ция str-str-lst
* Сервисная ф-ция извлечения из строки данных, разделенных
* каким либо символом или строкой символов
* Возвращает список строк
* Аргументы [Type]:
  str - строка для разбора [STRING]
  pat - разделитель [STRING]
*  Пример запуска
  (setq str "мы;изучаем;рекурсии" pat ";")
  (setq str "мы — изучаем — рекурсии" pat " — ")
  (str-str-lst str pat)
* Читать подробнее http://www.autocad.ru/cgi-bin/f1/board.cgi?t=25113OT
|;
(defun str-str-lst (str pat / i)
  (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
;;;================================================================================
;;;Ф-ция изменяет i-й(начиная с 0) элемент списка новым значением
;;; indel - индекс элемента
;;;zn - значение
;;; sps - список
(defun subst-i (indel zn sps / buff i e1)
  (setq	i    0
	buff nil
  ) ;_ End of setq
  (foreach e1 sps
    (if	(= i indel)
      (setq buff (append buff (list zn)))
      (setq buff (append buff (list e1)))
    ) ;_ End of if
    (setq i (1+ i))
  ) ;_ End of foreach
  buff
) ;_ End of defun


;============ Дополнительные ф-ции End ===================

(setq col1 '("а=134.98" "а=344.908" "а=3444.918" "а=74.928" "а=4534.90128"))
(setq col2 '("0.000" "0.000" "0.000" "0.000" "0.000") i '-1)
(mapcar '(lambda (x )(setq col2 (subst-i (setq i (1+ i))(cadr(str-str-lst x "=")) col2))) col1)
(princ "\nНовый список col2=")(princ col2)(princ)

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

> VVA : может, это будет проще?

Код:

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

(mapcar '(LAMBDA(x) (substr x (+ 2 (VL-STRING-SEARCH "=" x)))) col1)

[VVA]

>kpblc Я сделал как просили

процесс перехода только цифровых значений из первой колонки (т.е. без букв) на место нулей во второй колонке

Хотя я бы не заменял 0 числами в списке col2, а сформировал его заново.
Если буквы всегда "a=", то тогда так проще. Но я бы оставил str-str-lst, вдруг будет "a = 123"

Код:

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

(setq col1 '("а=134.98" "а=344.908" "а=3444.918" "а=74.928" "а=4534.90128")) 
(setq col2 '("0.000" "0.000" "0.000" "0.000" "0.000")) 
(setq col2 (mapcar '(lambda (x )(cadr(str-str-lst x "="))) col1))
(princ "\nНовый список col2=")(princ col2)(princ)

[drafter2006]

Огромное спасибо всем ответившим.
Буду пробовать, посмотрим что получится.