XProfan

CutPath - part way of Dateiname or inverse
Author: Michael Dell -> http://www.cplace.de
support@cplace.de
Def TP(1)               Translate$($(1),/,\)
Def gFileFromPath$(1)   SubStr$(TP($(1)),-1,Chr$(92))                           Filenames
Def gPathFromPath$(1)   SubStr$(TP($(1)),1,gFileFromPath$($(1)))                way with  on the end
Def gExtFromPath$(1)    (. + SubStr$(gFileFromPath$($(1)),-1,.))            Dateierweiterung
Def gFileOEFromPath$(1) SubStr$(gFileFromPath$($(1)),1,gExtFromPath$($(1)))     Filenames without expansion
for Kompatibillität to middle-aged CutPath.pinc Version
Def GetFPath$(1)        gPathFromPath$($(1))                                    way with  on the end
Def GetPath$(1)         Del$(gPathFromPath$($(1)),Len(gPathFromPath$($(1))),1)  way without  on the end
Def GetFileName$(1)     gFileFromPath$($(1))                                    Filenames
Def GetFileExt$(1)      gExtFromPath$($(1))                                     Dateierweiterung
Def GetFileNameOE$(1)   gFileOEFromPath$($(1))                                  Filenames without expansion
**  demonstration- Program  *****************************************************************
Cls
Declare Test$
Test$ = f:\own Files/Test\nochn Test\Test.exe
Print New
Print
Print (gPathFromPath$   =  + gPathFromPath$(Test$))
Print (gFileFromPath$   =  + gFileFromPath$(Test$))
Print (gExtFromPath$    =  + gExtFromPath$(Test$))
Print (gFileOEFromPath$ =  + gFileOEFromPath$(Test$))
Print
Print
Print old
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 alike what übergeben becomes (lw+way+fnam), it becomes always the 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