Bonjour,
Je suis en train de monter un programme de surveillance mais j'e rencontre un probleme sur une partie du code
Je dois mettre a jour une table (prealablement vidée) a partir d'un fichier texte.
Ce fichier texte a comme separateur "|"
Afin d'etre sur de tout prendre je tente une boucle comme celle-ci :
mais elle ne fonctionne pas
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
31
32
33
34
35
36
37
38 Dim j As String Dim i As Integer Dim ifile As String Dim vsfile As String Dim sline As String Dim slineoriginal As String Dim rs As Recordset i = 1 ifile = Freefile Open vsfile For Input As ifile For i = 1 To 5 Line Input #ifile, sline Next Do While Not EOF(ifile) Line Input #1, slineoriginal sline = slineoriginal If (Left$(sline, 7) >= "1000000" And Left$(sline, 7) <= "3999999") Then rs.AddNew For j = 3 To Recordset.Fields.Count i = InStr(sline, Chr$(124)) If i <> 0 Then stexte = Left$(sline, i - 1) Recordset.Fields.Item(j) = stexte sline = Mid$(sline, i + 1) Else Recordset.Fields.Item(j) = sline Exit For End If Next Recordset.Update End If
Puis je vous demander votre aide ? merci d'avance
modération : cafeine,![]()
![]()
Partager