[azexp]

к примеру файл тхт, много цифр и букв в столбик такого плана
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

тоесть один файл загружаеш, другой готовый выходит

[Страдалецъ]

Ну вот примерно так:

Код:

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]

Сообщение от Страдалецъ

Ну вот примерно так:

Код:

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.

а дальше куда - что тыкать в Delphi?

[phomm]

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), но запускать просто по двойному клику.

Если и эта инструкция Вам будет сложна для выполнения, то лучше попросите кого проконсультировать Вас "вживую" (скайп, тимвьювер) с оплатой, дополнительно и какие-то свои поправки/пожелания реализуете.

[azexp]

разобрался, спасибо кто учавствовал в помощи

а как можно сделать данную программу в виде интерфейса, тоесть чтоб кнопки были



и еще при выводе в конечный файл сохраняет такое:
89਍㔀㐀㠀਍㔀㐀㠀਍㔀㐀㤀਍

[Страдалецъ]

Видимо проблемы с кодировкой, либо при отображении, либо при сохранении.
В вашем примере все номера начинаются с новой строки. Возможно, что в реальном файле это не так.
В какой версии Дельфи вы работаете?

[azexp]

Сообщение от Страдалецъ

Видимо проблемы с кодировкой, либо при отображении, либо при сохранении.
В вашем примере все номера начинаются с новой строки. Возможно, что в реальном файле это не так.
В какой версии Дельфи вы работаете?

работаю в Delphi 7

[Страдалецъ]

А вы точно скопировали код? Вы там ничего не перепутали с файлами? Может вы умудряетесь читать из f2? Я пока могу только предположить, что в файл записывается не первые 6 символов, а какой-то мусор. А вот почему так происходит я без самого файла с данными затрудняюсь ответить. Попробуйте просто пошагово запустить отладку и посмотреть что же там считывается и что записывается.