C_TEXT($1;$pattern)
C_LONGINT($nb_word;$ii;$err)
C_BLOB($blob_target)
C_LONGINT($offset)

ARRAY LONGINT($_offset;0)
ARRAY LONGINT($length;0)

$pattern:="\\W+(\\w*)\\W*"

TEXT TO BLOB($1;$blob_target;Text without length )
$flags:=""

$err:=QF_RESplit ($pattern;$blob_target;$_offset;$length;$flags)

If ($err=0)
$nb_word:=Size of array($_offset)
ARRAY TEXT(_word;$nb_word)
For ($ii;1;$nb_word)
$offset:=$_offset{$ii}
If ($offset>=0)
_word{$ii}:=BLOB to text($blob_target;Text without length ;$offset;$length{$ii})
End if 
End for 
_word:=0
Else 
ARRAY TEXT(_word;0)
End if