TXT Dateien Einlesen

[Mackhack]

Vielleicht hilft dir das kleine Beispiel hier um zu verstehen was du machen musst:

Ausgangsinfo:

Zitat:

127.0.0.1
Hostname : mail.xxx.com
Unicode : /scripts/..%%35c..%%35cwinnt/system32/cmd.exe?/c+dir+c:\
Drive c space : 1.024 bytes free
Drive d space : 1.423.015.936 bytes free
ASP exploit : No
Firewall : No

Code zum zerpfluecken:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
Var
  i: Integer;
  Line: String;
begin
  Memo2.Clear;
  For i := 0 To Memo1.Lines.Count Do
  Begin
    If Pos('Hostname',Memo1.Lines[i]) <> 0 Then
      Line := Copy(Memo1.Lines[i - 1],0,15);
    If Pos('Unicode',Memo1.Lines[i]) <> 0 Then
      If Pos('/',Memo1.Lines[i]) <> 0 Then
      Begin
        Line := Line + Copy(Memo1.Lines[i],11,Length(Memo1.Lines[i]));
        Memo2.Lines.Add(Line);
      End
      Else
      Begin
        Line := Line + Memo1.Lines[i + 1];
        Memo2.Lines.Add(Line);
      End;
  End;
end;

Ausgabe:

Zitat:

127.0.0.1/scripts/..%%35c..%%35cwinnt/system32/cmd.exe?/c+dir+c:\