Помогите, пожалуйста. Сломала всю голову, нигде найти не могу, додуматься тоже.
Есть входной файл(28.txt) в общем виде,без пробелов:
№1 ... №n
a1(14позиций) data1(8)...data1n(8)b1(26)
a2(14) data2(8)...data2n(8)b2(26)
a3(14) data3(8)...data3n(8)b3(26)
a4(14) data4(8)...data4n(8)b4(26)
Нужно получить выходной файл(2.txt) в общем виде, без пробелов(количество позиций тоже самое):
a1№1data1b1
...
a1№ndata1nb1
a2№1data2b2
...
a2№ndata2nb2
a3№1data3nb3
...
a3№3ndata3nb3
a4№1data4b4
...
a4№ndata4nb4
Т.е. из строк a1, a2, a3, a4 нужно получить по 15 строк с различными № и data. a, b - одинаковые в первых 15-ти строках.
Пока я написала цикл и массив(не работает. все подряд печатает по 15 раз):
While not EOF(f) do begin
Readln(fsp);{Выходной файл}
M1:=copy(str,1,14);{a}
for i:=1 do begin
{Массивы}
A1[i]:=copy(str1,15,5);{№}
A2[i]:=copy(str1,20,8);{data}
str2:=A1[i]+A2[i];
Writeln(fsp,str2);
end;
for i:=1 to 15 do begin
M2:=copy(str,28,26);{b}
strv:=M1+str2+M2;
Writln(fsp,strv);
end;
