работа с файлами в Паскале/Делфи

[cool_phenomus]

Здравствуйте. Есть программа

uses crt;
var f:file of char;
    nf,t,s:string;
    a,c:char;
    i,j:integer;
    k:integer;
begin
clrscr;
k:=1;
while (k<4464) do
  begin
  t:='file.txt';
  Str(k,s);
nf:=concat(s,t);
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('file ',nf,' was npt found');
  writeLn('press ENTER');
  readln;
  exit;
 end;
writeln('contents of the file:');
while not eof(f) do
 begin
  read(f,c);
  write(c);
 end;
writeln;
writeln;
seek(f,0);{возвращаемся в начало файла}
i:=0;{начнем с первого элемента, его индекс=0}
while i<filesize(f) do{пока не последний компонент}
 begin
  seek(f,i);{встаем в позицию}
  read(f,c);{читаем символ}
  if c in ['@'] then{если это знак}
   begin
    for j:=filesize(f) downto i+1 do{от конца файла+1 до данный элемет+1}
     begin
      seek(f,j-1);{читаем выше}
      read(f,a);
      seek(f,j);
      write(f,a); {вставляем ниже}
     end;
    a:='"';{присваиваем }
    seek(f,i);
    write(f,a);{запишем на место символа}
    seek(f,i+1);
    write(f,a);{и на 1 впереди}
    i:=i+2; {перешагнем}
   end
  else i:=i+1;{если не знак дальше}
 end;
seek(f,0);
writeln('symbols changed:');
while not eof(f) do
 begin
  read(f,c);
  write(c);
 
 end;
 k:=k+10;
close(f);
readln
end;
end.

Программа рабочая,ищет в папке файлы вида "ifile.txt",где и может меняться до 4400 с лишним. Потом она в каждом файле находит символы "@" и меняет их на """. НО если поменять расширение с .txt на .html и создать такие файлы в директории,то программа вообще их не находит. Подскажите,что в ней или компиляторе нужно изменить,чтобы она читала файлы .html?

[Человек_Борща]

ошиблись разделом. Раздел паскаля выше.

[Valio]

Вообще тут t:='file.txt'; достаочно изменить на html.

Но я думаю, что проблема в другом. Файлы ищутся не там, где ты ждёшь. Пиши пути полностью.

[GunSmoker]

Подскажите,что в ней или компиляторе нужно изменить,чтобы она читала файлы .html?

Pascal - это DOS. DOS - это короткие имена файлов 8 + 3 (8 символов имя и 3 символа - расширение). Какие ещё html?

C:\>dir /X
 Volume in drive C is Sh_System
 Volume Serial Number is 86AC-4147

 Directory of C:\

2012.05.24  02:43    <DIR>                       DevExpress
2009.10.31  03:07    <DIR>                       inetpub
2010.01.03  21:42    <DIR>                       Lazarus
2011.07.17  08:56    <DIR>                       np_ul
2011.06.01  20:44    <DIR>                       Perl
2012.06.16  23:23    <DIR>          PROGRA~1     Program Files
2012.06.30  01:07    <DIR>          PROGRA~2     Program Files (x86)
2012.04.09  21:45    <DIR>                       Restoration
2012.05.18  00:19    <DIR>                       Temp
2012.06.15  19:58    <DIR>                       Users
2012.06.29  00:12    <DIR>                       Windows

Первая полонка - короткие имена, как они видны старым программам. Ферштейн?

[Stilet]

Подскажите,что в ней или компиляторе нужно изменить,чтобы она читала файлы .html?

Ее нужно перекомпилировать в Делфи в консольном проекте

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var f:file of char;
    nf,t,s:string;
    a,c:char;
    i,j:integer;
    k:integer;
begin

k:=1;
while (k<4464) do
  begin
  t:='file.txt';
  Str(k,s);
nf:=concat(s,t);
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('file ',nf,' was npt found');
  writeLn('press ENTER');
  readln;
  exit;
 end;
writeln('contents of the file:');
while not eof(f) do
 begin
  read(f,c);
  write(c);
 end;
writeln;
writeln;
seek(f,0);{возвращаемся в начало файла}
i:=0;{начнем с первого элемента, его индекс=0}
while i<filesize(f) do{пока не последний компонент}
 begin
  seek(f,i);{встаем в позицию}
  read(f,c);{читаем символ}
  if c in ['@'] then{если это знак}
   begin
    for j:=filesize(f) downto i+1 do{от конца файла+1 до данный элемет+1}
     begin
      seek(f,j-1);{читаем выше}
      read(f,a);
      seek(f,j);
      write(f,a); {вставляем ниже}
     end;
    a:='"';{присваиваем }
    seek(f,i);
    write(f,a);{запишем на место символа}
    seek(f,i+1);
    write(f,a);{и на 1 впереди}
    i:=i+2; {перешагнем}
   end
  else i:=i+1;{если не знак дальше}
 end;
seek(f,0);
writeln('symbols changed:');
while not eof(f) do
 begin
  read(f,c);
  write(c);
 
 end;
 k:=k+10;
close(f);
readln
end;
end.

ищет в папке файлы

Кстати. Насчет писка: Даже в ДОС для этого существовали функции FindFirst-FindNext-FindClose
Вот их и нужно было использовать.

[s-andriano]

Сообщение от GunSmoker

Pascal - это DOS.

Сильное утверждение.

Если мне не изменяет память, Pascal - это язык программирования, а DOS - операционная система. Как одно может быть другим?

Сообщение от Stilet

Кстати. Насчет писка: Даже в ДОС для этого существовали функции FindFirst-FindNext-FindClose

Насколько я помню, в DOS FindClose не было - за ненадобностью. ОС - однозадачная.

[cool_phenomus]

Ее нужно перекомпилировать в Делфи в консольном проекте

Спасибо,попробую.

Вообще тут t:='file.txt'; достаочно изменить на html.

В том то и дело,что так и пробовал.

Pascal - это DOS. DOS - это короткие имена файлов 8 + 3 (8 символов имя и 3 символа - расширение). Какие ещё html?

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

[GunSmoker]

Как одно может быть другим?

Как несложно сообразить, слово "это" употреблено в значении "означает", "следует", "вытекает".

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

Во-первых, слово "любой" многозначно. Под ним можно понимать, к примеру, текстовые и двоичные файлы.
Во-вторых, на дату надо смотреть. В интернете много можно чего прочитать.