Файлы и подсчет строк

[Николай ПН]

Как можно в файле посчитать строки и вывести количество. И вывести любую строку?

[Arigato]

Можно чтением текстового файла построчно с помощью readln, пока не наступит конец файла.

[Николай ПН]

А как сделать, чтобы любую строку записало, а не все?

[Arigato]

Отсчитать нужное число строк, считывая их вхолостую, а нужную записать.

[Николай ПН]

Пытался, но у меня все равно выдает все строки. Не знаю как сделать

[Serge_Bliznykov]

Пытался, но у меня все равно выдает все строки. Не знаю как сделать

показывайте, как пытались...

[Stilet]

Как можно в файле посчитать строки и вывести количество. И вывести любую строку?

Например так:

MODULE Файлы;
 IMPORT Files,StdLog,Converters,Views,TextModels,
        TextMappers,TextViews;

VAR
 loc:Files.Locator;
 FileName:Files.Name;
 conv:Converters.Converter;
 v:Views.View;
 m:TextModels.Model;
 scan:TextMappers.Scanner;
 i:INTEGER;

PROCEDURE ВзятьСтроку(Номер:INTEGER);
BEGIN
  scan.SetPos(0);
  scan.type:=TextMappers.line;
  WHILE (Номер>scan.lines)&(scan.Pos()<i) DO
   scan.Scan();
  END;
  StdLog.Ln;
  StdLog.String(scan.string);
  
END ВзятьСтроку;

PROCEDURE КолВоСтрок(APath,AFile:ARRAY OF CHAR);
BEGIN
  WHILE scan.Pos()<i DO
   scan.Scan();
  END;
  StdLog.String("Строк=");
  StdLog.Int(scan.lines+1);
END КолВоСтрок;

PROCEDURE do*(APath,AFile:ARRAY OF CHAR);
BEGIN
 loc:=Files.dir.This(APath$);
 FileName:=AFile$;
 v:=Views.Old(FALSE,loc,FileName,conv);
  StdLog.Clear;
 IF (v#NIL)&(v IS TextViews.View) THEN
  m:=v(TextViews.View).ThisModel();
  scan.ConnectTo(m);
  scan.type:=TextMappers.line;
  i:=scan.rider.Base().Length();
  КолВоСтрок(APath,AFile);
  ВзятьСтроку(2);
 ELSE
  StdLog.String("Ошибка загрузки");
 END;

END do;

END Файлы.



"Файлы.do('c:\temp\','f.txt')";