Откорректировать файл, удаляя пустые строки, пробелы в конце и вначале строк и оставляя между словами по одному пробелу

@potapka · Регистрация: 10.11.2017

Помогите пожалуйста.
Задание. Дан текстовый файл Т. Откорректировать его, удаляя пустые строки, пробелы в конце и вначале строк и оставляя между словами по одному пробелу.

Pascal

const
 f='text.txt';
 g='aaa.txt';
 
var
 t,a: text;
 st: string;
 
function pr1(x: string): string;
var i:integer;
begin
if x[1]=' ' then
while x[1]=' ' do
delete(x,1,1);
pr1:=x;
end;
function pr2(x: string): string;
var i: integer;
begin
if x[length(x)]=' ' then
while x[length(x)]=' ' do
delete(x,length(x),1);
pr2:=x;
end;
function prob(x: string): string;
var i,j: integer;
begin
while pos('  ',x)>0 do{здесь везде по 2 пробела}
delete(x,pos('  ',x),1);
prob:=x;
end;
 
begin
assign(t,f);
assign(a,g);
reset(t);
rewrite(a);
while not eof(t) do
 begin
  readln(t,st);
  if length(st)>0 then
    begin
     st:=pr1(st);
     st:=pr2(st);
     st:=prob(st);
     writeln(a,st);
    end;
 end;
close(t);
close(a);
erase(t);
rename(a,f);
writeln('Файл отредактирован');
readln
end.

@xoraxax · 17.04.2018, 21:42

типа того
Files.lines().map(line->line.trim()).filter(line->line.length()>0).map(line -> line.replaceAll("\\s+"," ");

@iSmokeJC · 17.04.2018, 21:46

xoraxax, огонь!

@potapka · 18.04.2018, 06:25 **[ТС]**

перевести в код на Java

@iSmokeJC · 18.04.2018, 07:55

potapka, ну так тебе перевели! Осталось самую малость оформить.

@xoraxax 2974 / 2516 / 778 Регистрация: 05.07.2013 Сообщений: 12,192
	17.04.2018, 21:42	2
	типа того Files.lines().map(line->line.trim()).filter(line->line.length()>0).map(line -> line.replaceAll("\\s+"," "); 1

@iSmokeJC Супер-модератор 7387 / 4000 / 1495 Регистрация: 21.10.2017 Сообщений: 11,324
	17.04.2018, 21:46	3
	xoraxax, огонь! 0

@potapka 0 / 0 / 0 Регистрация: 10.11.2017 Сообщений: 9
	18.04.2018, 06:25 [ТС]	4
	перевести в код на Java 0

@iSmokeJC Супер-модератор 7387 / 4000 / 1495 Регистрация: 21.10.2017 Сообщений: 11,324
	18.04.2018, 07:55	5
	potapka, ну так тебе перевели! Осталось самую малость оформить. 0

Опции темы