Tatsächlichen Dateipfad berechnen

[WPö]

Servus, Leute!

Heute stehe ich wohl wieder einmal auf der Leitung.
Ich brauche eine Funktion, die mir zu einem zusammengestückelten Pfad wie

D:\abc\def\..\ghi\Datei

den effektiven Pfad zurückgibt, also

D:\abc\ghi\Datei

Offensichtlich lese ich in der PB-Hilfe jedesmal über den richtigen Befehl drüber - oder gibt es ihn nicht? Deshalb auch im Anfänger-Bereich . Unter PHP ist es realpath().

Danke für die Antworten!

Gruß - WPö

[Andesdaf]

eine in PureBasic integrierte Funktion gibts dafür nicht.

Um das zeuch zu verkürzen gibt's PathCompactPath.

Keine Ahnung, vielleicht gibt's noch einen weiteren Befehl.

[STARGÅTE]

wenns nur "das" ist sollte n Regulärer Ausdruck helfen:

Code: Alles auswählen

Global RealPathExpression = CreateRegularExpression(#PB_Any, "[^\\]+\\\.\.\\|\.\\")

Procedure.s RealPath(Path$)
  ProcedureReturn ReplaceRegularExpression(RealPathExpression, Path$, "")
EndProcedure

Debug RealPath("D:\abc\.\def\..\ghi\Datei")

Er sucht nach rücksprüngen "..\", oder gleichen Ebenen ".\"
und löscht diese, mit den unterebenen.

[WPö]

Danke Euch beiden!

Hab nochmal versucht, ohne Umwandlung solche Dateipfade an OpenFile und ReadFile zu übergeben und:
Du kriegst die Tür nicht zu!
Das funktioniert!
Ist also unnötig, RealPath nachzuprogrammieren - zumindest in dem Umfang, den ich hier verwendet habe. Trotzdem speziell Dir, Stargate, nochmals ein heftiges Danke!

Wie bei diesen RegEx üblich, sieht das richtig schlimm aus.

Gruß - WPö

[Little John]

Unter PHP ist es realpath().

Ich denke GetFullPathName_() macht das gleiche:

Code: Alles auswählen

Procedure.s FullName (source.s)
   ; in: short or long file name
   Protected ret.s{#MAX_PATH}

   GetFullPathName_(@source, #MAX_PATH, @ret, #Null)
   ProcedureReturn ret
EndProcedure


;-- Demo
Debug FullName("C:\Windows\..")

Gruß, Little John

[#NULL]

wenns nur "das" ist sollte n Regulärer Ausdruck helfen:

Code: Alles auswählen

Global RealPathExpression = CreateRegularExpression(#PB_Any, "[^\\]+\\\.\.\\|\.\\")

Procedure.s RealPath(Path$)
  ProcedureReturn ReplaceRegularExpression(RealPathExpression, Path$, "")
EndProcedure

Debug RealPath("D:\abc\.\def\..\ghi\Datei")

Er sucht nach rücksprüngen "..\", oder gleichen Ebenen ".\"
und löscht diese, mit den unterebenen.

klappt noch nicht ganz bei mehrfachen doppeldingens:

Code: Alles auswählen

Debug RealPath("D:\abc\.\def\..\..\ghi\Datei")

[STARGÅTE]

jo, war auch nur auf die schnelle hin"geschmiert" ...

das Suchmuster muss noch präzisiert werden.

[AND51]

Falls möglich, das Arbeitsverzeichnis kurz auf den Pfad setzen und wieder zurücksetzen:

Code: Alles auswählen

Procedure.s GetRealPath(Path$)
   Protected currentDir.s=GetCurrentDirectory() ; aktuellen Pfad speichern
   SetCurrentDirectory(Path$)
   Protected realPath.s=GetCurrentDirectory()
   SetCurrentDirectory(currentDir) ; altes aktuellen Pfad wiederherstellen
   ProcedureReturn realPath
EndProcedure

Debug GetRealPath("C:\Windows\system32\..\..\Windows\") ; should debug "C:\Windows"

[Little John]

Falls möglich, das Arbeitsverzeichnis kurz auf den Pfad setzen und wieder zurücksetzen

Und warum so umständlich?

[ts-soft]

Und warum so umständlich?

Wie sollte man das aktuelle Arbeitsverzeichnis sonst sichern und wiederherstellen?