Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Обработка файлов в Pascal

85K
04 января 2013 года
5 / / 27.11.2012
Дан файл. Преобразовать его, удалив из каждой строки слова, встречающиеся более двух раз, если таких строк нет, то вывести об этом сообщение и скопировать этот файл в другой, дописав в его конец выведенное сообщение.

Смог сделать удаление повторяющихся слов. Как осуществить вывод сообщения в конец файла- не знаю. Пожалуйста, помогите.

Код:
Const m=[' ','.','!','?'];
Var s,s1,s2:string;
    A:array[1..50] of string;
    f,g:text;
    i,k:byte;
Function Proverka(s:string;k:byte):boolean;
Var i:byte;
    b:boolean;
Begin
    b:=true;
    For i:=1 to k do
     if A[i]=s then b:=false;
    Proverka:=b;
End;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    k:=0;
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';s1:='';s2:='';
      For i:=1 to Length(s) do
       if not(s[i] in m) then s1:=s1+s[i]
        else
        Begin
          if Proverka(s1,k) then
          Begin
            s2:=s2+s1+s[i];
            inc(k);
            A[k]:=s1;
          End;
          s1:='';
        End;
      if s2<>'' then writeln(g,s2);
    End;
    writeln('Преобразование окончено!');
    Close(f);Close(g);
    readln;
End.
465
05 января 2013 года
QWERYTY
595 / / 25.03.2012
Вот так попробуйте:

Код:
program Project1;

{$APPTYPE CONSOLE}

//uses
 // SysUtils;

var
MyFile: TextFile;


begin
  try
    { TODO -oUser -cConsole Main : Insert code here }

  AssignFile(MyFile, 'ваш фаил');
  Append(MyFile);
  WriteLn(MyFile, 'Ваша супер важная инфа');
  CloseFile(MyFile);
  readln;


  except
 //   on E: Exception do
   //   Writeln(E.ClassName, ': ', E.Message);
  end;
end.
Не знаю какой у вас паскаль, но код максимально упростил. По логике должен компилироваться.

Этот код добавляет текст к уже имеющемуся в файле, в самый конец.
Я правильно понял, вам так нужно?
360
04 января 2013 года
P*t*
474 / / 15.02.2007
http://wm-help.net/books-online/book/79769/79769-19.html

Цитата:

Процедура Append( var f: Text ) служит для специального открытия
выходных файлов. Она применима к уже существующим физическим файлам и
открывает из для дозаписи в конец файла.

85K
05 января 2013 года
5 / / 27.11.2012
попробую.
Pascal ABC.NET
85K
05 января 2013 года
5 / / 27.11.2012
Все, спасибо, все работает
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог