Цитата:
Сообщение от Chelios
А если под предпоследней записью подрузамевается слово?
Допустим в 1 файле текст (Как зовут?)
а во 2 файле текст (меня)
Нужно получить ( Как меня зовут?)
|
Ладно, вот Вам такой вариант:
Код:
VAR
S,S1:String;
f1,f2,f3:TEXT;
i,Ifix:INTEGER;
BEGIN
Ifix:=0;
Assign(f1,'D:\t1.txt');
ReSet(f1);
Assign(f3,'D:\t3.txt');
ReWrite(f3);
Repeat
ReadLn(f1,S);
If (not EoF(f1)) then
WriteLn(f3,S)
else
begin
For i:=1 to Length(S) do
If S[i]=' ' then Ifix:=i;
For i:=1 to Ifix do
Write(f3,S[i]);
WriteLn(f3);
Assign(f2,'D:\t2.txt');
ReSet(f2);
Repeat
ReadLn(f2,S1);
WriteLn(f3,S1);
Until EoF(f2);
Close(f2);
For i:=Ifix+1 to Length(S) do
Write(f3,S[i]);
WriteLn(f3);
end;
Until EoF(f1);
Close(f1);
Close(f3);
END.