[VB.NET] lecture dans un exe

Version imprimable

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:

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

Code:

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

05/07/2005, 16h00
cyrcroix

Ce n'est pas totalement vrai.
C'est du VB adapté pour fonctionner sous VBNET.
Cela fonctionne presque à part mon problème...
05/07/2005, 16h03
neguib

Citation:

Envoyé par cyrcroix

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 :wink:
05/07/2005, 16h06
cyrcroix

oki :)
05/07/2005, 16h08
cyrcroix

Comment le passer sous VBNET alors?
(sans le petit programme de conversion inclus ds VBNET qui marche aléatoirement)
05/07/2005, 16h23
neguib

Ben je veux bien t'aider mais j'avoue que mon vb ancien (j'ai oublié :oops: ) 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
:)
05/07/2005, 16h25
neguib

Ben je veux bien t'aider mais j'avoue que mon vb ancien (j'ai oublié :oops: ) 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
:)
05/07/2005, 16h56
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...
05/07/2005, 17h09
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

Code:

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

05/07/2005, 17h27
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.
05/07/2005, 17h31
neguib

Citation:

Envoyé par 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.

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