|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.08.2009, 18:49 | #1 |
Регистрация: 02.08.2009
Сообщений: 3
|
нужен скрипт на PERL для обработки текстовой информации (1251 кириллица, десетки тысяч строк) PERL
Здравствуйте уважаемый ALL!
Очень нужен скрипт на PERL для обработки текстовой информации (1251 кириллица, десетки тысяч строк). Примеры текстов, что есть и что надо получить: Есть: ADR=ЛЕНИНА УЛИЦА 31/2 Надо: ADR=ЛЕНИНА УЛИЦА, Д.31/2 или Есть: ADR=ЛЕНИНА УЛ. 31к2 Надо: ADR=ЛЕНИНА УЛ., Д.31к2 Название улицы - набор символов произвольной длинны и кол-ва слов (может и латынь, но внутри цифр быть не может), номер дома в конце - просто десятичная цифра или набор символов, начинающийся с цифр типа 31/1 или 31к2. Вы уж простите что с такой ерундой обращаюсь, но сам пока не программист, а отчет очень нужен. Если в рамках этого форума помощь невозможна, посоветуйте, куда обратиться или сколько это стоит. В номере дома пробелов быть не может. Есть и другие строки, без ADR вначале. Получается, в строке, начинающейся с ADR первый справа пробел - и вставить ", Д." На PERL потому, что я там могу сам условия первого атрибута в строке (типа ADR) поменять. Тк их там несколько. Ну чтобы более-менее упростить работу Вам. В принципе, можно на чем угодно написать главное - на выходе текстовый файл с указанными параметрами и возможность изменить первый атрибут. Спасибо. Последний раз редактировалось newbies; 03.08.2009 в 16:14. |
03.08.2009, 11:26 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Предположительно тебе нужно чето-то в этом роде (Регулярные выражения - http://ru.wikipedia.org/wiki/Perl_(я...аммирования)):
Код:
Код:
I'm learning to live...
|
03.08.2009, 14:35 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
простая программка, решающая задачу с простеньким интерфейсом
вот.
набросал простую программку. на Delphi. кое-какой интерфейс присутствует. (EXE + исходники внутри архива) |
03.08.2009, 16:32 | #5 |
Регистрация: 02.08.2009
Сообщений: 3
|
Спасибо всем за реакцию, но поверьте, просто совсем нет времени читать про регулярные выражения. Обязательно прочту, как отчет сдам. Казалось задачка простенькая, ан нет...
to Serge_Bliznykov Спасибо, примерно то что надо. Но: - В файле есть другие строчки, не начинающиеся с ADR и их необходимо оставить без изменения - почему-то она берет не только цифры справа, но и буквы и другие символы - в строке с ADR в начале, первый символ справа (те последний в строке) может быть только цифра (ни скобка, ни точка, ни буква рус/лат. ни какой другой символ) Вроде чуток осталось Спасибо! Последний раз редактировалось newbies; 03.08.2009 в 16:41. |
03.08.2009, 19:13 | #6 | |||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
в новой версии сделано. (см. приложение) Цитата:
пример Ваш же: 31к2 Или Вы что-то другое имеет в виду?! Цитата:
Короче. Приведите пример строчек, для которых алгоритм сработал неверно. (или приложите к сообщению небольшой кусочек из Вашего файла) p.s. Исходник на Дельфи можете изменять самостоятельно. скачать любую версию Дельфи (можно даже портабле) и компилировать исходник... |
|||
03.08.2009, 19:59 | #7 |
Регистрация: 02.08.2009
Сообщений: 3
|
то Serge_Bliznykov
Работает!!!!! Всё как надо Мегареспект! Спасибо!!!! |
03.08.2009, 22:25 | #8 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Рад.
Да не за что Обращайтесь, если что... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Python vs Perl, Я выбрал Perl! Причина: а черт ее знает но наверное дело в философии и синтаксисе(TMTOWTDI ) | Sna1L | Perl | 0 | 13.12.2011 14:10 |