On Friday 31 October 2008 22:40:03 Rob wrote: > function FindAll(subj as string, pattern as string) as String[] > dim re as Regexp > dim matches as new String[] > re = new Regexp(subj, pattern) > do while re.offset >= 0 and subj <> "" > matches.push(re.text) > if len(subj) > len(re.text) then > subj = mid(subj, re.offset + len(re.text) + 1) > else > subj = "" > end if > if subj <> "" then re.exec(subj) > loop > return matches > end
Thanks a lot Rob, this was exactly what I was looking for! Best regards -- Markus Schatten, MSc Faculty of Organization and Informatics Varaždin, Croatia http://www.foi.hr ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user
