Sub Activity_Create (FirstTime As Boolean)
Dim s() As String
s = Array As String("24. Lemons 24 First String(1)14/02/2011", _
"25. Apples 25 Second String(2)14/02/2011", _
"26. Chocolat 26 Third String14/02/2011", _
"27. Nougat 26 Fourth String-")
For i = 0 To s.Length - 1
Log(SplitString(s(i)))
Next
End Sub
Sub SplitString(s As String) As String
Dim m As Matcher
m = Regex.Matcher("\d\d ([A-Za-z]+ [A-Za-z]+(\(\d\))?)", s)
m.Find
Return m.Group(1)
End Sub