| |
|
|
Michael Dell | Trennt Pfad de Dateiname & renversé.
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
|
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 16.02.2006 ▲ |
|
|
|
|
Frank Abbing | Hi.
pas seulement cela darf comme Trennzeichen benutzt volonté. cela / ist ebenso zulässig... et il y a encore une belle API: GetFileTitle() |
|
|
| |
|
|
|
| |
|
| |
|
|
|
| Huch habe chez Translate falsche Parameterreihenfolge.
So muss es heissen:
|
|
|
| |
|
|