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

@Sergey Chepets · Регистрация: 10.12.2016

Дан текстовый файл f. Переписать его содержимое в файл g таким образом, чтобы в нем были удалены лишние пробелы и каждая строка содержала ровно 20 символов.

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

@Sergey Chepets · 15.12.2016, 22:04 **[ТС]**

Дан текстовый файл f. Переписать его содержимое в файл g таким образом, чтобы в нем были удалены лишние пробелы и каждая строка содержала ровно 20 символов.
Пока выходит только это :

Pascal

program lab9(input,output);
var b1, b2 : string;
    f1name,f2name: string;
    f1,f2: Text;
    i, l, n: integer;
procedure errorFile(f1name:string);
var k: integer;
begin
k:=IOResult;
 if k <> 0 then begin
  writeln ('ошибка #',k,'проверьте искомый файл ', f1name);
  readln;
  halt (8);
 end;
end;
begin
clrscr; 
 writeln('Введите путь к текстовому файлу');
  readln(f1name);
 writeln('Куда загружать результат?');
  readln(f2name);
   assign (f1,f1name);
   assign (f2,f2name);
     {$I-}
     reset(f1);
     errorFile(f1name);
     rewrite(f2);
     errorFile(f2name);
     {$I+}
   n:=0;
   while not eof(f1) do begin
    readln(f1, b1);
    inc(n);
    l:=length(b1);
///////////////////////////////////
    if l = 20 then
     b2:=b1
    else
     begin
      b2:=b1;
      b2[0]:=char (ord(20));
     end;
///////////////////////////////////
   end;
   close(f1);
   close(f2);
end.

Но результата нет. И не могу понять как реализовать удаление лишних пробелов.

@Kitayets · 16.12.2016, 11:06

ну не верно

1. b2[0]:=char (ord(20)); откуда взяли? так оно могло работать в турбо-паскале, но это грязный хак и сейчас так не работает. кроме того этим кодом вы отрезаете остаток строки, но в задании не ясно, требуется ли именно это, или необходим перенос и до-заполнение строк следующими... Перенос по словам, или тупо по символам...
2. не записываете в файл ничего. по идее b2 нужно писать в файл.

я бы делал так - зачитал бы весь файл в стринг-лист/"одну строку" и обрабатывал. Или читал по 1 символу из файла и конечными автоматами обрабатывал.

так же необходимо уточнить на счет файлов - может ли там быть кириллица? если да, то в какой кодировке?

@Sergey Chepets · 17.12.2016, 22:45 **[ТС]**

Kitayets, Главное кол-во символов в строке, только 20, то-есть "порубать" текст на строки в 20 символов. А язык не имеет значения.

ФедосеевПавел · 17.12.2016, 22:57

Pascal

{$mode delphi}
{$APPTYPE CONSOLE}
 
program Tak;
 
uses
  StrUtils, SysUtils, Classes;
 
const
  d = 20;
 
  cFileNameF = 'Tak.pas';
  cFileNameG = 'Result.txt';
 
var
  sL: TStringList;
  f,                 {файл-источник}
  g : TextFile;      {файл-приёмник}
  i : integer;
  s: string;
 
begin
  sL := TStringList.Create;
  sL.Sorted := FALSE;
  sL.Duplicates := dupIgnore;
  try
    sL.LoadFromFile(cFileNameF);
    for i:=0 to sL.Count-1 do
    begin
      s:=sL.Strings[i];
      if Length(s)<d then
        s:=PadRight(s, d)
      else
        SetLength(s, d);
      sL.Strings[i]:=s;
    end;
    sL.SaveToFile(cFileNameG);
  except
    on Exception do WriteLn('Error');
  end;
  sL.Free;
  writeln('Press Enter...');
  readln;
end.

Это, конечно для фиксированных имён файлов. А что такое "лишние пробелы" - они где - в конце строки, в начале строки, между слов (двойные, тройные пробелы)?

Добавлено через 1 минуту
Или и вправду, нужно сохранить весь текст, перераспределив слова в файле по строкам. И сделав распределение слов по строке.

@Sergey Chepets · 18.12.2016, 00:54 **[ТС]**

Вот, что написал на данный момент, программа работает, но не совсем корректно, пробелы лишние удаляет (второй подряд пробел считается лишним), но иногда удаляет нужные. И иногда удаляются нужные символы при переносе. Не могу понять с чем это связано.

Pascal

program lab9(input,output);
uses crt;
 
var b1, b2 : string;
    f1name,f2name: string;
    f1,f2: Text;
    i, l, n: integer;
 
procedure errorFile(put:string);
var k: integer;
begin
k:=IOResult;
 if k <> 0 then begin
  writeln ('ошибка #',k,' проверьте искомый файл ', put);
  readln;
  halt (8);
 end;
end;
 
begin
clrscr;
 writeln('Введите путь к текстовому файлу');
  readln(f1name);
 writeln('Куда загружать результат?');
  readln(f2name);
   assign (f1,f1name);
   assign (f2,f2name);
     {$I-}
     reset(f1);
     errorFile(f1name);
     rewrite(f2);
     errorFile(f2name);
     {$I+}
   n:=0;
   while not eof(f1) do begin
    readln(f1, b1);
    inc(n);
    l:=length(b1);
///////////////////////////////////
    While (Pos('  ',b1) <> 0) do begin
     Delete(b1, Pos(' ',b1), 1);
    End;
     if l < 20 then
      b2:=b1
     else
      begin
       b2:=b1;
       b2[0]:=char(ord(20));
      end;
///////////////////////////////////
   writeln(f2, b2);
   writeln(length(b2), '<',b2,'>');
   end;
   close(f1);
   close(f2);
   readln;
end.

ФедосеевПавел · 18.12.2016, 01:11

Строки во FreePascal имеют внутренний формат, отличающийся от формата в TurboPascal. С ними нельзя работать так, как показано в строке 48. Эта операция делается SetLength(b2, 20);

@Sergey Chepets · 18.12.2016, 01:20 **[ТС]**

ошибка логического характера? просто у меня всё компилируется, но изначально был вариант сделать это через цикл

Pascal

1 2	b2:=''; for i:=1 to 20 b2:=+b1[i];

Добавлено через 3 минуты
Изменил, по вашему совету, но результат совсем не изменился

ФедосеевПавел · 18.12.2016, 01:27

Там много чего.
1. В строке 38 определяется l:=length(b1), в строках 40-42 модифицируется b1, в 43 на основе устаревшей l принимается решение.
2. строка 48 должна быть SetLength(b2, 20);

Добавлено через 4 минуты
И вы бы уточнили задачу. Вдруг вам нужно из

Код

Строка из нескольких слов для демонстрации
подхода     к решению
задачи.

Получить

Код

Строка из нескольких
слов для демонстраци
и подхода к решению
задачи.

@Sergey Chepets · 18.12.2016, 01:30 **[ТС]**

исправил. всё по старому

Добавлено через 1 минуту
Если, решать задачу путем переноса слов, нужно их будет отделить от текста, а в рамках моей лабораторки это слишком сложно, так, что я думаю у меня попроще условие.

ФедосеевПавел · 18.12.2016, 01:33

Тогда приводите тестовые наборы. Что даёте, что получаете, что ожидаете.

@Sergey Chepets · 18.12.2016, 01:45 **[ТС]**

Из:
Строка из нескольких слов для демонстрации
подхода к решению
задачи.
Получить:
Строка из нескольких
слов для демонстраци
и подхода к решению
задачи.
Получаю:
Строка из нескольких
подхода к решению
задачи.

Добавлено через 9 минут
Из:

Строка из нескольких слов для демонстрации

подхода     к решению

задачи.

Получить:

Строка из нескольких

слов для демонстраци

и подхода к решению 

задачи.

Получаю:

Строка из нескольких

подхода к решению

задачи.

ФедосеевПавел · 18.12.2016, 01:47

Т.е. нужно выполнять перенос слов, а не усекать строки.

Добавлено через 52 секунды
Тэг CODE под кнопкой '#'

@Sergey Chepets · 18.12.2016, 02:10 **[ТС]**

Тест немного неудачный)
Из:

ActionScript 3

1	Длинное предложение с лишними пробелами, которое хотим изменить.

Получить:

ActionScript 3

Длинное предложение 
с лишними пробелами,
 которое хотим измен
ить.

Получаю:

ActionScript 3

1	Длинноепредложениесл

Вау, на этом примере программа еще хуже работает

Добавлено через 5 минут
Блин, теперь я понял чего вы от меня добиваетесь, будет ли перенос, либо же просто из строки будет удаляться лишние символы. Извиняюсь за дикий тупняк.
Ладно, со строками, пускай просто лишнее удалиться, не буду заморачиваться.
Не могу понять, что не так с пробелами?
Она то не удаляет когда 1 в исходном варианте текста, то удаляет

Добавлено через 11 минут
Нашел очень глупую ошибку, потерял 1 пробел в этой строке

Pascal

1	Delete(b1, Pos(' ',b1), 1);

Спасибо большое за помощь!
Теперь понял какие ошибки допустил, постараюсь в будущем так не ошибаться)
Вот код программы, может пригодиться кому

Pascal

program lab9(input,output);
uses crt;
 
var b1, b2 : string;
    f1name,f2name: string;
    f1,f2: Text;
    i, l, n: integer;
 
procedure errorFile(put:string);
var k: integer;
begin
k:=IOResult;
 if k <> 0 then begin
  writeln ('ошибка #',k,' проверьте искомый файл ', put);
  readln;
  halt (8);
 end;
end;
 
begin
clrscr;
 writeln('Введите путь к текстовому файлу');
  readln(f1name);
 writeln('Куда загружать результат?');
  readln(f2name);
   assign (f1,f1name);
   assign (f2,f2name);
     {$I-}
     reset(f1);
     errorFile(f1name);
     rewrite(f2);
     errorFile(f2name);
     {$I+}
   n:=0;
   while not eof(f1) do begin
    readln(f1, b1);
    inc(n);
///////////////////////////////////
    While (Pos('  ',b1) <> 0) do begin
     Delete(b1, Pos('  ',b1), 1);
    End;
    l:=length(b1);
     if l < 20 then
      b2:=b1
     else
      begin
       b2:=b1;
       SetLength(b2,20);
      end;
///////////////////////////////////
   writeln(f2, b2);
   writeln(length(b2), '<',b2,'>');
   end;
   close(f1);
   close(f2);
   readln;
end.

@Sergey Chepets · 03.01.2017, 14:58 **[ТС]**

Pascal

program lab9(input,output);
uses crt;
 
var b1, b2 : string;
    f1name,f2name: string;
    f1,f2: Text;
    i, l, n: integer;
 
procedure errorFile(put:string);
var k: integer;
begin
k:=IOResult;
 if k <> 0 then begin
  writeln ('ошибка #',k,' проверьте искомый файл ', put);
  readln;
  halt (8);
 end;
end;
 
begin
clrscr;
 writeln('Введите путь к текстовому файлу');
  readln(f1name);
 writeln('Куда загружать результат?');
  readln(f2name);
   assign (f1,f1name);
   assign (f2,f2name);
     {$I-}
     reset(f1);
     errorFile(f1name);
     rewrite(f2);
     errorFile(f2name);
     {$I+}
   n:=0;
   while not eof(f1) do begin
    readln(f1, b1);
    inc(n);
///////////////////////////////////
    While (Pos('  ',b1) <> 0) do begin
     Delete(b1, Pos('  ',b1), 1);
    End;
    l:=length(b1);
     if l < 20 then
      b2:=b1
     else
      begin
       b2:=b1;
       SetLength(b2,20);
      end;
///////////////////////////////////
   writeln(f2, b2);
   writeln(length(b2), '<',b2,'>');
   end;
   close(f1);
   close(f2);
   readln;
end.

@bormant · 03.01.2017, 17:54

Sergey Chepets,
это не решает поставленную задачу.

@Cyborg Drone · 07.01.2017, 17:31

Сообщение от Sergey Chepets

ровно 20 символов

Это возможно с вероятностью 1/20. То есть, в большнстве случаев, невозможно.

Сообщение от Sergey Chepets

времени слишком мало

Sergey Chepets, а куда подевалось время? Потратили на иные цели?

Да, и нужно уточнить задание. Что именно считать лишними пробелами? Можно ли переносить слова, и, если можно, то нужно ли добавлять знак переноса в конце строки? Напротив, если нельзя разрывать слова, то следует вставлять какое-то количество пробелов в строку, так? Если да, тогда как поступать, если какое-либо слово содержит более 20 символов?

ФедосеевПавел Модератор 8291 / 4194 / 1597 Регистрация: 01.02.2015 Сообщений: 13,037 Записей в блоге: 4
	18.12.2016, 01:47	13
	Т.е. нужно выполнять перенос слов, а не усекать строки. Добавлено через 52 секунды Тэг CODE под кнопкой '#' 0

@Sergey Chepets 4 / 4 / 6 Регистрация: 10.12.2016 Сообщений: 192
		1
	Переписать один файл в другой, чтобы были удалены лишние пробелы и каждая строка содержала ровно 20 символов 10.12.2016, 00:51. Показов 1390. Ответов 16 Метки нет (Все метки) Дан текстовый файл f. Переписать его содержимое в файл g таким образом, чтобы в нем были удалены лишние пробелы и каждая строка содержала ровно 20 символов. Помогите пожалуйста, срочно надо сдать лабу, а времени слишком мало. 0

@Kitayets 428 / 359 / 129 Регистрация: 09.09.2011 Сообщений: 1,305
	16.12.2016, 11:06	3
	ну не верно 1. b2[0]:=char (ord(20)); откуда взяли? так оно могло работать в турбо-паскале, но это грязный хак и сейчас так не работает. кроме того этим кодом вы отрезаете остаток строки, но в задании не ясно, требуется ли именно это, или необходим перенос и до-заполнение строк следующими... Перенос по словам, или тупо по символам... 2. не записываете в файл ничего. по идее b2 нужно писать в файл. я бы делал так - зачитал бы весь файл в стринг-лист/"одну строку" и обрабатывал. Или читал по 1 символу из файла и конечными автоматами обрабатывал. так же необходимо уточнить на счет файлов - может ли там быть кириллица? если да, то в какой кодировке? 0

@Sergey Chepets 4 / 4 / 6 Регистрация: 10.12.2016 Сообщений: 192
	17.12.2016, 22:45 [ТС]	4
	Kitayets, Главное кол-во символов в строке, только 20, то-есть "порубать" текст на строки в 20 символов. А язык не имеет значения. 0

ФедосеевПавел Модератор 8291 / 4194 / 1597 Регистрация: 01.02.2015 Сообщений: 13,037 Записей в блоге: 4
	18.12.2016, 01:11	7
	Строки во FreePascal имеют внутренний формат, отличающийся от формата в TurboPascal. С ними нельзя работать так, как показано в строке 48. Эта операция делается `SetLength(b2, 20);` 0

ФедосеевПавел Модератор 8291 / 4194 / 1597 Регистрация: 01.02.2015 Сообщений: 13,037 Записей в блоге: 4
	18.12.2016, 01:27	9
	Там много чего. 1. В строке 38 определяется l:=length(b1), в строках 40-42 модифицируется b1, в 43 на основе устаревшей l принимается решение. 2. строка 48 должна быть `SetLength(b2, 20);` Добавлено через 4 минуты И вы бы уточнили задачу. Вдруг вам нужно из Код Строка из нескольких слов для демонстрации подхода к решению задачи. Получить Код Строка из нескольких слов для демонстраци и подхода к решению задачи. 1

@Sergey Chepets 4 / 4 / 6 Регистрация: 10.12.2016 Сообщений: 192
	18.12.2016, 01:30 [ТС]	10
	исправил. всё по старому Добавлено через 1 минуту Если, решать задачу путем переноса слов, нужно их будет отделить от текста, а в рамках моей лабораторки это слишком сложно, так, что я думаю у меня попроще условие. 0

ФедосеевПавел Модератор 8291 / 4194 / 1597 Регистрация: 01.02.2015 Сообщений: 13,037 Записей в блоге: 4
	18.12.2016, 01:33	11
	Тогда приводите тестовые наборы. Что даёте, что получаете, что ожидаете. 0

@Sergey Chepets 4 / 4 / 6 Регистрация: 10.12.2016 Сообщений: 192
	18.12.2016, 01:45 [ТС]	12
	Из: Строка из нескольких слов для демонстрации подхода к решению задачи. Получить: Строка из нескольких слов для демонстраци и подхода к решению задачи. Получаю: Строка из нескольких подхода к решению задачи. Добавлено через 9 минут Из: `Строка из нескольких слов для демонстрации подхода к решению задачи.` Получить: `Строка из нескольких слов для демонстраци и подхода к решению задачи.` Получаю: `Строка из нескольких подхода к решению задачи.` 0

@bormant Модератор 7520 / 4384 / 2781 Регистрация: 22.11.2013 Сообщений: 12,545 Записей в блоге: 1
	03.01.2017, 17:54	16
	Sergey Chepets, это не решает поставленную задачу. 0

@Cyborg Drone Модератор 9530 / 4858 / 3229 Регистрация: 17.08.2012 Сообщений: 15,202
	07.01.2017, 17:31	17
	Сообщение от Sergey Chepets ровно 20 символов Это возможно с вероятностью 1/20. То есть, в большнстве случаев, невозможно. Сообщение от Sergey Chepets времени слишком мало Sergey Chepets, а куда подевалось время? Потратили на иные цели? Да, и нужно уточнить задание. Что именно считать лишними пробелами? Можно ли переносить слова, и, если можно, то нужно ли добавлять знак переноса в конце строки? Напротив, если нельзя разрывать слова, то следует вставлять какое-то количество пробелов в строку, так? Если да, тогда как поступать, если какое-либо слово содержит более 20 символов? 0