PureBasic Forums - English

Code: Select all

"word1                   word2"

Code: Select all

Procedure.l CountStrings(a.s,s.s) 
  !cld          ;clear DF (Direction Flag) 
  !mov edi,dword[esp]   ;load edi register with pointer to first string 
  !mov esi,dword[esp+4] ;load esi register with pointer to second string (the string to search) 
  !xor eax,eax    ;set eax register to NULL 
  !mov bl,al      ;set bl register to NULL 
  !mov edx,esi  ;save this value in edx to avoid, as much as possible, to have to read data from memory in the main loop. 
  !;If any of two strings is empty then end program and matches found is 0; 
  !cmp byte[edi],bl  ;test if first string is empty 
  !jz fin           ;if so, then end 
  !cmp byte[esi],bl  ;test if second string is empty 
  !jz fin           ;if so, then end 
  !;Mainloop: 
  !mainloop: 
  !cmpsb  ;what this instruction do is just compare byte[edi] with byte[esi] and increment edi and esi values by 1 
  !jz match ;if byte[edi]=byte[esi] then goto match label, because a match byte was found... 
  !mov esi,edx  ;restore this 
  !cmp byte[edi],bl  ;check if end of first string is reached 
  !jnz mainloop   ;if not reached then compare next bytes 
  !fin: 
  ProcedureReturn 
  !match: ;here we have got inside a second treatment: We are in a possible total match, lets see if it is a complete match or it is a fake: 
  !cmp byte[esi],bl  ;check if end of second string is reached 
  !jz @f   ;if so, here was a complete match 
  !cmpsb   ;compare one more byte 
  !jz match   ;if equal, lets see if the deceit continues, or rather it could be a real complete match. 
  !dec edi  ;ohhh! it was a deceit! It wasn't a complete match. So return back the first string counter by 1. 
  !mov esi,edx  ;and restore this 
  !jmp mainloop ;What a patient! lets continue searching for another possible match and why not, a possible complete match... 
  !;complete match was found: 
  !@@:inc eax    ;increment complete matches counter 
  !mov esi,edx  ;restore this 
  !jmp mainloop   ;lets search for another possible complete match! 
EndProcedure 

;Grrr!: Z-80 had conditional CALL, Ix86 doesn't !? 
a$="ureruPururePe ruPurePurPuPure uresdfhg ureeurPeruPuruee sPuuredil hPur eurePuree upurerePuret" 

MessageRequester("",Str(CountStrings(a$,"Pure")),0) 

;Can use function input parameters as normal pointers: 
;Procedure.l CountStrings(*a,*s) 
;but then you have to call function using pointers too: 
;CountStrings(@a$,@"Pure")

Code: Select all

Procedure CountWords(String.s)
	Repeat
		CurrentByte = @String + i
		If PeekB(CurrentByte) = 32
			Count + 1
			i + 1
			Continue
		EndIf
		i + 1
	Until PeekB(CurrentByte) = 0
	ProcedureReturn Count + 1
EndProcedure

Code: Select all

Procedure.s RemoveExtraSpaces(Text$)
  While FindString(Text$,"  ",1) : Text$ = ReplaceString(Text$,"  "," ", 1) : Wend
ProcedureReturn Text$
EndProcedure

Procedure.l WordCount(Text$)
count.l = 1 : Text$ = RemoveExtraSpaces(Text$)
 While StringField(Text$, count, " ") : count + 1 : Wend
ProcedureReturn count - 1
EndProcedure