XProfan

###################################################################
FOLDER FUNCTIONS
Eine Funktionssammlung, die den Umgang mit Pfadangaben und URLs
vereinfacht.
Folder und WebFolder entfernt die Datei aus einer Pfadangabe
SubFolder und WebSubFolder löscht beliebig viele Verzeichnisse
aus einer
Die Funktionen können nützlich sein, um aus einer relativen
Pfadangabe im Web und der Ausgangs-URL die korrekte URL zu bilden.
Copyright Sven Bader 2000
Dieser Quelltext ist Freeware. Bei Verwendung bitte Quelle angeben.
Kritik und Anregungen an: http://svenbader.de
Für eventuell auftretende Schäden wird keine Haftung übernommen.
###################################################################

Proc Folder

    Parameters string$

    While Right$(string$,1) <>

        string$ = Del$(string$,Len(string$),1)

    EndWhile

    Return string$

EndProc

Proc WebFolder

    Parameters string$

    While Right$(string$,1) <> /

        string$ = Del$(string$,Len(string$),1)

    EndWhile

    Return string$

EndProc

Proc SubFolder

    Parameters string$,n%

    WhileLoop n%

        If Len(trim$(string$)) > 1

            Case Right$(string$,1) =  : string$ = Del$(string$,len(string$),1)

            If Len(Trim$(string$)) > 1

                While Right$(string$,1) <>

                    string$ = Del$(string$,Len(string$),1)
                    CaseNot Len(string$) : Break

                EndWhile

            EndIf

        EndIf

    EndWhile

    Return string$

EndProc

Proc WebSubFolder

    Parameters string$,n%

    WhileLoop n%

        If Len(trim$(string$)) > 1

            Case Right$(string$,1) = / : string$ = Del$(string$,len(string$),1)

            If Len(Trim$(string$)) > 1

                While Right$(string$,1) <> /

                    string$ = Del$(string$,Len(string$),1)
                    CaseNot Len(string$) : Break

                EndWhile

            EndIf

        EndIf

    EndWhile

    Return string$

EndProc

- - - - - - - - - - - - - - - - - - - -
Declare Datei$, URL$
Datei$ = C:WindowsSystem32Freecell.exe
URL$ = http://www.svenbader.de/download/downloadbot.exe
Print Datei$        Original-Pfad mit Datei
Folder Datei$       Ohne Datei
Print $(0)
SubFolder Datei$,2  Zwei Ordner bzw. einen Order + Datei wegnehmen
Print $(0)
Print URL$          Original-URL mit Datei
Webfolder URL$      Ohne Datei
Print $(0)
WebSubFolder URL$,2 Zwei Ordner bzw. einen Order + Datei wegnehmen
Print $(0)
WaitInput