Question

Имеется текстовый файл.Переписать в другой файл те его строки,в которых имеется более 30-ти символов.

Answer 1

Const
  n = 30;

var
  fin, fout: Text;
  s: string;

begin
  Assign(fin, 'input.txt');
  Reset(fin);
  Assign(fout, 'output.txt');
  Rewrite(fout);
  while not eof(fin) do
  begin
    readln(fin, s);
    if length(s) > n then writeln(fout, s)
  end;
  Close(fin);
  Close(fout)
end.

Answer 2

Для переписывания строк из одного текстового файла в другой файл, в которых содержится более 30 символов, вы можете использовать язык программирования, такой как Python. Вот пример кода на Python, который выполняет данную задачу:

with open('input.txt', 'r') as input_file:
    with open('output.txt', 'w') as output_file:
        for line in input_file:
            if len(line) > 30:
                output_file.write(line)

В этом примере предполагается, что у вас есть файл с именем "input.txt", который содержит исходные строки, и файл с именем "output.txt", в который будут записаны строки, содержащие более 30 символов.

Вы можете запустить этот код на своем компьютере, убедившись, что у вас установлен Python. Замените "input.txt" и "output.txt" на соответствующие имена файлов, которые вы хотите использовать.

Примечание: Пожалуйста, убедитесь, что у вас есть соответствующие разрешения для чтения из файла "input.txt" и записи в файл "output.txt".

Источник