Lire une VCard [Sources]

[Tofalu]

Un code posté par musicmandj5

QUESTION : Lire une VCard
REPONSE :
Bonjour à tous,

Ce code permet d'ouvrir une Vcard ou fichier vcf et d'importer les informations sous Access. Bien sûr, il est adapté à mon utilisation, mais rien ne vous empêche de le transformer.

ps1: les vcard peuvent être considérées comme des fichiers textes, essayez de l'ouvrir avec le bloc notes

ps2: ici je ne recherche que les champs qui m'intéressent, pour les autres, des normes RFC existent regroupant tous les champs reconnus dans les vcard

Code :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
Private Sub Command171_Click()
Dim path, toto, temp As String
Dim t() As String
Dim ctl As Control
Dim i As Integer
Dim db As DAO.Database, rst As DAO.Recordset
Dim sql As String
 
path = OuvrirUnFichier(Me.hwnd, "Open a Vcard", 1, "Vcard", "vcf")'j'ouvre le fichier vcf (cette fonction existe déjà dans les sources)
 
If path <> "" And Nz(Dir(path), "") <> "" Then'je vérifie qu'il existe bien
 
 
    Open path For Input As #1'j'ouvre un fichier texte en lecture
 
    Do While Not EOF(1)'tant que le fichier ouvert n'est pas à la fin je le parcours ligne/ligne
        Input #1, toto'je copie la ligne dans toto
 
'mon ensemble de if permet de vérifier si on est sur le bon champ
 
'Name
'Dans ce cas là il faut découper car nom et prénom sur la même ligne séparés par ";"
        If Left(toto, 2) = "n:" Then
            t = Split(Right(toto, Len(toto) - 2), ";")
            Me.Text146 = Nz(t(0), "")
            If UBound(t) > 0 Then
                Me.Text148 = Nz(t(1), "")
            End If
        End If
'tel du travail
        If Left(toto, 9) = "tel;work:" Then
            Me.Text154 = Right(toto, Len(toto) - 9)
        End If
'fax
        If Left(toto, 8) = "tel;fax:" Then
            Me.Text158 = Right(toto, Len(toto) - 8)
        End If
'function
        If Left(toto, 6) = "title:" Then
            Me.Text152 = Right(toto, Len(toto) - 6)
        End If
'mail
        If Left(toto, 15) = "email;internet:" Then
            Me.Text160 = Right(toto, Len(toto) - 15)
        End If
'company
'ici je regarde si elle existe déjà dans ma base pour la sélectionner
'dans le cas contraire l'utilisateur doit l'ajouter lui-même
        If Left(toto, 4) = "org:" Then
            t = Split(Right(toto, Len(toto) - 4), ";")
            Set db = CurrentDb
            sql = "select company_key from company where company_name = '" & correct_request(Nz(t(0), "")) & "'"
            Set rst = db.OpenRecordset(sql)
 
            If rst.EOF = False Then
                Combo141.Value = rst(0)
                Combo141_Change
            End If
 
 
'je nettoie tout           
            rst.Close
            Set rst = Nothing
            Set db = Nothing
        End If
    Loop
 
'je ferme le fichier
    Close #1
 
End If
End Sub

Une Vcard est en qq sorte une carte de visite électronique. Elle contient différentes informations sur le contact. Elle est aujourd'hui normalisée par des normes RFC et peut être lu par pas mal de broswer de mail ou de pocket pc...

Les informations contenues à l'intérieur sont sous forme texte, du même style qu'un fichier .ini. Elles peuvent varier suivant les cartes de visite.

Pour avoir tous les champs possibles de ces cartes de visite electroniques, il faut consulter les RFC. (sur google : RFC Vcard ça fonctionne)

[Tofalu]

Il existe une librairie je crois pour lire les VCarc, à voir