XProfan

 {$cleq}
Declare s$
Cls
s$="TEST THE FASTEST XPROFAN"
print s$+"."
print rstr$(s$)+"."
Waitkey
End

proc rstr$

    parameters s$
    declare ss$
    ss$:=s$+" "

    AsmStart _rstr

        Parameters addr(s$),len(s$),addr(ss$)
        .data
        cw dd 0
        .code
        mov eax,para1
        mov ebx,para2
        mov ecx,para3
        mov cw,ebx
        mov edx,0

        .while edx<ebx

            dec cw
            push ebx
            push edx
            mov edx,cw
            mov bl,[ecx+edx]
            pop edx
            mov [eax+edx],bl
            pop ebx
            inc edx

        .endw

    AsmEnd

    return s$

endproc

PRFellow-Présentation
Autor: Thomas Bois
Einen String de hinten pour vorne balayer
Déclarer strbuf#

Proc ReverseString

    Paramètres s$
    Déclarer l%,result$
    Laisser l%=Len($ S)
    Faible strbuf#,Ajouter(l%,1)
    String strbuf#,0=s$
    Décembre l%

    Tandis que Gt(l%,-1)

        Laisser result$=result$;Char$(strbuf#,l%,1)
        Décembre l%

    Wend

    Dispose strbuf#
    Retour result$

ENDPROC

Beispiel
Cls
Déclarer n&
n&=&gettickcount
ReverseString $ MkStr($Syspath + $WinPath,100)
imprimer (&gettickcount - n&) / 1000,Len($ MkStr($Syspath + $WinPath,100))
WaitInput

Proc ReverseStr

    Paramètres RS_ES$
    Déclarer RS_AS$

    WhileLoop Len(RS_ES$),1,-1

        RS_AS$ = (RS_AS$ + Mid $(RS_ES$,&Boucle,1))

    Endwhile

    Retour RS_AS$

ENDPROC

**** Beispiel ****
Cls
Imprimer "Orginaltext: Beispielstring"
Imprimer
Imprimer "Reverstext:  " + ReverseStr("Beispielstring")
WaitInput
Fin

 {$Cleq}
Declare S$
Cls
S$="TEST THE FASTEST XPROFAN"
Print S$+"."
Print ReverseString$(S$)+"."
Waitkey
End

Proc ReverseString$

    Parameters s$

    AsmStart _rstr

        Parameters Addr(s$), Len(s$)
        mov ebx,para1
        mov ecx,para2
        mov edx,para1
        add edx,ecx
        dec edx

        .while edx > ebx

            mov al,[ebx]
            xchg al,[edx]
            mov [ebx],al
            inc ebx
            dec edx

        .endw

    AsmEnd

    Return s$

ENDPROC

 {$iq}
Declare text$
Declare dummy$
text$="Hier steht nur ein Probetext."
dummy$=Space$(Len(text$))

AsmStart Reverse

    Parameters addr(text$),addr(dummy$)
    invoke revstr,para1,para2

AsmEnd

text$=dummy$
Print text$

CLS
var test$ = "Hallo Roland,ca va dir ?"
Imprimer test$
Imprimer ReverseString(test$)
WaitInput

Proc ReverseString

    Paramètres s$
    ClearList

    WhileLoop 1, Len($ S)

        Move("StrToList",  substr$(s$, -&LOOP), »):

    Endwhile

    Retour Move("ListToStr", »)

ENDPROC

Fin

Proc ReverseString2

    Paramètres String s
    Déclarer String st

    WhileLoop 1, Len(s)

        st = st + Mid $(s, -&LOOP, 1)

    Endwhile

    Retour st

ENDPROC