Sub Activity_Create(FirstTime As Boolean)
Dim s As String = ";.1 ;.2"
s = RegexReplace(";\.(.)", s, ";\.$1;")
Log(s)
End Sub
Sub RegexReplace(Pattern As String, Text As String, Replacement As String) As String
Dim m As Matcher
m = Regex.Matcher(Pattern, Text)
Dim r As Reflector
r.Target = m
Return r.RunMethod2("replaceAll", Replacement, "java.lang.String")
End Sub