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

[elplado]

Ситуация такова:
Необходимо из текстовика плана
fileinfo.dat
fileinfo2.dat
fileinfo2r.dat
gdigraphdriver.dll
History
ptsetup.lang
ptsetup.log
replace.exe
SantaClaid.pbn
unicows.dll

считать поочередно каждую строчку и записать в батовский файл плана
call fc C:\dfr\"fgj fhjr"\fileinfo.dat
call fc C:\dfr\"fgj fhjr"\fileinfo2.dat

и тд.

запоролся на
assign(f1,'C:\work\file.txt');
assign(f3,'C:\work\test.bat');
reset(f1);
rewrite(f3);
while not eof(f1) do
begin
for i:=0 to length(s) do
begin
readln(f1,s[i]);
writeln(f3,s);

Помогите плиз весь день туплю.
Спасибо!

[Serge_Bliznykov]

while not eof(f1) do 
begin
  readln(f1,s);
  writeln(f3,'call fc C:\dfr\"fgj fhjr"\'+s);
end;
Close(f3);
Close(f1);

p.s. Написал так, как Вы просили. Вот только ошибка у Вас в получаемом командном файлике! Кавычки не так задаются.
правильно вот так:

  writeln(f3,'call fc "C:\dfr\fgj fhjr\'+s+'"');

[elplado]

Спасибо, не думал, что так все просто.
Респект Сердже)

[pascal65536]

Пишем просто батник, никакого паскаля.
В файле 2.txt перечисляем имена файлов

FOR /F "EOL=; TOKENS=1 DELIMS=; " %%i IN (2.txt)  do CALL :DOIT %%i
pause
exit


:DOIT
echo %1
call fc C:\dfr\"fgj fhjr"\%1