PureBasic Forums - English

Code: Select all

Procedure.s MD5(r$)  : 
  r$ = MD5Fingerprint(@r$, StringByteLength(r$)) 
  ProcedureReturn r$  
EndProcedure   


g$ = "abcd"

For t = 1 To 3000
  fulltext$ + Left(md5(g$) , Random(21)+3 ) + #CRLF$
  g$ = md5(g$)
Next
For u = 1 To 8
  
  fulltext$ + fulltext$
Next

; fulltext$ = getgadgettext(5)

Debug "t0 --> " + ElapsedMilliseconds()

Repeat 
  lineindex + 1
  line$ =  StringField(fulltext$,lineindex,#CRLF$)  ;;;;   <- too slow - how to speed up?
  ;  i then need to do some processing for each line$
 Until lineindex = 24000

Debug "t1 --> " + ElapsedMilliseconds()

Code: Select all

Procedure.s GetNextStringField(*String, Separator$="", Init.i=#False)
  
  Static *LastPosition, *EndPosition, Dim Separator.c(255), SeparatorLength.i
  Protected *CurrentPosition, State.i, i.i, Result$
  
  If Init
    SeparatorLength = Len(Separator$)
    *LastPosition = *String
    For i = 0 To SeparatorLength - 1
      Separator(i) = PeekC(@Separator$ + i * SizeOf(Character))
    Next i
  EndIf
  
  Dim Char.c(255)
  
  *CurrentPosition = *LastPosition
  Repeat
    For i = 0 To SeparatorLength - 1
      Char(i) = PeekC(*CurrentPosition + i * SizeOf(Character))
      If Char(i) <> Separator(i)
        i = 0
        Break
      EndIf
    Next i
    *CurrentPosition + (i + 1) * SizeOf(Character)
  Until i = SeparatorLength Or PeekC(*CurrentPosition) = 0
  
  If i = SeparatorLength
    Result$ = PeekS(*LastPosition, (*CurrentPosition - *LastPosition - (SeparatorLength * SizeOf(Character))) / SizeOf(Character))
  Else
    Result$ = #EOT$
  EndIf
  
  *LastPosition = *CurrentPosition
  
  ProcedureReturn Result$
  
EndProcedure


CompilerIf #PB_Compiler_IsMainFile
  For u = 1 To 8
    fulltext$ + "abcdefghijklm" + Chr(Random(70, 65)) + #CRLF$
  Next
  
  
  Debug fulltext$
  Debug "-------"
  
  Debug "First: " + GetNextStringField(@fulltext$, #CRLF$, #True)
  Repeat
    Result$ = GetNextStringField(@fulltext$)
    If Result$ <> #EOT$
      Debug "Next: " + Result$
    EndIf
  Until Result$ = #EOT$
CompilerEndIf

Code: Select all

DisableDebugger

Global i,n,z
Global s.s,t.s

For n=0 To 999
	s+"This is the string at position "+Str(n)+"."
Next n

Procedure StringFieldInitialize(*string.string,char)

	Global *StringFieldMem.Character
	Global StringFieldChar

	*StringFieldMem=*string
	StringFieldChar=char

EndProcedure
Procedure.s StringFieldNext()

	Protected *StringFieldStart

	*StringFieldStart=*StringFieldMem
	While *StringFieldMem\c<>StringFieldChar And *StringFieldMem\c
		*StringFieldMem+SizeOf(Character)
	Wend

	If *StringFieldMem\c
		*StringFieldMem+SizeOf(Character)
	EndIf

	ProcedureReturn PeekS(*StringFieldStart,(*StringFieldMem-*StringFieldStart)/SizeOf(Character)-1)

EndProcedure

z-ElapsedMilliseconds()
For i=0 To 99
	StringFieldInitialize(@s,'.')
	For n=0 To 999
		t=StringFieldNext()
	Next n
Next i
z+ElapsedMilliseconds()
EnableDebugger

MessageRequester("Stringfield","Time: "+Str(z)+"ms"+#CR$+"String: "+t)

Code: Select all

Procedure.s RegexFieldSeperator(sStringToSearch.s, sSeperator.s, Array sLine$(1))
	Protected  iAsciiNbr.i  = Asc(Right(sSeperator,1))
	; 	{--  add \ escape character
	Select iAsciiNbr
		Case  33, 34, 36 To 38, 40 To 43, 46, 47, 58, 60, 62, 63,94, 123 To 126
			sSeperator = Left(sSeperator, Len(sSeperator)-1) + Chr(92) + Chr(iAsciiNbr)
	EndSelect
; 	}
	pattern$ = ".+?" + sSeperator
	Protected iRegexAny . i = CreateRegularExpression(#PB_Any, pattern$,  #PB_RegularExpression_AnyNewLine|#PB_RegularExpression_MultiLine), sReturnString.s, iNbr.i

	If MatchRegularExpression(iRegexAny, sStringToSearch)
		iNbr = ExtractRegularExpression(iRegexAny, sStringToSearch, sLine$())
		FreeRegularExpression(iRegexAny)
		ProcedureReturn Str(iNbr)
		Else
		ProcedureReturn  "No Matches Found"
	EndIf
EndProcedure

For i=1 To 25000  ; make a big string
	For f  = 1 To 25 
		q.s + Chr(Random(122, 97))
	Next	
	fulltext$ + Str(i) + ". " + q + "|"
	q = ""
Next	

If CreateFile(0, GetTemporaryDirectory()+ " rubbish.txt") ; around 800k
	WriteString(0, fulltext$)
	CloseFile(0)
EndIf	

Debug " Started"

Dim line$(0)
s = ElapsedMilliseconds()

Debug RegexFieldSeperator(fulltext$, "|", Line$()) ; search  for all |  and drop in an array

ms = ElapsedMilliseconds()-s
If Ms > 1000
	Debug " took: " + FormatNumber(ms/1000) + " secs"
Else
	Debug " took: " + FormatNumber(ms) + " ms"
EndIf

CallDebugger