something like this:
after each line read, check if not -999:
B4X:
Sub getdata(st As String) As Int
Dim str() As String
If st.Contains("casa=") Then
str = Regex.Split("=",st)
Return str(1)
End If
If st.Contains("teste=") Then
str = Regex.Split("=",st)
Return str(1)
End If
return -999
End Sub