Работа с текстовыми файлами.Pascal

[valis]

Создать в текстовом редакторе файл, состоящий из символов: Латинские буквы, цифры, запятые, точки. и 7 строк. Описать процедуру или функцию, которая Удаляет из текста все цифры.. Результат вывести на экран. В конец исходного файла программно занести свои имя и фамилию.

Объясните пожалуйста,как удалить из текста все цифры,какое условие добавить?

[Grag]

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

Создать в текстовом редакторе файл, состоящий из символов: Латинские буквы, цифры, запятые, точки. и 7 строк. Описать процедуру или функцию, которая Удаляет из текста все цифры.. Результат вывести на экран. В конец исходного файла программно занести свои имя и фамилию.

Объясните пожалуйста,как удалить из текста все цифры,какое условие добавить?

Делаешь процедуру парсинга текстового файла, т.е разбиваешь его строки, потом строки разбиваешь на слова, потом в каждом слове ищешь символы, входящие в ['0'..'9'] и удаляешь их. В результате получаешь строки без символов цифр, выводишь их на экран. Исходный файл переоткрываешь процедурой Append и добавляешь в конец файла свои данные...

[valis]

Можно как-нибудь подробнее о парсинге. Впервые слышу о нем

[Grag]

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

Можно как-нибудь подробнее о парсинге. Впервые слышу о нем

Тебе всегда поможет Google...

[valis]

assign (f, 'I:\Program Files\PABC\part2.txt');
   reset(f);
...............
..............

for i:=length(str) downto 1 do
if str[i] in ['0'..'9'] then delete(str,i,1);
     end;
     writeln(str);
          end;
   close(f);

 {vvod novoi zapisi v file}
{append (f);
writeln(f, ' name');
close(f);
readkey;
end;
end;

Вот что добавить на место троеточия?

[Serge_Bliznykov]

while Not Eof(f) do begin
  Readln(f, str); {прочитали одну строчку из файла}

  {удалили цифры}
  for i:=length(str) downto 1 do
      if str[i] in ['0'..'9'] then delete(str,i,1);

  WriteLn(str); {вывели на экран - уже без цифр}
end;

а вообще, то, что у Вас в файле 7 строк, можно использовать.
сохраняете все строчки в массив (удаляя цифры), потом перезаписываете файл...

примерно так:

var 
  MasStr : array[1..7] of string;
  k : integer;
...
begin
  Assign(f, 'имя_файла');
  Reset(f);
  for k:=1 to 7 do
    if Not Eof(f) then Readln(f, MasStr[k])
                      else MasStr[k] := '';
  Close(f);

  {выведем исходный файл на экран}
  for k:=1 to 7 do
   WriteLn(MasStr[k]);

  {удалим все цифры}
  for k:=1 to 7 do
     for i:=length(MasStr[k]) downto 1 do
     if MasStr[k][i] in ['0'..'9'] then delete(MasStr[k],i,1);

  {выведем результат на экран}
  WriteLn('----- RESULTAT ------');
  for k:=1 to 7 do
   WriteLn(MasStr[k]);

  Rewrite(f); {ВНИМАНИЕ! ЭТО ПЕРЕЗАПИСЬ ИСХОДНОГО ФАЙЛА}

  for k:=1 to 7 do
   WriteLn(аб MasStr[k]);

  {добавим в файл фамилию}
  WriteLn(f,'Моя фамилия и имя...')

  Close(f); {закрыть файл}

end.