XProfan

CutPath - Trennt Pfad de 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 con  al ende
Def gExtFromPath$(1)    (. + Substr$(gFileFromPath$($(1)),-1,.))            Dateierweiterung
Def gFileOEFromPath$(1) Substr$(gFileFromPath$($(1)),1,gExtFromPath$($(1)))     Dateinamen sin Erweiterung
Für Kompatibillität a alten CutPath.pinc Versión
Def GetFPath$(1)        gPathFromPath$($(1))                                    Pfad con  al ende
Def GetPath$(1)         Del$(gPathFromPath$($(1)),Len(gPathFromPath$($(1))),1)  Pfad sin  al ende
Def GetFileName$(1)     gFileFromPath$($(1))                                    Dateinamen
Def GetFileExt$(1)      gExtFromPath$($(1))                                     Dateierweiterung
Def GetFileNameOE$(1)   gFileOEFromPath$($(1))                                  Dateinamen sin Erweiterung
**  Demo- Programa  *****************************************************************
Cls
Declarar Test$
Test$ = f:\eigen dateien/test\nochn test\test.exe
Imprimir Neu
Imprimir
Imprimir (gPathFromPath$   =  + gPathFromPath$(Test$))
Imprimir (gFileFromPath$   =  + gFileFromPath$(Test$))
Imprimir (gExtFromPath$    =  + gExtFromPath$(Test$))
Imprimir (gFileOEFromPath$ =  + gFileOEFromPath$(Test$))
Imprimir
Imprimir
Imprimir Alt
Imprimir
Imprimir (GetFPath$        =  + GetFPath$(Test$))
Imprimir (GetPath$         =  + GetPath$(Test$))
Imprimir (GetFileName$     =  + GetFileName$(Test$))
Imprimir (GetFileExt$      =  + GetFileExt$(Test$))
Imprimir (GetFileNameOE$   =  + GetFileNameOE$(Test$))
WaitInput
End

proc _filename export egal qué übergeben se (lw+pfad+fnam), lo se siempre el Dateiname zurückgeliefert

    parámetros s$
    declarar p&
    s$:=translate$(\,/,s$)
    p&:=instr(/,s$)

    mientras que p&

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

    wend

    volver s$

ENDPROC

proc _filename

    parámetros s$
    declarar p&
    s$:=translate$(s$,,/)
    p&:=instr(/,s$)

    mientras que p&

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

    wend

    volver s$

ENDPROC