Sort contacts

[Christian]

Hi Erel,
the code in the attached zip file displays the name and the phone number of the
contacts which are stored on the phone. Now I want to sort this list by names.
Do you have an idea how to achieve it.
Best regards
Christian

 

[Erel]

Small tip, if your code doesn't depend on any other files then it is better to just post the code.

The solution I've implemented here is to add all the display names to a list and to have a map that maps between the names and the contacts.
The "display names" list can be sorted because it is a list of strings.

Sub Globals
    Dim id As Int
    Dim Contacts1 As Contacts
    Dim lvPersons As ListView
    Dim myContact As Contact
    Dim listOfContacts As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
    lvPersons.Initialize("")
    Activity.AddView(lvPersons,0%x,0%y,100%x,100%y) 'don't confuse %x and %y
    lvPersons.Clear
    
    listOfContacts = Contacts1.GetAll
    Dim map1 As Map
    map1.Initialize
    Dim list1 As List
    list1.Initialize
    For i = 0 To listOfContacts.Size - 1
        myContact = listOfContacts.Get(i)
        list1.Add(myContact.DisplayName)
        map1.Put(myContact.DisplayName, myContact)
    Next
    list1.Sort(True)
    For i = 0 To list1.Size - 1
        myContact = map1.Get(list1.Get(i))
        lvPersons.AddTwoLines2(myContact.DisplayName,myContact.PhoneNumber,myContact.id)
    Next
End Sub

Note that if there are two contacts with the same display name then the same contact will be displayed twice.

 

[Christian]

Thank you very much for your help.

 

[susu]

Erel, I tried your code but on emulator and my phone it doesn't show any phone number! I faced this problem for long time and I still can't solve it. Please support.

 

[Erel]

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

 

[susu]

Ok, it show phone numbers but how to display mobile phone only? For example: Batman 555-555-55.

 

[Erel]

Something like:

Dim m As Map
m = myContact.GetPhones
Dim p as String
for i = 0 To m.Size - 1
 If m.GetValueAt(i) = myContact.MOBILE_PHONE Then
   p = m.GetKeyAt(i)
   Exit
 End If
Next
If p.Length > 0 Then Msgbox("Mobile phone = " & p)

 

[susu]

Thank you Erel but your code is not correct some places. I edited it like this:

Sub Activity_Create(FirstTime As Boolean)

lvPersons.Initialize("")
Activity.AddView(lvPersons,0%x,0%x,100%x,100%x)
lvPersons.Clear

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 x = 0 To mob.Size -1
If mob.GetValueAt(x) = myContact.PHONE_MOBILE Then
mobile = mob.GetKeyAt(x)
lvPersons.AddTwoLines2(myContact.DisplayName,mobile,myContact.id)
Exit
End If
Next

Next

End Sub

The BIG problem is it works like a champ on emulator but on my real phone nothing appears! I reported this problem before and I think there's something wrong with the contact library. Can you check again?

Ps: My phone is running Android 2.1.

 

[Erel]

I tested the library on several devices (including Android 2.1) and it did work.

It will be great if other users can test it and see if it works.

 

[susu]

Hi Erel, I'm using Samsung Galaxy Beam phone with Android 2.1. I think the problem is only happen on Samsung device. I googled and there's some people got this problem too. As this link:
Problem with reading contacts on Samsung Galaxy Europa - Android Developers | Google Groups

Can you suggest me a solution? Thank you so much.

 

[susu]

Erel, do you have Samsung Galaxy Tab? Can you check the code above?

 

[Erel]

Erel, do you have Samsung Galaxy Tab?

Yes. I will check it.

 

[Erel]

Both Contact.PhoneNumber and Contact.GetPhones work correctly.

 

[susu]

Your Galaxy Tab is running Android 2.2?

 

[Erel]

Yes.

 

[ZJP]

Hi,

Not running on my Galaxy I5500 (europa) , Android 2.1

JP

 

[susu]

As I said before, Samsung phone with Android 2.1 got problem with these contact thing and I still don't know how to fix it

 

[ZJP]

Works well (maybe) with Android 2.2?: Samsung Galaxy 5 (GT-I5500/I5503) - xda-developers
I'm waiting for the French version. :sign0060:

JP

Edit : I've upgrade my phone. Works now with Android 2.2

 

[rcaridade]

I implement this way to read the contacts it very slow but it work, it has two ways to display the list, if there is something in the textbox it uses it as a filter otherwise brings all contacts.

the code:

Sub btnContactos_Click
Dim contactos As Contacts
Dim contacto As Contact
Dim listaContactos As List
Dim telefones As Map
Dim telemovel As String
Dim listaNomes As List
Dim listaTelefones As List
Dim listaGeral As Map
Dim selecionado As Int
Dim inicio As String

ProgressDialogShow("A carregar a lista de contactos...")

listaNomes.Initialize
listaTelefones.Initialize
listaGeral.Initialize

DoEvents

If txtNumero.Text.Length = 0 Then
listaContactos = contactos.GetAll

Else
listaContactos = contactos.FindByName(txtNumero.Text.Trim , False)

End If


For i = 0 To listaContactos.Size - 1

DoEvents

Contacto = listaContactos.Get(i)

If contacto.DisplayName.IndexOf("@") < 0 Then
telefones = Contacto.GetPhones

For j = 0 To telefones.Size -1

If telefones.GetValueAt(j) = Contacto.PHONE_MOBILE Then
listaNomes.Add(contacto.DisplayName)
listaGeral.Put(contacto.DisplayName,contacto)
Exit
End If

Next
End If

Next

listaNomes.SortCaseInsensitive(True)

For i = 0 To listaNomes.Size - 1

DoEvents

Contacto = listaGeral.Get(listaNomes.Get(i))
telefones = Contacto.GetPhones

For j = 0 To telefones.Size -1

If telefones.GetValueAt(j) = Contacto.PHONE_MOBILE Then
telemovel = telefones.GetKeyAt(j)
listaTelefones.Add(telemovel)
Exit
End If

Next
Next

ProgressDialogHide

selecionado = InputList(listaNomes, "Contactos", -1 )
If selecionado <> DialogResponse.CANCEL Then
telemovel = listaTelefones.Get(selecionado)
txtNumero.Text = telemovel.Replace("+351","").Trim
Else
txtNumero.Text = ""
End If
End Sub

 

[elbelli2013]

Hi, I need to sort my list, but when I try to do throw this error:

Dim listOfContacts As List


If FirstTime Then

ProgressDialogShow("Building contacts index...")

listOfContacts.Initialize
listOfContacts.Clear

listOfContacts = Contacts2.GetAll(True,False)
listOfContacts.SortType("DisplayName", True )

End If




** Activity (main) Create, isFirst = true **


Error occurred on line: 117 (main)
java.lang.NoSuchFieldException: DisplayName


at java.lang.ClassCache.findFieldByName(ClassCache.java:446)
at java.lang.Class.getDeclaredField(Class.java:666)
at anywheresoftware.b4a.objects.collections.List.sortList(List.java:193)
at anywheresoftware.b4a.objects.collections.List.SortType(List.java:181)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:507)
at anywheresoftware.b4a.shell.Shell.runVoidMethod(Shell.java:680)
at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:308)
at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:238)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:507)
at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:121)
at b4a.example.main.afterFirstLayout(main.java:98)
at b4a.example.main.access$100(main.java:16)
at b4a.example.main$WaitForLayout.run(main.java:76)
at android.os.Handler.handleCallback(Handler.java:587)
at android.os.Handler.dispatchMessage(Handler.java:92)
at android.os.Looper.loop(Looper.java:130)
at android.app.ActivityThread.main(ActivityThread.java:3744)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:507)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:860)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:618)
at dalvik.system.NativeStart.main(Native Method)


Anybody can help me??

thanks in advance