Get name by phone nr.

XverhelstX · Apr 19, 2011

Heey,

I would like to know the name of the one who sended a message.

B4X:

Sub SI_MessageReceived (From As String, Body As String)
   MessageFrom1 = From
   MessageBody1 = Body
   
   
   Dim Contacts1 As Contacts
   Dim Contact1 As Contact
   Dim listOfContacts As List
   Dim list1 As List
   listOfContacts = Contacts1.GetAll
   For i = 0 To listOfContacts.Size - 1
       
       Contact1 = listOfContacts.Get(i)
      If Contact1.PhoneNumber = MessageFrom1 Then
         MessageFromName = Contact1.DisplayName
         StartActivity(AMessage)
      Else
         MessageFromName = MessageFrom1
         StartActivity(AMessage)
      End If
   
   Next 
End Sub

This seems to work, but I always got my phone number instead than the name. I know it's related to this (If Contact1.PhoneNumber = MessageFrom1 Then), but I want something like if string.contains (phonenumber) = ... etc

How would I solve this?

XverhelstX

Erel · Apr 19, 2011

Your loop logic is wrong. You are starting the activity for each contact because of this code:

B4X:

        Else
             MessageFromName = MessageFrom1
             StartActivity(AMessage) 
        End If

XverhelstX · Apr 19, 2011

Yes, ok and how to solve this?

and also isn't Contact1 then a whole list of contacts?

Contact1 = listOfContacts.Get(i)

XverhelstX

Erel · Apr 19, 2011

As I understand it, you do not need the Else clause at all.

XverhelstX · Apr 19, 2011

Agreed, but what if the phone number is not in my contact list

should I just add startactivity after the next clause?

XverhelstX

Erel · Apr 19, 2011

Yes. You can use a boolean variable named 'found'.
Set it to false before the For loop. If the contact was found set it to true.

After the loop check if found = false and start the activity.

Actually you can just move the StartActivity call out of the For loop. StartActivity doesn't happen immediately anyway. It happens once your current code finishes executing.

XverhelstX · Apr 19, 2011

Oh, ok, thanks a lot!

Actually you can just move the StartActivity call out of the For loop. StartActivity doesn't happen immediately anyway. It happens once your current code finishes executing.

oh nice, didn't knew this.

XverhelstX

XverhelstX · Apr 19, 2011

nope, still doesn't work..

What I think is that Contact1 is a full list of all my phone numbers. (Contact1 = listOfContacts.Get(i))
How is it possible than that Contact1.PhoneNumber is equal than as MessageFrom1 ?

B4X:

Sub SI_MessageReceived (From As String, Body As String)
   MessageFrom1 = From
   MessageBody1 = Body
   
   
   Dim Contacts1 As Contacts
   Dim Contact1 As Contact
   Dim blnFound As Boolean
   blnFound = False
   Dim listOfContacts As List
   Dim list1 As List
   listOfContacts = Contacts1.GetAll
   For i = 0 To listOfContacts.Size - 1
       
       Contact1 = listOfContacts.Get(i)
      If Contact1.PhoneNumber = MessageFrom1 Then
         MessageFromName = Contact1.DisplayName
         StartActivity(AMessage)
         blnFound = True
      End If
   
   Next 
   
   If blnFound = False Then
   MessageFromName = MessageFrom1
   StartActivity(AMessage)
   
   End If 
End Sub

Also note that the message displayed is +3247...... (+32 for belgium)
and that this is also the same number in my settings.

xverhelstx

galimpic · Apr 19, 2011

You should exit the loop after you find the number. I think that this forum should not be about general programming techniques, but about b4a specifics, and you should first work with hardcoded strings and make sure your program flow is OK before you go any further.

XverhelstX · Apr 19, 2011

Yes, ok, i forgot to add the exit, but this didn't solve it.

It still doesn't get my phone number.

XverhelstX

XverhelstX · Apr 19, 2011

ok, I did this:

Dim Contacts1 As Contacts
Dim Contact1 As Contact
Dim blnFound As Boolean
blnFound = False
Dim listOfContacts As List
Dim list1 As List
listOfContacts = Contacts1.GetAll
Msgbox(listOfContacts,"")

in Resume, and in the messageboxs, it only shows email adress and not my telephone list.

why doesn't this show the telephone contact list?

XverhelstX

galimpic · Apr 20, 2011

Just do a search for "PhoneNumber" in this forum and you will find an answer in a few seconds, just like i did now:

http://www.b4x.com/forum/basic4android-updates-questions/7456-sort-contacts.html#post42570

"Try using Contact.GetPhones instead of Contact.PhoneNumber.
On some devices the default phone number is empty."

XverhelstX · Apr 20, 2011

ok, the problem is that

B4X:

listOfContacts = Contacts1.GetAll

onyl shows a list of emailadress and not my telephone list

code:

B4X:

Sub Activity_Resume

   Dim Contacts1 As Contacts
   Dim myContact As Contact
   Dim blnFound As Boolean
   blnFound = False
   Dim listOfContacts As List
   Dim list1 As List
   listOfContacts = Contacts1.GetAll
   
   For i = 0 To listOfContacts.Size - 1
      myContact = listOfContacts.Get(i)
      Dim mob As Map
      Dim mobile As String
      mob = myContact.GetPhones
         For j = 0 To mob.Size - 1

            If mob.GetValueAt(j) = "+32479745494" Then
               mobile = mob.GetKeyAt(j)
               MessageFromName = mobile
               'StartActivity(AMessage)
               blnFound = True
               Msgbox(MessageFromName,"")
               Exit
            End If
         Next
   
   Next 
   Msgbox(listOfContacts,"")
End Sub

galimpic · Apr 20, 2011

That looks more like it... it would be nice if someone who is making an app using phonebook, while he's at it creates a library with some of these procedures (e.g. returning a contact based on a phone number).

XverhelstX · Apr 20, 2011

Yes, ok, but is there a way now to show my Telephone contact list instead of my email list?

xverhelstX

Get name by phone nr.

XverhelstX

Well-Known Member

Erel

B4X founder

XverhelstX

Well-Known Member

Erel

B4X founder

XverhelstX

Well-Known Member

Erel

B4X founder

XverhelstX

Well-Known Member

XverhelstX

Well-Known Member

galimpic

Member

XverhelstX

Well-Known Member

XverhelstX

Well-Known Member

galimpic

Member

XverhelstX

Well-Known Member

galimpic

Member

XverhelstX

Well-Known Member

Similar Threads

Get name by phone nr.

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

Well-Known Member

Member

Well-Known Member

Well-Known Member

Member

Well-Known Member

Member

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency