PureBoard

Code: Alles auswählen

Procedure FindChar(*string.BYTE, asc.l) 
  ;start = *string 
  
  MOV eax, *string   ;Pointer auf String in eax 
  MOV ebx, asc       ;Ascii-code von Zeichen in ebx, genauer bl 
  startpunkt: 
  CMP byte[eax], 0   ;überprüfen, ob Stringende 
  JZ  l_notfound     ;wenn ja, return 0! 
  
  CMP byte[eax], bl  ;überprüfen, ob gefunden 
  JE l_jump          ;wenn ja, dann aus schleife raus 

  INC eax            ;Stringpointer erhöhen 
  JMP l_startpunkt   ;zum Schleifenstart springen 
  jump:              ;Ende der Schleife 
  
  
  SUB eax, *string   ;Pointer subtrahieren, um Pos. zu bekommen 
  INC eax            ;Position von _1_ bis x 
  ProcedureReturn 
  
  notfound:          ;wenn nicht gefunden 
  ProcedureReturn 0 
  
  ; While *string\b 
  ; If *string\b = asc 
  ; ProcedureReturn *string - start + 1 
  ; EndIf 
  ; *string + 1 
  ; Wend 
EndProcedure 


Procedure FindChar1(*string.l, asc.l, laenge.l) 
 
  CLD  
  MOV edi,*string
  MOV eax,asc
  MOV ecx,laenge
  REPNZ scasb
  JNZ l_notfound1
  SUB edi,*string 
  MOV eax,edi         ;Rückgabewert
  
  ProcedureReturn 
  
  notfound1:          ;wenn nicht gefunden 
 
  ProcedureReturn 0 
  
EndProcedure 

 
#N = 900000 
String.s = "searchinmeeeeeeee3123456123cb1g2348cbnq0webftrqc0n9qwbet691bt4  qböoäöa-asbe0rß1bv634r660qlbdf-asubdpfz10735646vrzpawbwöehbf76v6r9b3807b1p9sbaösejhbfquiowebz7r81bvg5340brqpweöfjkqböwev qöwjerh 1092346r18 4rpuqwzefqhw7e1 34nr7q0 w8 eh7r0q whe7qf0 wnejöasdjfh0q93478zbr1093br4höaowuez f0q7wez0fr13j4u rhqw7e rfqwe7rq0w9e rqh3 er13 4rqpweör v#" 
tofind.s = "#" 
asctofind.l = Asc(tofind) 
ptr.l = @String 
laenge.l=Len(String)

Delay(1000) 

Time1 = GetTickCount_() 
For I = 0 To #N 
  FindChar(ptr, asctofind)
Next 
Time1 = GetTickCount_() - Time1 

Time2 = GetTickCount_() 
For I = 0 To #N 
  FindString(String, tofind, 0) 
Next 
Time2 = GetTickCount_() - Time2 

Time3 = GetTickCount_() 
For I = 0 To #N 
Stelle.l = FindChar1(ptr, asctofind, laenge)
Next 
Time3 = GetTickCount_() - Time3 

strOut.s = "FindChar: " + Str(Time1) + #CRLF$ 
strOut.s = strOut.s + "FindString: " + Str(Time2) + #CRLF$
strOut.s = strOut.s + "FindChar1: " + Str(Time3) + "    " + Str(Stelle)
MessageRequester("Ergebnis", strOut)

Code: Alles auswählen

#N = 900000 
String.s = "searchinmeeeeeeee3123456123cb1g2348cbnq0webftrqc0n9qwbet691bt4  qböoäöa-asbe0rß1bv634r660qlbdf-asubdpfz10735646vrzpawbwöehbf76v6r9b3807b1p9sbaösejhbfquiowebz7r81bvg5340brqpweöfjkqböwev qöwjerh 1092346r18 4rpuqwzefqhw7e1 34nr7q0 w8 eh7r0q whe7qf0 wnejöasdjfh0q93478zbr1093br4höaowuez f0q7wez0fr13j4u rhqw7e rfqwe7rq0w9e rqh3 er13 4rqpweör v#" 
tofind.s = "#" 
asctofind.l = Asc(tofind) 
ptr.l = @String 
laenge.l=Len(String)

Delay(1000) 

Time = GetTickCount_() 
For I = 0 To #N 
  !CLD  
  !MOV ecx,[v_laenge] 
  !MOV edi,[v_ptr]
  !MOV eax,[v_asctofind]
  !REPNZ scasb
  !JNZ l_notfound
  !SUB edi,[v_ptr] 
  !JMP l_found 
notfound:          ;wenn nicht gefunden 
  !XOR edi,edi 
found:
  !MOV [v_Stelle],edi
Next 
Time = GetTickCount_() - Time 

strOut.s = "FindChar: " + Str(Time) + "    " + Str(Stelle)
MessageRequester("Ergebnis", strOut)

Code: Alles auswählen

!ALIGN 4
#N = 9999999999

Delay(1000)

time1 = ElapsedMilliseconds()
For z = 0 To #N
Next
time1 = ElapsedMilliseconds() - time1

time2 = ElapsedMilliseconds()
For z = 0 To #N
Next
time2 = ElapsedMilliseconds() - time2

MessageRequester("",Str(time1)+" "+Str(time2))