Delphi-Quellcode:
...
try
begin
ZipMaster1 := TZipMaster.Create(nil);
Zipmaster1.ZipFilename:=FileStr;
for I:=1 to ZipMaster1.Count do
begin
with ZipDirEntry(ZipMaster1.ZipContents[I-1]^) do
begin
TempStr := copy(Filename,1,4);
if TempStr = 'LOG_' then
begin
ZipFileStr := Filename;
end;
end;
end;
ZipData := ZipMaster1.ExtractFileToStream(ZipFileStr);
ZipData.Position := 0;
ZipData.SaveToFile(ExtractFilePath(ParamStr(0))+'temp.txt');
memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'temp.txt');
DeleteFile(ExtractFilePath(ParamStr(0))+'temp.txt');
TempStr := memo1.Text;
AnfangInt := pos('Link: ',TempStr);
AnfangInt := AnfangInt + 6;
TempStr := copy(TempStr,AnfangInt,length(TempStr));
EndeInt := pos ('#$D#$A',TempStr); // #$D#$A Zeilenumbruch ..... EndeInt ergibt immer 0 .. #$D#$A wird iwie ignoriert
Edit1.Text := copy(TempStr,1,EndeInt);
end;
finally
ZipMaster1.Free;
end;
end;
1. aktuellste Datei in einem Ornder suchen (nur .zips)
2. LOG_*unbekannt*.txt im XXX.zip ermitteln
3. Abspeichern und in ein Memo laden
4. Einem String übergeben
5. Substring Anfang mit Hilfe von pos finden
6. Ende bis zum Zeilenumbruch it Hilfe von pos finden... aber es wird einfach ingoriert.. weiss einer Rat?
neuen topic wär jetzt dafür etwas übertrieben
thx 4 answer