Форум программистов, компьютерный форум, киберфорум
Java SE (J2SE)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 10.11.2017
Сообщений: 9
1

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

17.04.2018, 21:23. Просмотров 716. Ответов 4
Метки нет (Все метки)


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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.04.2018, 21:23
Ответы с готовыми решениями:

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

Отредактировать предложение, удаляя из него лишние пробелы, оставляя по одному пробелу между словами
Отредактировать предложение, удаляя из него лишние пробелы, оставляя по одному пробелу между...

Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами
Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между...

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
Записывайтесь на профессиональные курсы Java-разработчиков
4
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
Супер-модератор
Эксперт PythonЭксперт Java
7387 / 4000 / 1495
Регистрация: 21.10.2017
Сообщений: 11,324
17.04.2018, 21:46 3
xoraxax, огонь!
0
0 / 0 / 0
Регистрация: 10.11.2017
Сообщений: 9
18.04.2018, 06:25  [ТС] 4
перевести в код на Java
0
Супер-модератор
Эксперт PythonЭксперт Java
7387 / 4000 / 1495
Регистрация: 21.10.2017
Сообщений: 11,324
18.04.2018, 07:55 5
potapka, ну так тебе перевели! Осталось самую малость оформить.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.04.2018, 07:55

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Удалить повторяющиеся пробелы между отдельными словами строки (оставляя по одному пробелу)
Введите предложение, слова в котором разделены пробелами и в конце которого стоит точка. Удалите...

Ввести текст.Отредактировать текст,удаляя из него лишние пробеоы,оставляя только по одному пробелу между словами
Ввести текст.Отредактировать текст,удаляя из него лишние пробеоы,оставляя только по одному пробелу...

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

Убрать все лишние пробелы между словами (оставить только по одному пробелу)
Dim St As String, Stl As String Dim P As String * 10, Sym As String * 1 Dim KR As Long, KN As...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.