Je lis les info contenues dans un fichier mais après quelques tours dans la boucle, la ligne : Input(1, oneChar) plante (elle génère une exception).
Voici le message de l'exception : " L'entrée dépasse la fin du fichier".
Voici mon code :
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 Dim num = FreeFile() FileOpen(num, NomFichier, OpenMode.Binary, OpenAccess.Read) longueur_fich = LOF(num_fich) Do While position + 512 < longueur_fich Input(num_fich, Chaine) position = Loc(num_fich) For j = 1 To Len(Chaine) Step 2 check = (check + (j * 1 + Asc(Mid$(Chaine, j, 1)))) Next j VisuVersion.Text = "en cours ... " & Format$(Loc(num_fich) / longueur_fich, "0 %") Loop
Partager