Discussion :

[cyrcroix]

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

[neguib]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
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

Ceci est du VB pas du VBNet

[cyrcroix]

Ce n'est pas totalement vrai.
C'est du VB adapté pour fonctionner sous VBNET.
Cela fonctionne presque à part mon problème...

[neguib]

Ce n'est pas totalement vrai.
C'est du VB adapté pour fonctionner sous VBNET.
Cela fonctionne presque à part mon problème...

c'est bien ce que je dis ce n'est pas du VBNet

[cyrcroix]

oki

[cyrcroix]

Comment le passer sous VBNET alors?
(sans le petit programme de conversion inclus ds VBNET qui marche aléatoirement)

[neguib]

Ben je veux bien t'aider mais j'avoue que mon vb ancien (j'ai oublié ) donc par exemple c quoi freefile() comme type renvoyé
etc..
donc ce sera mieux si tu me donnes l'alo plutôt que du donnes
1. le lexique des varibles avec les types
2. l'algorithme de la procedure

[neguib]

Ben je veux bien t'aider mais j'avoue que mon vb ancien (j'ai oublié ) donc par exemple c quoi freefile() comme type renvoyé
etc..
donc ce sera mieux si tu me donnes l'alo plutôt que du donnes
1. le lexique des varibles avec les types
2. l'algorithme de la procedure

[cyrcroix]

oki,
alors en fait il faut :

Ouvrir fichier .exe en mode binaire. (cet .exe est lancé lors de l'ouverture)
Faire tant que fichier non parcouru en entier
compter la somme des codes ascii de tous les caracteres du fichier ligne par ligne
Fin faire

Pour les variables, tout est possible...

[cyrcroix]

C'est bon , j'ai trouvé. Voila mon code pour ceux que ca peut intéresser..;

num_fich = FreeFile()
memo = VisuVersion.Text
VisuVersion.Text = ""
If g_TestPneumatique Then
NomFichier = CurDir() & "\MonAppli.exe"
Else
NomFichier = CurDir() & "\MonAppli.exe"
End If

Dim num = FreeFile()
FileOpen(num, NomFichier, OpenMode.Binary, OpenAccess.Read)

longueur_fich = LOF(num_fich)
Do While EOF(1) = False
Chaine = New String(" "c, 512)
FileGet(1, Chaine)
position = Loc(num_fich)
For j = 1 To Len(Chaine) Step 2
check = (check + (j * 1 + Asc(Mid$(Chaine, j, 1))))
Next j
Chaine = Nothing
VisuVersion.Text = "en cours ... " & Format$(Loc(num_fich) / longueur_fich, "0 %")
Loop

[neguib]

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
 
Imports System.Text
 
Dim chemin As String
Dim monlecteur As StreamReader
Dim compteur As Integer = 0 
 
chemin =  'chemin d'accès complet du fichier
monlecteur = New StreamReader(chemin, Encoding.ASCII)
monlecteur.BaseStream.Seek((0, SeekOrigin.Begin)
With lecteur
  While .Peek() >= 0
     compteur = .ReadLine.Length
     ' traiter ici le resultat de compteur, je n'ai pas compris
     ' ce que tu voulais en faire et pourquoi ligne par ligne,
     ' car il est possible de le faire aussi directement pour 
     ' l'ensemble du fichier avec ReadToEnd
  End While
  If Not(lecteur Is Nothing) Then .Dispose
End With

Qu'en dis-tu du VB.Net :

[cyrcroix]

ok, j'essayerai ton code, le VBNET est bien plus joli que le VB.
En fait là je lit 512 caractère au lieu d'une ligne.
Merci beaucoup pour ton aide...
Bonne soirée.

[neguib]

ok, j'essayerai ton code, le VBNET est bien plus joli que le VB.
En fait là je lit 512 caractère au lieu d'une ligne.
Merci beaucoup pour ton aide...
Bonne soirée.

En fait du dois passer d'un langage procedural à un langage objet, il te faut donc te familiariser avec les classes crées par DotNet pour par exemple gérér ici System.IO