• Юрий
  • Восстановленный участник
  • На форуме с 18 января 2008г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Удаление части строки

Помогите пожалуйста с функциями работы со строками:
Имеются строки с двумя разделителями внутри (пример: 21 hgjh 21, 65 jkhj 21.21, 9945 атор 554.545 и т.д.
Как выделить из строки часть текста после второго разделителя?

  • Victor
  • Восстановленный участник
  • На форуме с 26 марта 2007г.
  • Сообщений: 270
  • Спасибо: 0

Re: Удаление части строки

по тупому наверное так
(setq txtrun "21 hgjh 21, 65 jkhj 21.21, 9945 ator 554.545")
(setq lenrun (strlen txtrun))
(setq i 0)
(setq bukva "a")
(while (/= "," bukva)
(setq i (1+ i))
(setq bukva (substr txtrun i 1))
)
(setq bukva a)
(while (/= "," bukva)
(setq i (1+ i))
(setq bukva (substr txtrun i 1))
(setq n (+ 1 i))
(setq ostatok  (substr txtrun n lenrun))
)

  • ima
  • Восстановленный участник
  • На форуме с 10 января 2008г.
  • Сообщений: 3
  • Спасибо: 0

Re: Удаление части строки

Или так
(repeat 2
(setq str(substr str (+(vl-string-search "," str)2)))
)
Хотя неочень понятно, чего чел на самом деле хочет.

  • Юрий
  • Восстановленный участник
  • На форуме с 18 января 2008г.
  • Сообщений: 3
  • Спасибо: 0

Re: Удаление части строки

Ребят, спасибо за ответы, я в lispe ни бум бум, а програмка очень нужна, буду разбираться с вашими функциями...)

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Удаление части строки

В жизни бы не подумал, что в разделе по геодезии будет обсуждаться autolisp...

  • off
  • off
  • Активный участник
  • Откуда: Ростов-на-Дону
  • На форуме с 24 июня 2006г.
  • Сообщений: 264
  • Спасибо: 0

Re: Удаление части строки

> Юрий
Может у тебя есть текстовый файл с этими странными строками? Попробую загнать его в эксель с разделителем запятая. Если это правильный массив данных то он поделится на столбцы и выберешь нужный.