lazarus(pascal)和c语言读日志文件筛选保存为新文件

最新推荐文章于 2024-09-25 09:45:29 发布

原创

最新推荐文章于 2024-09-25 09:45:29 发布 · 625 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#c语言 #pascal

文章讲述了使用Pascal和C语言编写脚本，通过读取日志文件并按指定时间范围筛选内容，将满足条件的行保存到新文件中，以提高查看效率。

lazarus(pascal)和c语言读日志文件筛选保存为新文件，源于看日志每次从一个很多内容文件里查找不方便，写个代码输入时分秒参数，然后按行读取比较日志时间，当前秒和上一秒的输出保存为新文件，只保存2秒钟文件小多了，容易观察。

首先上pascal代码

program project1;

{$mode objfpc}{$H+}

uses
 {$IFDEF UNIX}
  cthreads,
   {$ENDIF}
  Classes,
  SysUtils,
  CustApp,
  dateutils { you can add units after this };

type

  { analyselog }

  analyselog = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure WriteHelp; virtual;
    procedure outLog(fn,outf,t, nextt: string); virtual;
    function changeSencond(dt: ttime; d: integer): ttime; virtual;
  end;

  { analyselog }

  procedure analyselog.DoRun;
  var
    fn: string;
     dt1,dt2: string;
    dt: TTime;
  begin
    if GetParamCount > 1 then
    begin
       dt2:= GetParams(1);
       writeln(dt2);
       dt := changeSencond(StrToTime(dt2), -1);
       dt1 := timetostr(dt);
        wri