Français
Comprend

CutPath.inc - Trennt Pfad de Dateiname & renversé

 

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()
 
16.02.2006  
 




 
18.02.2006  
 



Huch habe chez Translate falsche Parameterreihenfolge.

So muss es heissen:
proc _filename

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

    tandis que p&

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

    Wend

    return s$

endproc

 
19.02.2006  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

6.480 Views

Untitledvor 0 min.
Wilfried Friebe25.11.2016
boh128.05.2016
rafl23.03.2016
Jochen Roxlau27.12.2014
plus...

Themeninformationen

cet Thema hat 3 participant:

iF (2x)
Frank Abbing (1x)
Michael Dell (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie