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

@KyTuH · Регистрация: 22.03.2011

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

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

@Predgornoe · 09.06.2012, 10:32

Pascal

var f,g:text;
     s:string;
     i:byte;
begin
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  while pos('  ',s)>0 do delete(s,pos('  ',s),1);{в апострофах по 2 пробела}
  writeln(g,s);
 end;
close(f);
close(g);
end.

@KyTuH 0 / 0 / 0 Регистрация: 22.03.2011 Сообщений: 40
		1
	Удалить из файла все лишние пробелы, оставив между словами не более одного пробела 17.05.2012, 10:50. Показов 3659. Ответов 1 Метки нет (Все метки) Помогите пожалуйста срочно решить задачу.............. Дан текстовый файл. Удалить из него все лишние пробелы, оставив между словами не более одного пробела. Результат поместить в новый файл. 0

Опции темы

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

Решение