not equal symbol in b4a?

[Simonxman]

Hi guys
i need the not equal symbol so i can write if and else correctly
if the editbox dose not contain the word "all" it shows some msg sayn that the word dosent exist

If EditText1.Text.Contains != "all" Then

Msgbox("word dosent exist'","")


THANKS A LOT

 

[klaus]

You should use:

If EditText1.Text.Contains("all") = False Then

Best regards.

 

[Erel]

Another option (with the non-equal comparator):

If EditText1.Text.Contains("all") <> True Then

 

[Jost aus Soest]

And I would use

If Not(EditText1.Text.Contains("all")) Then

for better reading by self explaining code.

 

[BaGRoS]

if New.CharAt(A) <> "0" Then

not working

 

[DonManfred]

not working

1. You should have created a new thread for this
2. It is working for me!

    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 **

 

[BaGRoS]

Sorry
my mistake

 

[klaus]

What is not working ?
What is the content of New ?

 

[BaGRoS]

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

I made mistake and used OR instead AND :/