not equal symbol in b4a?

Simonxman

Member
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
 

DonManfred

Expert
Licensed User
Longtime User
not working
1. You should have created a new thread for this
2. It is working for me!
B4X:
    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 **
 
Upvote 0

BaGRoS

Active Member
Licensed User
Longtime User
B4X:
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 :/
 
Upvote 0
Top