XProfan

Def CharCount(2) Int(Sub(Len(@$(1)),Len(translate$(@$(1),@$(2),""))))
Def VerzeichnisTiefe(1) Int(Sub(Len(@$(1)),Len(Translate$(@$(1),"\",""))))
Def PfadTeil(2) SubStr$(@$(1),@%(2),"\")Vorher sollte man die Verzeichnistiefe ermitteln
Def DateiName(1) SubStr$(@$(1),Add(VerzeichnisTiefe(@$(1)),1),"\")
Def DateiPfad(1) Translate$(@$(1),Add$("\",DateiName(@$(1))),"")
Def Home(0) Translate$(Upper$(Par$(0)),Upper$(FindFirst$(Par$(0))),"")

Proc void_CreatePath

    Paramètres s$
    declare lw$

    tandis que len (S$)

        Laisser lw$=add$(lw$,Mid $(s$,1,add(1,len(substr$(S$,1,»)))) )
        let s$=del$(s$,1,add(1,len(substr$(S$,1,»))))

        si (lw$<>»)

            MKDIR lw$

        endif

    Wend

ENDPROC

proc Get_Drive_Path

    parameters s$

    tandis que not(equ$(»,Mid $(S$,len(S$),1))

        Laisser s$=Del$( S$,len(S$),1 )

    Wend

    return s$

ENDPROC

proc CutFileName

    parameters s$

    tandis que not(equ$(»,Mid $(S$,len(S$),1))

        Laisser s$=Del$( S$,len(S$),1 )

    Wend

    return s$

ENDPROC

proc CutExtension

    parameters s$

    tandis que not(equ$(".",Mid $(S$,len(S$),1))

        Laisser s$=Del$( S$,len(S$),1 )

    Wend

    return s$

ENDPROC

proc Get_Drive

    parameters s$
    return mid$(s$,1,3)

ENDPROC

proc Get_Path_File

    parameters s$
    return del$(s$,1,2)

ENDPROC

Proc Get_Path

    parameters s$
    Get_Path_File S$
    Get_Drive_Path @$(0)
    Retour @$(0)

ENDPROC

Proc Get_File

    parameters s$

    tandis que instr(»,s$)

        Laisser s$=Del$( S$,1,1 )

    Wend

    return s$

ENDPROC

 {$i}//file-extension-renamer by iF :-D
print changefileext("somefile.gif","ps")
waitinput
end

proc changefileext

    parameters f$,e$
    declare tmp$,i&,ii&

    if len(f$)

        ifnot instr(".",f$)

            f$:=f$+"."+e$

        else

            repeat

                i&+
                tmp$:=substr$(f$,i&,".")

            until not(len(tmp$))

            sub i&,2
            for ii&:=1 to i& do tmp$:=tmp$+substr$(f$,ii&,".")+"."
            f$:=tmp$+e$

        endif

    endif

    return f$

endproc

proc void_makesuperpath

    parameters s$
    declare i%
    i%=0

    while lt(i%,len(s$))

        add i%,1

        if equ$(mid$(s$,i%,1),"")

            s$=ins$("",s$,i%)
            add i%,1

        endif

    wend

    return s$

endproc

cls
print void_makesuperpath("c:	est	esthallo")
waitkey

//xpse-source
s$="c:	est
oraanchor":filepre>

 {$iq}//simply demo to demonstrate xpses "Filestring"-directive
case "	est
oe":file<>"	est
oe":print "it works :)"
case "	est
oe":file=="	est
oe":file:print "it works again:)"
print "filename: C:
q	":file
print "escaped : C:
q	"