XProfan

CutPath - Trennt Pfad von Dateiname oder umgekehrt
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 mit  am ende
Def gExtFromPath$(1)    (. + SubStr$(gFileFromPath$($(1)),-1,.))            Dateierweiterung
Def gFileOEFromPath$(1) SubStr$(gFileFromPath$($(1)),1,gExtFromPath$($(1)))     Dateinamen ohne Erweiterung
Für Kompatibillität zur alten CutPath.pinc Version
Def GetFPath$(1)        gPathFromPath$($(1))                                    Pfad mit  am ende
Def GetPath$(1)         Del$(gPathFromPath$($(1)),Len(gPathFromPath$($(1))),1)  Pfad ohne  am ende
Def GetFileName$(1)     gFileFromPath$($(1))                                    Dateinamen
Def GetFileExt$(1)      gExtFromPath$($(1))                                     Dateierweiterung
Def GetFileNameOE$(1)   gFileOEFromPath$($(1))                                  Dateinamen ohne Erweiterung
**  Demo- Programm  *****************************************************************
Cls
Declare Test$
Test$ = f:\eigen dateien/test\nochn test\test.exe
Print Neu
Print
Print (gPathFromPath$   =  + gPathFromPath$(Test$))
Print (gFileFromPath$   =  + gFileFromPath$(Test$))
Print (gExtFromPath$    =  + gExtFromPath$(Test$))
Print (gFileOEFromPath$ =  + gFileOEFromPath$(Test$))
Print
Print
Print Alt
Print
Print (GetFPath$        =  + GetFPath$(Test$))
Print (GetPath$         =  + GetPath$(Test$))
Print (GetFileName$     =  + GetFileName$(Test$))
Print (GetFileExt$      =  + GetFileExt$(Test$))
Print (GetFileNameOE$   =  + GetFileNameOE$(Test$))
WaitInput
End

proc _filename export egal was übergeben wird (lw+pfad+fnam), es wird immer der Dateiname zurückgeliefert

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

    while 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$)

    while p&

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

    wend

    return s$

endproc