Deutsch
Quelltexte/ Codesnippets

Assembler Reverse Spiegeln String

 

KompilierenMarkierenSeparieren
 {$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

Oder nichtasm:
KompilierenMarkierenSeparieren
PRFellow-Vorlage
Autor: Thomas Hölzer
Einen String von hinten nach vorne kehren
Declare strbuf#

Proc ReverseString

    Parameters s$
    Declare l%,result$
    Let l%=Len(s$)
    Dim strbuf#,Add(l%,1)
    String strbuf#,0=s$
    Dec l%

    While Gt(l%,-1)

        Let result$=result$;Char$(strbuf#,l%,1)
        Dec l%

    Wend

    Dispose strbuf#
    Return result$

EndProc

Beispiel
Cls
Declare n&
n&=&gettickcount
ReverseString MkStr$($Syspath + $Winpath,100)
print (&gettickcount - n&) / 1000,Len(MkStr$($Syspath + $Winpath,100))
WaitInput
oder von M.Dell
KompilierenMarkierenSeparieren
Proc ReverseStr

    Parameters RS_ES$
    Declare RS_AS$

    WhileLoop Len(RS_ES$),1,-1

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

    EndWhile

    Return RS_AS$

EndProc

**** Beispiel ****
Cls
Print "Orginaltext: Beispielstring"
Print
Print "Reverstext:  " + ReverseStr("Beispielstring")
WaitInput
End
Salve, iF.
 
24.09.2005  
 




Michael
Wodrich
oder deine ASM-Version ohne Hilfsstring und Datenbereich
KompilierenMarkierenSeparieren
 {$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

 
Programmieren, das spannendste Detektivspiel der Welt.
24.09.2005  
 




Frank
Abbing
Oder die minimale Asm-Version:
KompilierenMarkierenSeparieren
 {$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$
WaitInput
 
24.09.2005  
 




H.Brill
Oder mit Move + Substr$()
CLS
var test$ = "Hallo Roland,wie geht es dir ?"
Print test$
Print ReverseString(test$)
WaitInput

Proc ReverseString

    Parameters s$
    ClearList

    WhileLoop 1, Len(s$)

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

    EndWhile

    Return Move("ListToStr", "")

EndProc

End

oder noch einfacher mit Mid$()
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
vor 17 Tagen  
 



Zum Quelltext


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

4.509 Betrachtungen

Unbenanntvor 0 min.
Georg TelesVorgestern (21:44)
Walter vor 4 Tagen
Uwe Lang vor 4 Tagen
E.T. vor 4 Tagen
Mehr...

Themeninformationen



Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie