Probably not the most elegant way to do it but it works:
B4X:
Test("t1r3")
Test("t11r61")
Private Sub Test(s As String)
Dim n1, n2 As Int
s = s.Replace("t", "")
s = s.Replace("r", " ")
Dim arr() As String = Regex.Split(" ", s)
If arr <> Null And arr.Length = 2 And IsNumber(arr(0)) And IsNumber(arr(1)) Then
n1 = arr(0)
n2 = arr(1)
End If
Log(n1 & " " & n2)
End Sub
Private Sub ParseString (s As String) As Double()
Dim res(2) As Double
Dim m As Matcher = Regex.Matcher("\d+\.?\d*", s)
Dim c As Int
Do While m.Find
res(c) = m.Match
c = c + 1
If c = 2 Then Exit
Loop
Return res
End Sub