XProfan

 {$IQ}

Proc XPath

    Parameters x_PfadInput$
    Declare x_PfadOutput$
    Clear x_PfadOutput$

    While @Len(x_PfadInput$)

        x_PfadOutput$ = x_PfadOutput$ + @Left$(x_PfadInput$,1)
        Case @Left$(x_PfadInput$,1) =  : x_PfadOutput$ = x_PfadOutput$ +
        x_PfadInput$ = @Del$(x_PfadInput$,1,1)

    EndWhile

    Return x_PfadOutput$

EndProc

Declare Text$
cls
Text$ = C:ProgrammeProgrammXYZUVZ1Programm.exe
print 1. Versuch
print String 1 : ,Text$
print =============================================================
print String 1 zurück : , XPath (Text$)
print =============================================================
Print
print 2. Versuch
Clear Text$
Text$ = IchineinePfad-Angabe
print String 2 : ,Text$
print =============================================================
print String 2 zurück : , XPath (Text$)
print =============================================================
Print
print 3. Versuch
Clear Text$
Text$ = IchwillaucheinePfad-Angabesein!!
print String 3 : ,Text$
print =============================================================
print String 3 zurück : , XPath (Text$)
print =============================================================
Print
print 4. Versuch
Clear Text$
Text$ = >>>Ich bin ein ganz normaler String<<<
print String 4 : ,Text$
print =============================================================
print String 4 zurück : , XPath (Text$)
print =============================================================
Print
Print WAS PASSIERT IM 2. UND 3. VERSUCH MIT DEM STRING ???
waitinput
./../../references-fonction/XProfan/end/'>end

Declare Verz$
Verz$ = C:
iealleszeigen
Print Upper$(Verz$)
Print Upper$(C:
iealleszeigen)
Print Translate$(C:
iealleszeigen,,\)
Print Translate$(Verz$,,\)
Verz$ = C:NieAlleseigen
Print C:NieAlleseigen
Print Verz$
Verz$ = C:\nie\alles\zeigen
Print C:\nie\alles\zeigen
Print Verz$
MkDir C:\nie\alles\zeigen
ChDir C:\
Print ChooseDir$(und der letzte Test...)

(\n) ist gleich (+n) ist ungleich (
)e>