|
|
#1
|
|||
|
|||
программа
к примеру файл тхт, много цифр и букв в столбик такого плана
55264003065652 iau 107|35500 Divinpolis Mg 422061242544530na|Avenida Pastor Marti 403225493024mino Alves 145|45600 Itabuna Ba 42184502799867ingos 172|65900 Imperatriz Ma 5488260207256 dro Pereira Primo 60|48904 Juazeiro Ba 4032250001308a Mato Grosso 282|35500 Divinpolis Mg нужна программа которая отберет с каждого столбца только первые 6 цифр вот так 552640 422061 403225 421845 548826 403225 тоесть один файл загружаеш, другой готовый выходит |
#2
|
||||
|
||||
Ну вот примерно так:
Код:
programm CutFile; var f1,f2: Text; S: String; begin if ParamCount < 2 then begin WriteLn('Ошибка. Неверное количество параметров.'); WriteLn('Пример запуска: CutFile srcfile.txt dstfile.txt'); Exit; end; AssignFile(f1, ParamStr(1)); Reset(f1); AssignFile(f2, ParamStr(2)); Rewrite(f2); while not Eof(f1) do begin ReadLn(f1, S); WriteLn(f2, Copy(S,1,6)) end; CloseFile(f1); CloseFile(f2); end. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
azexp (14.06.2014)
|
#3
|
|||
|
|||
Цитата:
а дальше куда - что тыкать в Delphi? |
#4
|
|||
|
|||
1. В дельфи File-New-Console Application
2. Вставить код, нажать F9, сохранить куда требуется (но желательно так, чтобы путь был простой, например c:\mycoolprog ). Туда же перекинуть файлы для конвертирования (допустим имя будет infile.txt). 3. Запустить консоль (пуск-выполнить-ввести cmd-ok) , ввести cd c:\mycoolprog , нажать энтер (при необходимости заменить путь до программы на Ваш). 4. Ввести в консоли cutfile infile.txt outfile.txt b и нажать энтер. Можно смотреть результат конвертирования - в файле outfile.txt Возможно потребуется в коде указать Код:
programm CutFile; {$APPTYPE CONSOLE} Если файл с исходной инфой будет иметь одинаковое имя, то удобно создать bat-файл или же ярлык (от cutfile.exe) для вызова той же самой команды , как и в консоли (cmd), но запускать просто по двойному клику. Если и эта инструкция Вам будет сложна для выполнения, то лучше попросите кого проконсультировать Вас "вживую" (скайп, тимвьювер) с оплатой, дополнительно и какие-то свои поправки/пожелания реализуете. |
Этот пользователь сказал Спасибо phomm за это полезное сообщение: | ||
azexp (14.06.2014)
|
#5
|
|||
|
|||
разобрался, спасибо кто учавствовал в помощи
а как можно сделать данную программу в виде интерфейса, тоесть чтоб кнопки были и еще при выводе в конечный файл сохраняет такое: 89㔀㐀㠀㔀㐀㠀㔀㐀㤀 Последний раз редактировалось azexp, 14.06.2014 в 19:06. |
#6
|
||||
|
||||
Видимо проблемы с кодировкой, либо при отображении, либо при сохранении.
В вашем примере все номера начинаются с новой строки. Возможно, что в реальном файле это не так. В какой версии Дельфи вы работаете? Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |