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

; Ищет в тексте слова из 3-х букв 3, в которых по середине есть прописная 'b'.
;
If CreateRegularExpression(0, "[a-z]b[a-z]")

  Dim Result$(0)
  
  NbResults = ExtractRegularExpression(0, " abc это не будет соответствовать abz", result$())
  
  Debug "Nb совпадений найдено: " + NbResults
  
  For i = 0 To NbResults - 1
    Debug Result$(i)
  Next

Else
  MessageRequester("Ошибка", RegularExpressionError())
EndIf