Discussion :

[alezan]

Je suis entrain de crée une application pour gérer les contact partager de mon entreprise sur des téléphone Android.
mon but et de pouvoir mettre à jour tous les contacts d"une flotte de téléphone anddroi qui aurons l'application .

j'ai déjà créer la 1ere partie de l'application l'utilisateur appui sur un boutons :
cela lance la connexion sur un ftp et télécharge un fichier csv contenant les contact à jours.

en gros j'ai besoin de mettre à jour les nom en face des numéro de téléphone et de créer les nouveaux contacts si le numéro n'existe pas
j'ai déja créer cette partie la pour créer les contact depuis mon fichier csv

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
sContenuFichier = fChargeTexte("export.csv")
 
POUR TOUT CHAÎNE sLigne de sContenuFichier SEPAREE PAR CRLF
// Traitement de la ligne
//NumCol=3
//CONACT.nom=extraitchaine(sLigne,1,";")
//CONACT.Prenom=extraitchaine(sLigne,2,";")
//CONACT.Téléphone_France=extraitchaine(sLigne,3,";")
//hajoute(conact)
 
// Variables locales
tContact est un Contact
tTéléphone est un Téléphone
 
// Identité
tContact.Nom = ExtraitChaîne(sLigne,1,";")
tContact.Prénom = ExtraitChaîne(sLigne,2,";")
 
// Numéros de téléphone Fixe
SI ExtraitChaîne(sLigne,3,";") <> "" ALORS
tTéléphone..Numéro = ExtraitChaîne(sLigne,3,";")
tTéléphone..Type = telDomicile
Ajoute(tContact.Téléphone, tTéléphone)
FIN
 
// Ajout
SI PAS ContactAjoute(tContact ) ALORS
Erreur("Impossible de créer le contact.")
FIN
FIN

mais je n'arrive pas écrire code qui recherche le numéro dans tous les contact de téléphone Android pour le comparer avec celui de l’extraction de ma chaine
il faudrai surement ecrire quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SI ExtraitChaîne(sLigne,3,";"= "numero existant dans les contact android "ALORS

mais je ne trouve pas la bonne façon de faire cette comparaison.


merci de votre aide. (je suis sur windev mobile 23)

[alezan]

alors j'ai fait ce code la.
mais il ne fonction pas, je me retrouve avec un seul contatc à la fin
pouvez vous me dire ou je me loupe ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sContenuFichier = fChargeTexte("export.csv")
Sablier(Vrai)
 
POUR TOUT CHAÎNE sLigne DE sContenuFichier SEPAREE PAR CRLF
	// Traitement de la ligne
	// On recherhce  si  le numéro de téléphone existe dans les contact 
		SI  ContactCherche(contactTéléphone,ExtraitChaîne(sLigne,3,";"),mContact.TéléphoneMobile,Vrai) ALORS
			//on mets a jours les information du nom et prénom
		mContact.Nom = ExtraitChaîne(sLigne,1,";")
		mContact.Prénom = ExtraitChaîne(sLigne,2,";")
		ContactModifie(contactTéléphone)
		SINON
		// on créer le contact 
		mContact.Nom = ExtraitChaîne(sLigne,1,";")
		mContact.Prénom = ExtraitChaîne(sLigne,2,";")
		mContact.TéléphoneMobile = ExtraitChaîne(sLigne,3,";")
		ContactAjoute(contactTéléphone)
FIN
FIN
Sablier(Faux)
	Info("Terminé")