PureBasic Forums - English

Code: Select all

;
; ------------------------------------------------------------
;
;   PureBasic - RegularExpression example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

; Will match every word of 3 letters, lowercase with a 'b' as middle letter
;
If CreateRegularExpression(0, Chr(34)+".*"+ Chr(34))

  Dim Result$(0)
  
  NbResults = ExtractRegularExpression(0, Chr(34)+"alain"+Chr(34)+" "+Chr(34)+"allo"+Chr(34), result$())
  
  Debug "Nb matchs found: " + NbResults
  
  For i = 0 To NbResults - 1
    Debug Result$(i)
  Next

Else
  MessageRequester("Error", RegularExpressionError())
EndIf

Code: Select all

If CreateRegularExpression(0, Chr(34)+"\w+"+ Chr(34))

Code: Select all

Nb matchs found: 2
"alain"
"allo"

Code: Select all

#q$ = Chr(34)
If CreateRegularExpression(0, #q$+".*?"+#q$)
If CreateRegularExpression(0, Chr(34)+".*?"+ Chr(34))

Code: Select all

If CreateRegularExpression(0, ~"\"[^\"]*\"")
If CreateRegularExpression(0, Chr(34)+"[^"+Chr(34)+"]*"+Chr(34))

Code: Select all

#q$ = Chr(34)

Debug #q$
Debug #DQUOTE$

Code: Select all

#q = Chr(34)
Debug #q

Code: Select all

Debug ~"\"alain\""