| |
|
|
| 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: KompilierenMarkierenSeparierenPRFellow-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 KompilierenMarkierenSeparierenSalve, iF. |
|
|
| |
|
|
|
Michael Wodrich | |
|
| Programmieren, das spannendste Detektivspiel der Welt. | 24.09.2005 ▲ |
|
|
|
|
Frank Abbing | |
|
| |
|
|
|
H.Brill | Oder mit Move + Substr$()
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 ▲ |
|
|
|