Discussion :

[alfhcg]

Bonjour.

J'ai un fichier de type .txt qui contient par exemple:

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
 
BEGIN:VCALENDAR
VERSION:2.0
PRODID:-//hacksw/handcal//NONSGML v1.0//EN
BEGIN:VEVENT
DTSTART:20120425
DTEND:20120425
SUMMARY:Test
END:VEVENT
BEGIN:VEVENT
DTSTART:20120426
DTEND:20120426
SUMMARY:Test 26
END:VEVENT
END:VCALENDAR

Je voudrais parcourir ce fichier ligne par ligne et copier dans une table access tout ce qui est écrit après les mots:
DTSTART
DTEND
SUMMARY

Les infos de DTSTART, DTEND et SUMMARY seraient les trois champs d'un enregistrement. C'est à dire que à chaque fois que je rencontre le mot SUMMARY, je devrais passer à un nouvel enregistrement.

Merci si quelqu'un me donne des idées.

[Benoit6000]

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
Public Function lire_fichier(cFichier As String)
Dim nFile As Integer, nTrouve As Integer, j As Integer, cFind(2) As String, cValeurFind(2)
Dim cLu As String
    cFind(0) = "DTSTART"
    cFind(1) = "DTEND"
    cFind(2) = "SUMMARY"
    nFile = FreeFile()
    Open cFichier For Input As #nFile
    nTrouve = 0
    Do While Not EOF(nFile)
        Line Input #nFile, cLu
        If InStr(1, cLu, cFind(nTrouve)) Then
            cValeurFind(nTrouve) = Mid(cLu, Len(cFind(nTrouve)) + 2)
            Debug.Print cFind(nTrouve) & ":= " & cValeurFind(nTrouve)
            nTrouve = nTrouve + 1
            If nTrouve > 2 Then
                nTrouve = 0
                ' les 3 variables  sont trouvées
 
            End If
        End If
    Loop
    Close nFile
End Function

En espérant que cela t'éclaire

[alfhcg]

Bonjour.
Cela m'a éclairé beaucoup. Un grand merci.
Résolu!