Diskussion: Get ParentDirectory - (Mit nur einer Zeile)

[al90]

Der Logik werde ich lieber nicht folgen, um diese Uhrzeit

Bei der Zeilenlänge wird das auch am Tage nichts.

[ts-soft]

Zwar nicht eine Zeile, aber scheint wenigstens zu funktionieren, was ja viel wichtiger ist:

Code: Alles auswählen

 Procedure.s GetParentDirectory(Dir$)

  If Len(Dir$) > 3
    If GetFilePart(Dir$) : Dir$ = GetPathPart(Dir$) : EndIf
    Dir$ = GetPathPart(Left(Dir$, Len(Dir$)-1))
  EndIf

  ProcedureReturn Dir$

EndProcedure

Debug GetParentDirectory("C:\MainFolder\SubFolder_1\SubFolder_2\")
Debug GetParentDirectory("C:\MainFolder\SubFolder_1\")
Debug GetParentDirectory("C:\MainFolder\")
Debug GetParentDirectory("C:\")
Debug GetParentDirectory("C:\a\b\c\d\e\") ; <--- Das geht jetzt also auch.
Debug GetParentDirectory("\\UBUNTU_DESKTOP\pb-ubuntu32\")
Debug GetParentDirectory("d:\ts-temp\simpsons_006.jpg")

[al90]

Oh man um die Uhrzeit hab ich wohl nur noch Denkfehler.
Naja jetzt weis ich was ich falsch gemacht hatte. Hier meine Lösung:

Code: Alles auswählen

Procedure.s GetParentDirectory(Dir$)

  If Len(Dir$) > 3
    Dir$ = GetPathPart(Left(GetPathPart(Dir$), Len(GetPathPart(Dir$))-1))
  EndIf

  ProcedureReturn Dir$

EndProcedure

Debug GetParentDirectory("\\UBUNTU_DESKTOP\pb-ubuntu32\")
Debug GetParentDirectory("d:\ts-temp\simpsons_006.jpg")
Debug GetParentDirectory("C:\a\b\c\d\e\")

[salbei]

Naja, nach dem Edit sollte alles passen, der Bug ist mir auch aufgefallen, allerdings erst NACH dem ersten Posting

[salbei]

Oh man um die Uhrzeit hab ich wohl nur noch Denkfehler.
Naja jetzt weis ich was ich falsch gemacht hatte. Hier meine Lösung:

Code: Alles auswählen

Procedure.s GetParentDirectory(Dir$)

  If Len(Dir$) > 3
    Dir$ = GetPathPart(Left(GetPathPart(Dir$), Len(GetPathPart(Dir$))-1))
  EndIf

  ProcedureReturn Dir$

EndProcedure

Debug GetParentDirectory("\\UBUNTU_DESKTOP\pb-ubuntu32\")
Debug GetParentDirectory("d:\ts-temp\simpsons_006.jpg")

Und

Code: Alles auswählen

Debug GetParentDirectory("C:\a\b\c\d\e")

?

[a14xerus]

I don't get it


Während dem lesen hab ich mich irgendwie gefühlt als wäre ich in einer Zeitschleife
Irgendwie hab ich ein paar DejaVu gehabt und hatte aus irgendeinem grund das gefühldas die psotings in der falschen reihenfolge da stehen würden


Bin ich nur doof oder kann mir mal einer die jetzt aktuellste Version der "GetParentDirectory" Procedure geben ?

[ts-soft]

Bin ich nur doof oder kann mir mal einer die jetzt aktuellste Version der "GetParentDirectory" Procedure geben ?

Nein, da bisher noch keine korrekt funktioniert!

[al90]

Und

Code: Alles auswählen

Debug GetParentDirectory("C:\a\b\c\d\e")

?

Ja hast recht, war noch ein Fehler drinn. Korrigiert!

EDIT:

Geht immernoch nicht. Sorry aber ist zu spät für mich heute. Ich kriege nix mehr hin.

[a14xerus]

Bin ich nur doof oder kann mir mal einer die jetzt aktuellste Version der "GetParentDirectory" Procedure geben ?

Nein, da bisher noch keine korrekt funktioniert!

Und was ist mit deiner ? :

Zwar nicht eine Zeile, aber scheint wenigstens zu funktionieren, was ja viel wichtiger ist:

Code: Alles auswählen

 Procedure.s GetParentDirectory(Dir$)

  If Len(Dir$) > 3
    If GetFilePart(Dir$) : Dir$ = GetPathPart(Dir$) : EndIf
    Dir$ = GetPathPart(Left(Dir$, Len(Dir$)-1))
  EndIf

  ProcedureReturn Dir$

EndProcedure
; [...] 

[al90]

Und was ist mit deiner ? :

Geht auch noch nicht.

Code: Alles auswählen

Debug GetParentDirectory("d:\a\b\c\d\e")

Hier mein (Endgültiger) Letzter versuch für Heute.

Code: Alles auswählen

Procedure.s GetParentDirectory(Dir$)

  If Len(Dir$) > 3
    If Right(Dir$,1)<>"\" And GetExtensionPart(Dir$)="" : Dir$+"\" : EndIf
    Dir$ = GetPathPart(Left(GetPathPart(Dir$), Len(GetPathPart(Dir$))-1))
  EndIf

  ProcedureReturn Dir$

EndProcedure

Debug GetParentDirectory("\\UBUNTU_DESKTOP\pb-ubuntu32\")
Debug GetParentDirectory("d:\ts-temp\simpsons_006.jpg")
Debug GetParentDirectory("d:\a\b\c\d\e")

Hat jetzt zwar 5 Zeilen, aber geht erstmal soweit. (Hoffentlich)