текстовые файлы [Паскаль]

[<Tyz>]

Дан текстовый файл. Заменить в нем все подряд идущие пробелы на один пробел.


Я извиняюсь что столько тем, просто нужно сдать эти программы, а лекции по ним не читали, а самому времени нет разбираться - сессия на носу

[p51x]

http://programmersforum.ru/forumdisplay.php?f=29

[<Tyz>]

Кому не трудно помочь

[rubius2008]

while not eof(f) do begin
  readln(f,s);
  while pos('  ')<>0 do delete(s,pos('  ',1));
  writeln(g,s);
end;

Тут реализована запись из 1 файла (f - с ним связана) в другой (g - с нимсвязана) без пробелов. Тебе нужно лишь из g создать новый f.
Если нужны полные тексты программ(не бесплатно), то пиши в асю 600-927-970

[<Tyz>]

Program L;
uses crt;
var st,s:string;
f,g:text;
 
begin
 clrscr;
 write('S-> ');
 readln(s);
 assign(f,'input.txt');
 assign(g,'output.txt');
 reset(f);
 rewrite(g);
 while not eof(f) do
 begin
  readln(f,st);
  if st='' then writeln(g,s) else writeln(g,st);
 end;
 close(f);
 close(g);
end.

можно ли переделать этот код на мою задачу и как?

Этот код тоже работает

[Stilet]

я подскажу к тому что й тебя есть.

var s:string;i:integer;
begin
 s:='kjsfh  kjsf   kjkjsdhfks';
 i:=-1;
 while i<>0 do begin
  delete(s,i,1);
  i:=pos('  ',s);
 end;
 write(s);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Этот код удаляет лишние пробелы внутри строки. Грамотно прикрути его внутрь своего цикла, и выводи в конце цикла обработанную строку в файл.

[<Tyz>]

program practika12;
uses crt;
var s:string;
TFile: Text;
i: integer;

begin
 assign(TFile,'MFail.txt');{Создаёт текстовый фаил}
  rewrite(TFile); {Открывает файл для записи}
   write(TFile,s); {Записывает в фаил строку s}
begin
textcolor(1);
   writeln('Исходный текст');
   writeln('                                   ');
textcolor(12);
   writeln('kjsfh  kjsf                   kjkjsdhfks');textcolor(1);
   writeln('                                   ');
   writeln('Текст который будет записан в фаил ');
   writeln('                                   ');
textcolor(12);

   s:='kjsfh  kjsf                   kjkjsdhfks';
   i:=-1;
while i<>0 do begin
  delete(s,i,1); {Удаляет из строки s,
   1 символ, начиная с символа под номером i}
  i:=pos('  ',s); {Ищет в строке s }
 end;
write(s);
readln;

end;
 begin
clrscr;
  write(TFile,s);
  close(TFile);
  end;
end.

вот дописал программу, вот только не пойму как объяснить(для чего нужно) i:=-1


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[<Tyz>]

И еще строка pos, везде пишутся обьяснения, но я не пойму что она ищет или что она делает


Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Редактировать" ("Правка")
и дописывайте в своё сообщение, что Вы хотели добавить!

[Serge_Bliznykov]

вот дописал программу, вот только не пойму как объяснить(для чего нужно) i:=-1

ну, это Stilet придумал, чтобы программа попадала в цикл.
Только он это не очень хорошо придумал.
вот так - много ЛУЧШЕ:

  i := pos('  ',s); 
  while i<>0 do begin

тогда, если в строке нечего удалять (нет двух подряд пробелов),
то внутрь цикла мы и не попадём...

а функция Pos ищет подстроку в строке и возращает найденную позицию (или ноль - если ничего не нашла).
пример.
есть строчка s := 'ABCDEFG'
тогда pos('CD', s) вернёт число 3 (именно с третьей позиции в строке есть подстрока CD)

а pos('DC',s) вернёт ноль, т.к. такой подстроки нет в строке s

[Stilet]

Только он это не очень хорошо придумал.

Дело в том что процедура delete умна, и определяет попадания в границы строки индекса, так что я просто понадеялся на нее