Чтение текстового файла с разделителями и занесение информации в переменные

[Максим_maks]

Всем привет. Помогите реализовать на Паскале такую вщь: читаем файл - у него структура
текст1;текст2;текст3... текст7;
текст1;текст2;текст3... текст7;
текст1;текст2;текст3... текст7;
...
текст1;текст2;текст3... текст7;

Необходимо прочитать файл, занести в отдельные переменные значения например
a=текст1
b=текст2

Если в b присутствует строка "ул." - заменить на улица. Результат вывести в отдельный файл.

program Project1;
uses crt;
var Num_z, Num_d, data, Street : string;
    files_in, files_out : text;
    s:string;
    n : integer;
begin
  clrscr;
  assign(files_in,'c:\test.csv');
  reset(files_in);
  assign(files_out,'c:\test_test.csv');
  rewrite(files_out);
 
 while not eof(files_in) do
 begin
        readln(files_in,s);//читаем строку
        while pos(';',s)>0 do
        begin
             n:=n+1;
             Num_z:=copy(s,1,pos(';',s)-1);
             delete(s,1,pos(';',s));
             Num_d:=copy(s,1,pos(';',s)-1);
             delete(s,1,pos(';',s));
             data:=copy(s,1,pos(';',s)-1);
             delete(s,1,pos(';',s));
             Street:=copy(s,1,pos(';',s)-1);
             delete(s,1,pos(';',s));
 
        end;
        writeln(files_out, Num_z, Num_d, data,Street);
 
 end;
 
 close(files_in);
 close(files_out);
 readln;
 
end.

Собственно пока только такое получилось, но не совсем работает (((

[Serge_Bliznykov]

во-первых, выложи архив с исходным CSV файликом (если он не для широких глаз, тогда сделай тестовый на три-четыре строки с примерно похожим содержимым, лучше всего возьми несколько отличающихся строк из исходного и измени персональные данные на абкадабрку)

во-вторых, что именно "не совсем работает" ? Ошибки выдаёт?
Или результат не то, что ожидается?

в-третьих, CSV - этот формат поддерживают всякие офисы (MS Excel, например).
Почему бы не воспользоваться этим инструментарием?

в-четвёртых, боюсь спрашивать - а какой у Вас компилятор Паскаля? уж не досовский Turbo Pascal?!!!
Если да, то зачем Вы труп тормошите?! Чем вызвана такая некрофилия?!!

[CMY_3]

Сообщение от Максим_maks

Всем привет. Помогите реализовать на Паскале такую вщь: читаем файл - у него структура
текст1;текст2;текст3... текст7;

т.е. в исходном файле семь компонент с данными в строке а читаешь по 4 в цикле и записывать в файл надо раньше

это если количество считываемых компонент из строки исходного файла кратно 4

while pos(';',s)>0 do
        begin
             n:=n+1;
             Num_z:=copy(s,1,pos(';',s)-1);
             delete(s,1,pos(';',s));
             Num_d:=copy(s,1,pos(';',s)-1);
             delete(s,1,pos(';',s));
             data:=copy(s,1,pos(';',s)-1);
             delete(s,1,pos(';',s));
             Street:=copy(s,1,pos(';',s)-1);
             delete(s,1,pos(';',s));
             write(files_out, Num_z, Num_d, data,Street);
        end;
        writeln(files_out);

[Максим_maks]

7 штю привел в качестве примера, к сожалению сейчас файла нет. Скину позже. На Паскале, т.к. вроде бы все должно быть просто, а оказывается не совсем.

[min@y™]

На Паскале, т.к. вроде бы все должно быть просто

просто? на турбопаскакале?

зачем? какая цель у будущей программы?