Hier hab' ich noch etwas, dass ich mit für meinen WebFTP (
www.webftp.jfheins.de ) geschrieben habe ...
So, hier mal nach Delphi portiert.
(Die Datumsinformation darf von
FTP-Server beliebig variiert werden, ist jedoch für den Menschen normalerweise schlüssig ...
)
Delphi-Quellcode:
TFTPFileInfo =
record
Directory: Boolean;
Date:
String;
FileName:
String;
end;
function GetFTPFileInformation (InfoStr:
String): TFTPFileInfo;
const
Months:
Array[1..12]
of String[3] = ('
Jan', '
Feb', '
Mar', '
Apr', '
May', '
Jun', '
Jul', '
Aug', '
Sep', '
Oct', '
Nov', '
Dec');
var
i, Position: Integer;
begin
Result.Directory := copy (InfoStr, 1, 1) = '
d';
for i := 1
to 12
do
begin
Position := pos (Months[i], InfoStr);
if Position <> 0
then Break;
end;
Result.Date := Trim (copy (InfoStr, Position, 12));
inc (Position, 12);
Result.FileName := Trim (Copy (InfoStr, Position, length (InfoStr) - Position));
end;