If Not(EditText1.Text.Contains("all")) Then
1. You should have created a new thread for thisnot working
Dim new As String = "0Hallo0 0world0"
For A = 0 To new.Length-1
If new.CharAt(A) <> "0" Then
Log(new.CharAt(A))
End If
Next
** Activity (main) Create, isFirst = true **
H
a
l
l
o
w
o
r
l
d
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
** Activity (main) Resume **
Sub edtPattern_TextChanged (Old As String, New As String)
'zmienna pomocnicza
Dim A As Int
For A=0 To New.Length -1
If New.CharAt(A) <> "0" AND New.CharAt(A) <> "1" Then
Log("ERROR")
edtPattern.Text = Old
Exit
End If
Next
End Sub