logt

Alexey Fayans написал(а) к All в Jan 19 19:58:19 по местному времени:

Нello All!

On Sun, 20 Jan 2019 at 13:06, Vitaliy Geydeko wrote to you:

VG> написал для вин консоли прибамбас
VG> короче пишешь в батнике
VG> logt Мой сервер взлетел! >>my.log
VG> и она добавляет в лог эту строчку с датой
VG> ftp://ftp.wit5064.mykeenetic.ru/fido/software/logt.zip

Я когда-то чуть более продвинутую штуку для этого делал.. :)

=== Start of addtime.pas ===
program AddTime;

{$MODE objfpc}

uses
SysUtils;

const
Format: AnsiString = '"["ddd", "mmm" "dd" "tt"."zzz" "yyyy"]"';
S : AnsiString = '';
I : Byte = 1;
Flag : Boolean = True;
SMN : TMonthNameArray = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
LMN : TmonthNameArray = ('January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December');
SWN : TWeekNameArray = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
LWN : TWeekNameArray = ('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday');

var
Tmp: AnsiString;
FSet: TFormatSettings;

begin
while I <= ParamCount do
begin
Tmp := ParamStr(I);

if Flag and (Tmp = '--') then
Flag := False
else
if Flag and (Tmp = '--format') then
begin
Inc(I);
Format := ParamStr(I);
end else
if Flag and (Tmp = '--help') then
begin
Tmp := ParamStr(0);
WriteLn('Prefix your message with current date and time.');
WriteLn;
WriteLn('Examples:');
WriteLn(Tmp + ' your message');
WriteLn(Tmp + ' --format "''[''dddddd'']''" your message');
WriteLn(Tmp + ' --format "dd''.''mm''.''yyyy'' ''hh'':''mm'':''ss" your message');
WriteLn(Tmp + ' -- your message');
WriteLn;
WriteLn('Date and time formatting characters:');
WriteLn(' https://www.freepascal.org/docs-html...rs.html');
Нalt(1);
end else
S := S + ' ' + Tmp;

if Flag then
Flag := False;

Inc(I);
end;

FSet := DefaultFormatSettings;
with FSet do
begin
ShortMonthNames := SMN;
LongMonthNames := LMN;
ShortDayNames := SWN;
LongDayNames := LWN;
LongDateFormat := 'ddd", "mmmm" "dd" "yyyy';
end;
WriteLn(FormatDateTime(Format, Now, FSet) + S);
end.
=== End of addtime.pas ===

... Music Station BBS | https://bbs.bsrealm.net | telnet://bbs.bsrealm.net
--- GoldED+/W32-MSVC 1.1.5-b20180707