; ; ------------------------------------------------------------ ; ; PureBasic - RegularExpression example file ; ; (c) Fantaisie Software ; ; ------------------------------------------------------------ ; ; Will match every word of 3 letters, lowercase with a 'b' as middle letter ; If CreateRegularExpression(0, "[a-z]b[a-z]") Dim Result$(0) a = ExtractRegularExpression(0, " abc it won't match abz", result$()) MessageRequester("Info", "Nb strings found: "+Str(a)) For k=0 To a-1 MessageRequester("Info", Result$(k)) Next Else MessageRequester("Error", RegularExpressionError()) EndIf