заменить в файле + на -

[gylayko]

Нужно заменить в файле + на - и наоборот!

uses crt;
var s:string;i:integer;f:file of string;
begin
clrscr;
assign(f,'C:\12.txt');
rewrite(f);
while not eof(f) do
   begin
   for i:=1 to length(s) do
      begin
      if s[i]='-' then
      s[i]:='+';
      if s[i]='+' then
      s[i]:='-';
      end;
   end;
close (f);
readln;
end.

Что я не так делаю? В результате не меняет + на - и наоборот, а просто очищает файл и все. Помогите пожалуйста.

[Skalp]

Тебе надо:
1) Прочитать файл и записать прочитанное в переменную "s";
2) Поменять "+" на "-" (и наоборот) в переменной "s";
3) Сохранить измененную строку "s" в файле "f".
Первого и третьего пункта у тебя нет.

[TinMan]

хм.. как все запущено..
Не надо делать file of string. Ты стираешь файл при открытии через rewrite.
Либо делай файл типа text - но тогда потребуется 2 файла (из одного читаешь, в другой пишешь, потом первый удаляешь, второй переименовываешь)
Либо делай file of char, открывай его через reset и при встрече +/- откатывайся назад на один символ и пиши, что надо.

[gylayko]

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

Тебе надо:
1) Прочитать файл и записать прочитанное в переменную "s";

Я записываю файл в переменную f через assign!

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

3) Сохранить измененную строку "s" в файле "f".

Как это сделать?

[Skalp]

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

Я записываю файл в переменную f через assign!

Тут ты только ассоциируешь (не записываешь) переменную "f" с указанным файлом.

Чтобы прочитать текст из файла, открой файл для чтения с помощью "reset", потом считай из файла текст с помощью "read", присвой прочитанное переменной "s", сделай изменения в строке, сохрани измененное с помощью "write".

И кстати, для работы с текстом лучше для файловой переменной указывать тип не file of string, а textfile или просто text (не помню уже).

[gylayko]

короче я изменил, теперь вот так:

uses crt;
var s:string;i:integer;f,f2:text;
begin
clrscr;
assign(f,'C:\12.txt');
reset(f);
while not eof(f) do
   begin
   readln(f,s);
   for i:=1 to length(s) do
      begin
      if s[i]='-' then
      s[i]:='+' else
      if s[i]='+' then
      s[i]:='-';
      assign(f2,'C:\123.txt');
      rewrite(f2);
      write(f2,s);
      close(f2);
      end;
   end;
close (f);
readln;
end.

Но теперь меняет непонятно что, выводит просто "+-" и все, а не меняет в тексте все + и -! Что я не так сделал?

[gylayko]

Ага, поменял readln на read. Но теперь меняет только первую строку из файла, а нужно чтобы все, как это сделать?

[Skalp]

если у тебя в файле несколько строк, то я думаю, что надо добавить цикл while not eoln после цикла while not eof

И не надо повторно ассоциировать файл, причем с другой переменной.

[TinMan]

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

var
  f: file of char;
  c: char;
....
  assign(f,'text.txt');
  reaset(f);
  while not EoF(f) do begin
    read(f,c);
    if c in ['+','-'] then begin
      Seek(f,FilePos(f)-1);
      if c='+' then write(f,'-') else write(f,'+')
    end
  end;
  close(f);

[gylayko]

на write(f,'-') ругается, что отсутствует идентификатор переменной! что делать?