![]() |
Обработка текстового файла
Есть файл с содержимым такого вида.
Нужно вытащить оттуда все шестизначные цифры (телефонные номера) и забить их в столбик в новый txt. Помогите, а ) Код:
МИКУШКИНА С.Н. КИРОВА 11б 28 424584AВДЕЕВА Л.П. |
Цитата:
|
увы я вообще программировать не умею >_<
|
Цитата:
Код:
|
Решу на Powershell :)
input.txt - заменить на свое или подставить полный путь Код:
[regex]::Matches($(gc input.txt),'[0-9]{6}') | % {$_.value} > result.txt |
Цитата:
|
Ну и заключительная (наверное) программа на делфи:
http://rghost.ru/download/1721083/fa8aeffbe2ed30523a85121ec06a7a3d79bacd1f/pars.rar :) Исходник: Код:
procedure TForm1.FormCreate(Sender: TObject);(сохранять так: Правый клик по правому memo, выделить все, копировать, ну и копируешь в блокнот и сохраняешь :o ) |
спасибо, мужики, огромное :)
рад очень, работает |
| Время: 09:32 |