meta data for this page
  •  

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu der Vergleichsansicht

Nächste Überarbeitung
Vorherige Überarbeitung
pfad-zerlegen [2011/02/15 15:33]
127.0.0.1 Externe Bearbeitung
pfad-zerlegen [2020/01/03 10:46] (aktuell)
michael
Zeile 1: Zeile 1:
 ====== Pfad zerlegen ====== ====== Pfad zerlegen ======
 \\ __JScript__:​\\ ​ Diese Version benutzt ein fso-Object. ([[/​FileSystemObject|File-System-Object]]). Dies muss vorher schon im Script erzeugt worden sein.\\ ​ \\ __JScript__:​\\ ​ Diese Version benutzt ein fso-Object. ([[/​FileSystemObject|File-System-Object]]). Dies muss vorher schon im Script erzeugt worden sein.\\ ​
 +
 +<code JavaScript [enable_line_numbers="​true"​]>​
   //  teilt übergebenen Pfad auf (entnommen aus mfdl.js)   //  teilt übergebenen Pfad auf (entnommen aus mfdl.js)
   function SplitPath(path)   function SplitPath(path)
Zeile 17: Zeile 19:
   Dateiname ​                     = sp.file + sp.ext;   Dateiname ​                     = sp.file + sp.ext;
   Nur_Dateiendung ​               = sp.ext;   Nur_Dateiendung ​               = sp.ext;
 +</​code>​
        
 \\ __VBScript:​__\\ ​ Diese Version nutzt allein String-Operationen:​\\ ​ \\ __VBScript:​__\\ ​ Diese Version nutzt allein String-Operationen:​\\ ​
 +
 +<code VBScript [enable_line_numbers="​true"​]>​
   Pfad_ohne_Dateiname = Left(Pfad, InStrRev(Pfad,​ "​\",​-1,​ 1))   Pfad_ohne_Dateiname = Left(Pfad, InStrRev(Pfad,​ "​\",​-1,​ 1))
- 
   Pfad_mit_Dateiname_ohne_Endung = Left(Pfad,​InStrRev(Pfad,"​.",​-1,​1)-1)   Pfad_mit_Dateiname_ohne_Endung = Left(Pfad,​InStrRev(Pfad,"​.",​-1,​1)-1)
- 
   Dateiname_ohne_Endung = Mid(pfad,​InStrRev(Pfad,"​\",​-1,​ 1)+1,​InStrRev(Pfad,"​.",​-1,​1)-InStrRev(Pfad,"​\",​-1,​1)-1)   Dateiname_ohne_Endung = Mid(pfad,​InStrRev(Pfad,"​\",​-1,​ 1)+1,​InStrRev(Pfad,"​.",​-1,​1)-InStrRev(Pfad,"​\",​-1,​1)-1)
- 
   Dateiname = Right(Pfad, Len (Pfad) - InStrRev(Pfad,​ "​\",​-1,​ 1))   Dateiname = Right(Pfad, Len (Pfad) - InStrRev(Pfad,​ "​\",​-1,​ 1))
- 
   Nur_Dateiendung = Right(Pfad, Len (Pfad) - InStrRev(Pfad,​ "​.",​-1,​ 1))   Nur_Dateiendung = Right(Pfad, Len (Pfad) - InStrRev(Pfad,​ "​.",​-1,​ 1))
 +</​code>  ​
 \\  Aber natürlich kann auch unter VBS das [[/​FileSystemObject|File-System-Object]] genutzt werden:\\ \\  \\  Aber natürlich kann auch unter VBS das [[/​FileSystemObject|File-System-Object]] genutzt werden:\\ \\ 
 +<code VBScript [enable_line_numbers="​true"​]>​
   Pfad_ohne_Dateiname = fso.GetParentFolderName(Pfad) & "​\"​   Pfad_ohne_Dateiname = fso.GetParentFolderName(Pfad) & "​\"​
- 
   Pfad_mit_Dateiname_ohne_Endung = fso.GetParentFolderName(Pfad) & "​\"​ & fso.GetBaseName(Pfad)   Pfad_mit_Dateiname_ohne_Endung = fso.GetParentFolderName(Pfad) & "​\"​ & fso.GetBaseName(Pfad)
- 
   Dateiname_ohne_Endung = fso.GetBaseName(Pfad)   Dateiname_ohne_Endung = fso.GetBaseName(Pfad)
- 
   Dateiname = fso.GetFileName(Pfad)   Dateiname = fso.GetFileName(Pfad)
- 
   Nur_Dateiendung = fso.GetExtensionName(Pfad)   Nur_Dateiendung = fso.GetExtensionName(Pfad)
-   +</​code> ​