string zerlegen ('d:\test\test2\test3\test4') result:=test3

[agm65]

guten morgen leute...
ich würde gerne nen string zerlege, der so aussieht: ('d:\test\test2\test3\test4')

jetzt möchte ich zB nur test3 als result bekommen...habe mal im forum geschaut und auch tips gefunden
aber zB die stringlist geht leider nicht bei mir, weil ich delphi 5 benutze und dort haben die
stringlists noch keinen delimeter.

jetzt wollte ich euch mal um gute ideen bitte...thx cu

[Matze]

Hallo

Evtl. helfen dir Explode, Copy, Pos und (ich weiß nicht, ob das schon in Delphi 5 gab): PosEx

[lucius]

Hi agm65,

Guck dir das mal an.
Weiss nicht ob das auch mit Delphi5 geht.

MFG Lucius.

[Pseudemys Nelsoni]

Delphi-Quellcode:

function Tokenize(const S: string; const C: Char): TStringDynArray;
var
  SLen, SIdx, NTok, TokStart, TokLen: Integer;
begin
  if S <> '' then
  begin
    SLen := Length(S);
    SetLength(Result, SLen);
    TokStart := 0;
    NTok := 0;
    TokLen := 0;
    for SIdx := 1 to SLen do
    begin
      if S[SIdx] <> C then
      begin
        if TokStart = 0 then
          TokStart := SIdx;
        Inc(TokLen);
      end;
      if ((SIdx = SLen) or (S[SIdx] = C)) and (TokStart > 0) then
      begin
        Inc(NTok);
        Result[NTok-1] := Copy(S, TokStart, TokLen);
        TokStart := 0;
        TokLen := 0;
      end;
    end;
    SetLength(Result, NTok);
  end else
    SetLength(Result, 0);
end;

und dann einfach:

Delphi-Quellcode:

var
  Arr: TStringDynArray;
  I: Integer;
begin
  Arr := Tokenize('d:\test\test2\test3\test4', '\');
  for I := 0 to High(Arr) do
    ShowMessage(Arr[I]);
end;

MfG

[marabu]

Mein Scherflein:

Delphi-Quellcode:

function ExtractParentDir(dir: string; noPath: boolean): string;
begin
  dir := ExtractFilePath(ExcludeTrailingBackslash(dir));
  if noPath
    then Result := ExtractFileName(ExcludeTrailingBackslash(dir))
    else Result := dir;
end;

Grüße vom marabu

[agm65]

danke euch allen ..aber marabu rockt das haus ! danke, einfach und effektive ! habt dank ihr treuen delphi fans !

cu

[agm65]

marabu noch eine frage ...
[Warnung] Unit1.pas(116): Symbol 'ExcludeTrailingBackslash' ist plattformspezifisch

heisst das: auf manchen rechner ist ExcludeTrailingBackslash kein '\' ?

und wie kann man das auf alle rechner übertragen ?

[Pseudemys Nelsoni]

Ja, bei Linux z.b ist es "/" statt "\"

[marabu]

Das heißt, dass du diesen Code nicht ohne Änderungen nach Linux portieren kannst. In den neueren Delphi-Versionen gibt es die portierbare Funktion ExcludeTrailingPathDelimiter().

marabu

[agm65]

aber auf den windows plattformen , egal welches land, sollte es laufen ?