Weil, wenn das unterschiedlich lang ist, dann müßte man ja noch einen Übergang dazwischen finden - z.B.:
Delphi-Quellcode:
Var TF: TextFile;
S: String;
P1, P2: Integer;
AssignFile(TF, FileName);
Reset(TF);
While not EoF(TF) do Begin
ReadLn(TF, S);
(***** extrahieren *****)
P1 := Pos('="', S) + 2;
P1 := PosEx(' --- ', S, P1) + 5; {<<<<<<<<<<<<<<<<<<<<}
P2 := PosEx('"', S, P1) - 1;
S := Copy(S, P1, P2 - P1 + 1);
(***********************)
CreateDir(S);
End;
CloseFile(TF);
aber das ist hier ja nicht nötig, da ja immer die ersten 8 Zeichen weg müssen;
Delphi-Quellcode:
...
(***** extrahieren *****)
P1 := Pos('="', S) + 10;
P2 := PosEx('"', S, P1) - 1;
S := Copy(S, P1, P2 - P1 + 1);
(***********************)
...