[gizmo_zx]

Бодрого дня.
подскажите по замене многострочного текста (готовую прогу):

Код:

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

Текст 1
Строка 2
Строка 3
Текст 1

заменить за один раз "Строка 2 Строка 3" на "новый текст"

В стандартной замене не нащел значка "конец строки" ( \P )

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

На каком языке писать собираешься?

[hwd]

Сообщение от Кулик Алексей aka kpblc На каком языке писать собираешься?

Он и не собирается, т.к. указал, что ищет "готовую прогу".

[Boxa]

Автор, ответь на несколько простых вопросов:
1. Для какой операционной системы?
2. Для какой программы тебе нужна "программа" (автокад, нанокад, брикад, Либерофис, маткад, интернет экспоер и сотни тысяч других)?
3. На каком языке?
4. Поиском пользовался?
5. Чем не устроили имеющиеся "программы"?

[trir]

Можно использовать RText

[Nike]

http://forum.dwg.ru/showpost.php?p=474324&postcount=3

[hwd]

2 Nike
Я так понял, что указанный тобой LISP-вариант не работает, если в составе текста имеется переход на новую строку. Пробовал так:

Command: (tfind2fun "Строка 2 Строка 3" "новый текст" 1) No occurances found. Command: (tfind2fun "Строка 2\PСтрока 3" "новый текст" 1) No occurances found. Command: (tfind2fun "Строка 2\nСтрока 3" "новый текст" 1) No occurances found.

Вспомнил об этом. Выполнил такой вариант запроса:

Command: ReplaceByRegex Укажите фильтр (регулярное выражение), согласно которому следует выполнить выборку: (Строка 2).*(Строка 3) Укажите правило (регулярное выражение), согласно которому следует модифицировать выбранные значения: новый текст

На выходе получил:

Текст 1 новый текст Текст 1

Т.о., как вариант, можно воспользоваться указанным мною решением.

[Nike]

Сообщение от hwd 2 Nike Я так понял, что указанный тобой LISP-вариант не работает, если в составе текста имеется переход на новую строку. Пробовал так: Цитата: Command: (tfind2fun "Строка 2 Строка 3" "новый текст" 1) No occurances found. Command: (tfind2fun "Строка 2\PСтрока 3" "новый текст" 1) No occurances found. Command: (tfind2fun "Строка 2\nСтрока 3" "новый текст" 1) No occurances found.

Да, (tfind2fun "Строка 2 Строка 3" "новый текст" 1) не срабатывает.

А с командной строки, как ни странно, работает:

Команда: tfind2 Select option [Find/Replace/Quit/Case]: r Enter find term: Строка 2\PСтрока 3 Enter replace term: новый текст 1 occurances modified.

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

А если задавать не "\P", а "\\P"?

[Nike]

Сообщение от Кулик Алексей aka kpblc А если задавать не "\P", а "\\P"?

работает

[hwd]

Сообщение от Nike А с командной строки работает: Цитата: Команда: tfind2 Select option [Find/Replace/Quit/Case]: r Enter find term: Строка 2\PСтрока 3 Enter replace term: новый текст 1 occurances modified.

По указанной выше ссылке на LISP, нет никакого кода для команды tfind2, её там вообще нет.

А если задавать не "\P", а "\\P"?

Тогда работает.

[Nike]

Сообщение от hwd По указанной выше ссылке на LISP, нет никакого кода для команды tfind2, её там вообще нет.

Пардон.

Код:

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

 (defun c:tfind2()
  (tfind2fun nil nil 0)
)

[gizmo_zx]

всем огромное спасибо.
Можно готовый lisp по замене. т.к. по ссылке не осил запустить
Поиск с глобальными символами хорошо, но как заменить две строки на две других? "\P" и "\\P" не прокатывает.
P/S заменяю мультитекст в выносках.

[gizmo_zx]

Все работает.
(tfind2fun "строка 1 \\P строка 2" "новый текст" 1) - замена мультитекста, "\\P" символ новой строки

[Nike]

gizmo_zx, ровно три года мучался?