Файлы. Текстовые файлы.

[KyTuH]

Помогите пожалуйста решить задачу...

Дан текстовый файл. Удалить из него все лишние пробелы, оставив между словами не более одного пробела. Результат поместить в новый файл.

[Arhangel7]

есть мысля, читать файл как не типизированный.
пишем все в другой файл - два подряд идущих и более 160 бита заменить на один 160 вот и все

[TinMan]

Архангел7 в принципе прав, хотя я и не понял, при чем тут биты (??) и 160.
Вот примерно так можно сделать.

var
  f,g: file of char;
  c,d: char
...
  d:= #0;
  reset(f);
  rewrite(g);
  while not eof(f) do begin
    read(f,c);
    if (c<>' ') or (d<>' ') then begin
      write(g,c);
      d:= c
    end
  end;

Оформление добавь сам.

[KyTuH]

Оформление добавь сам.

Знал бы я как....

[Arhangel7]

при чем тут биты (??)

трохан опечатался, не бит, а байт
160 байт равен пробелу, но не тому что надо - поспешил.
тот что нужен, равен 32.

[KyTuH]

Ребят(( Мне это ничего не дает, может просто напишите мне программу?)

[Noor]

Жаль что "поиск по форуму и Гугл отменили", осталовсь копи-пастом под себя переделать и оценка в кармане!

Program fgyr;
 
procedure delPROB (var s:string);{начало процедуры, удаляющей лишний пробел}
var  i:integer;
begin
i:=1;
repeat
if copy(s,i,2)='  ' then delete(s,i,1) else inc(i);
until i>length(s);
end; {конец процедуры, удаляющей лишний пробел}
 
var g,f:text; {переменные двух файлов}
    s:string; {переменная строки}
 
begin
assign (f,'stroki.txt' ); reset (f); {открываем файл для чтения}
assign (g,'stroki2.txt' ); rewrite (g); {открываем файл для записи}
 
while not eof(f) do begin {считываем файл}
readln(f,s); {считываем текущую строку}
delPROB(s);  {удаляем в этой строке лишние пробелы}
if length(s)>0 then writeln(g,s); {записываем результирующую строку в другой файл}
end;
 
writeln('Isxodnyi text perepisan v fail "stroki2.txt"...');
close(f); close(g); {закрываем файлы}
readln;
end.