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 : 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
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:

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]