' Nützliche Stringfunktionen
' (C) 2003 Dennis Schulmeister
' Alle Rechte vorbehalten
' Dennis.Schulmeister@web.de

Proc CleanString
        Parameters String$

        String$ = @Translate$(String$,"\n","\\n")
        String$ = @Translate$(String$,"\a","\\a")
        String$ = @Translate$(String$,"\t","\\t")
        Return String$
EndProc

Proc CountChar
        Parameters String$, Zeichen$
        Declare i%, Temp$, l%, n%

        i% = @Len(String$)
        l% = @Len(Zeichen$)

        WhileNot (i% < l%)
                Temp$ = @Mid$(String$, i%, l%)
                Case (Temp$ = Zeichen$):inc n%
                sub i%, l%
        Wend

        Return n%
EndProc

Proc ExtractDir
        Parameters String$
        Declare Dir$, n%

        CountChar String$, "\"
        n% = (@%(0) + 1)
        Dir$ = @SubStr$(String$,n%,"\")
        Dir$ = @SubStr$(String$,1,Dir$)
        Dir$ = (Dir$ + "\")
        Return Dir$
EndProc

Proc ExtractFile
        Parameters String$
        Declare File$, n%

        CountChar String$,"\"
        n% = (@%(0) + 1)
        File$ = @SubStr$(String$,n%,"\")
        Return File$
EndProc

Proc ExtractExtension
        Parameters String$
        Declare Ext$, n%

        CountChar String$,"."
        n% = (@%(0) + 1)
        Ext$ = @SubStr$(String$,n%,".")
        Return Ext$
EndProc