Объединить текст

[otdel21]

Есть текст:

Гарант, магазин..........3
Гарант, магазин..........8
Гарантия, магазин.......6
Гарантия, магазин.........20​

Надо получить:

Гарант, магазин.......3, 8
Гарантия, магазин........6, 20​

Это справочник. До сих пор делал руками. Может, кто сталкивался и что-нибудь придумал.
Поиском нашёл только про программу ТВ. Попробовал перенастроить клинер - не хватает знаний.

 

[Eugenyus]

Ответ: Объединить текст

На работе скрипт есть. Часа через два доберусь — сброшу. А пока вопрос: отточие как сделано?

 

[splxgf]

Ответ: Объединить текст

А откуда берется текст? Или это данность?
Это совсем руками делалось или все же с помощью указателей?

 

[otdel21]

Ответ: Объединить текст

Здесь просто пример. Список делается через функцию "оглавление" со всего справочника. Там масса повторов названий фирм (из разных рубрик). Всего фирм около 2 тысяч.

 

[Eugenyus]

Ответ: Объединить текст

Обещанный скрипт. Версия CS3.

Перед запуском сохраните копию файла.

Текст, который будет обрабатываться, должен иметь конструкцию "слово(сочетание) — отточие (Right Indent Tab) — номер — конец абзаца". Никаких заголовков, никаких пустых строк и т.п. в материале быть не должно.
Если отточие сделано простым табом, в тексте скрипта в строках 15 и 20 замените ~y на \\t.

Перед запуском установите курсор в обрабатываемый текст.

 

[otdel21]

Ответ: Объединить текст

Спасибо (на кнопку нажал), версия CS5, но попробую разобраться. Пошёл пробовать и учиться.

 

[Eugenyus]

Ответ: Объединить текст

версия CS5

http://forum.rudtp.ru/showthread.php?t=44632&p=508437&viewfull=1#post508437

 

[otdel21]

Ответ: Объединить текст

Ещё раз спасибо. Всё отработало на тестовом кусочке. Выдал сообщение в конце работы об ошибке 45 (ссылка на F2), но это, как я понял, отсыл к вашим заменам. Вроде не критично у меня. Трогать не буду.

 

[Eugenyus]

Ответ: Объединить текст

А, точно, там количество строк уменьшается, и он у меня как-то криво это учитывает. Извиняйте, под свои нужды в скоростном режиме скрипт готовился (как всегда, не отследил. На работу, впрочем, это не влияет, результат должен был получиться тот, что нужен.

 

[otdel21]

Ответ: Объединить текст

Вечером запущу на весь список. Результат интресен?

 

[Eugenyus]

Ответ: Объединить текст

Результат интресен?

Разумеется. И копию файла перед запуском сделать не забудьте.

 

[Eugenyus]

Ответ: Объединить текст

Выдал сообщение в конце работы об ошибке 45

Исправил. Файл найдете здесь:
http://forum.rudtp.ru/resources/alfavitnyj-ukazatel-sovmeschenie-odinakovyx-strok.74/


Не по теме:
Хорошо бы и в 5-м посте файл на эту ссылку заменить, это модераторам просьба

 

[otdel21]

Ответ: Объединить текст

Опробовал по полной программе - 60 полос 7 кеглем. Работал минут 12-13 (по ощущениям, не догадался засечь время). Корректор читает - вроде нет замечаний пока. Ещё бы он выбирал строчки по всему тексту, а не подряд стоящие (но это мечты). Следующая подобная работа планируется только в конце след. года. Ещё раз благодарю автора.

 

[boriskasmoscow]

Ответ: Объединить текст

это мечты

есть у меня такое, понадобится - обращайтесь

 

[Eugenyus]

Ответ: Объединить текст

Обновил скрипт.

Обновление.
Добавлено:
а) выбор разделителя (варианты: Tab, Right Indent Tab, Em Space);
б) проверка текста на соответствие необходимой конструкции ("слово(сочетание) — разделитель — номер — конец абзаца");
в) если текст не прошел проверку - маркировка "неправильных" строк (опционально; о способе маркировки можно будет узнать, нажав соответствующую кнопку в окне скрипта);
г) Progress Bar - полоса прогресса, отображающая объем выполненной скриптом работы.

Взять можно по тому же адресу:
http://forum.rudtp.ru/resources/alfavitnyj-ukazatel-sovmeschenie-odinakovyx-strok.74/

 

[andrejK]

Ответ: Объединить текст

Евгений. А если строки вида -

Гарант, магазин..........3
Гарант, магазин.......5, 8

твой скрипт обработает это?
(у меня такая же задача стоит, только объединение индекса)

+ можно ещё кусочек следующего кода - заменить в каждом абзаце первую букву на прописную если она строчная...

 

[Eugenyus]

Ответ: Объединить текст

Вечером посижу, сделаю.

 

[Eugenyus]

Ответ: Объединить текст

andrejK, готово, можно забирать по той же ссылке. Проверять, традиционно, на копии.

 

[andrejK]

Ответ: Объединить текст

ага. попробую в скором времени.

там кусок с первой буквой прописной в теле легко найти?
его б мне отдельно сначала запустить.

 

[Eugenyus]

Ответ: Объединить текст

Я там опционально сделал - птица в первом окне "делать - не делать". Если делать, то он сначала меняет регистр, потом совмещает строки. Или по-другому надо было?
Если отдельным куском, то поставить курсор в текст и:

app.activeDocument.selection[0].parentStory.paragraphs.everyItem().characters[0].changecase(ChangecaseMode.UPPERCASE);