Lecture de fichier - dernière ligne non prise en compte
Bonjour,
je developpe actuellement un programme en vb qui utilise les fichiers, mais j'ai un problème , lors de la lecture des données du fichier texte (ou sont notées des données) il ne recupere pas la derniere ligne!
Voici le code source:
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
|
Private Sub Form_Initialize()
Dim L0 As String
Dim L1 As String
Dim L2 As String
Dim L3 As String
Dim L4 As String
Dim L5 As String
Dim L6 As String
Dim wtotalv As Double
Dim wtotalg As Double
Dim n As String
Dim v As String
Dim tampon As String
Dim prime As Double
Dim numfic2 As Integer
Dim courant As String
'Debut de la page html
debut = "<HTML><BODY bgcolor=white><FONT COLOR=000000>"
L0 = "<CENTER><h3>Etat général</h3></CENTER><br>"
L1 = "<DIV align=right><u>Date:" & Date & "</u></div><br><br><table>"
numfic2 = FreeFile
Open "etatville.html" For Output As #numfic2
Print #numfic2, debut
Print #numfic2, L0
Print #numfic2, L1
Input #numfic, n, v, tampon
While Not EOF(numfic)
courant = v
wtotalv = 0
L2 = "<tr><td>Ville: " + v
Print #numfic2, L2
L3 = "<tr><td>Nom<td>Prime"
Print #numfic2, L3
While Not EOF(numfic) And (courant = v)
L4 = "<tr><td>" + n + "<td>" + tampon
Print #numfic2, L4
wtotalv = wtotalv + Val(tampon)
Input #numfic, n, v, tampon
Wend
L5 = "<tr><td>Total" & wtotalv
wtotalg = wtotalg + Str(wtotalv)
Print #numfic2, L5
Wend
L6 = "</table>Total général" + Str(wtotalg)
Print #numfic2, L6
Close #numfic, #numfic2
End Sub |
Le programme sort un fichier HTML avec les données .
Ceci est le fichier exemple ou sont les données:
Citation:
Alfred,Firminy,5000
Jean,Paris,7000
Julien,Saint etienne,1000
JAnot,Saint etienne,1000
Maurice,Xoupps,5000
Le probleme vient que on lis la dernière ligne dans la variable tampon mais ça ne boucles pas sur son traitement car le fait d'avoir lu la dernière ligne met le fichier à EOF, il faut donc déplacer le traitement de la derniere ligne, mais je ne vois pas ou le mettre???
Merci d'avance
[Titre modifié par Loulou24, merci d'utiliser des titres explicites à l'avenir]
