meta data for this page
  •  

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.

Link zu der Vergleichsansicht

Nächste Überarbeitung		Vorherige Überarbeitung
pfad-zerlegen [2011/02/15 15:33] – Externe Bearbeitung 127.0.0.1pfad-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>