| |
|
|
Michael Dell | part way of Dateiname & inverse.
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
|
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 02/16/06 ▲ |
|
|
|
|
Frank Abbing | Hi.
not only the must as Separator using go. the / is likewise permitted... and there's another nice API: GetFileTitle() |
|
|
| |
|
|
|
| |
|
| |
|
|
|
| Huch have with Translate incorrect Parameterreihenfolge.
Must it heissen:
|
|
|
| |
|
|