XProfan

CutPath - Trennt Pfad de Dateiname ou bien renversé
Autor: Michael Dell -> http://www.cplace.de
support@cplace.de
Def TP(1)               Translate$($(1),/,\)
Def gFileFromPath$(1)   $ Substr(TP($(1)),-1,Chr$(92))                           Dateinamen
Def gPathFromPath$(1)   $ Substr(TP($(1)),1,gFileFromPath$($(1)))                Pfad avec  am ende
Def gExtFromPath$(1)    (. + $ Substr(gFileFromPath$($(1)),-1,.))            Dateierweiterung
Def gFileOEFromPath$(1) $ Substr(gFileFromPath$($(1)),1,gExtFromPath$($(1)))     Dateinamen sans Erweiterung
Pour Kompatibillität zur alten CutPath.pinc Version
Def GetFPath$(1)        gPathFromPath$($(1))                                    Pfad avec  am ende
Def GetPath$(1)         Del$(gPathFromPath$($(1)),Len(gPathFromPath$($(1))),1)  Pfad sans  am ende
Def GetFileName$(1)     gFileFromPath$($(1))                                    Dateinamen
Def GetFileExt$(1)      gExtFromPath$($(1))                                     Dateierweiterung
Def GetFileNameOE$(1)   gFileOEFromPath$($(1))                                  Dateinamen sans Erweiterung
**  Demo- Programme  *****************************************************************
Cls
Déclarer Test$
Test$ = f:\propre dateien/test\nochn test\test.exe
Imprimer récente
Imprimer
Imprimer (gPathFromPath$   =  + gPathFromPath$(Test$))
Imprimer (gFileFromPath$   =  + gFileFromPath$(Test$))
Imprimer (gExtFromPath$    =  + gExtFromPath$(Test$))
Imprimer (gFileOEFromPath$ =  + gFileOEFromPath$(Test$))
Imprimer
Imprimer
Imprimer vieux
Imprimer
Imprimer (GetFPath$        =  + GetFPath$(Test$))
Imprimer (GetPath$         =  + GetPath$(Test$))
Imprimer (GetFileName$     =  + GetFileName$(Test$))
Imprimer (GetFileExt$      =  + GetFileExt$(Test$))
Imprimer (GetFileNameOE$   =  + GetFileNameOE$(Test$))
WaitInput
Fin

proc _filename export égal quoi übergeben wird (lw+pfad+fnam), es wird toujours qui Dateiname zurückgeliefert

    parameters s$
    declare p&
    s$:=translate$(\,/,s$)
    p&:=instr(/,s$)

    tandis que p&

        s$:=del$(s$,1,p&)
        p&:=instr(/,s$)

    Wend

    return s$

endproc

proc _filename

    parameters s$
    declare p&
    s$:=translate$(s$,,/)
    p&:=instr(/,s$)

    tandis que p&

        s$:=del$(s$,1,p&)
        p&:=instr(/,s$)

    Wend

    return s$

endproc