Erreur en lecture de fichier hexa
Fabk01
Messages postés
10
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
2 avril 2005
-
2 avril 2005 à 19:01
Fabk01 Messages postés 10 Date d'inscription mercredi 2 avril 2003 Statut Membre Dernière intervention 2 avril 2005 - 3 avril 2005 à 15:41
Fabk01 Messages postés 10 Date d'inscription mercredi 2 avril 2003 Statut Membre Dernière intervention 2 avril 2005 - 3 avril 2005 à 15:41
A voir également:
- Erreur en lecture de fichier hexa
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Erreur d'exécution 424 ✓ - Forum Visual Basic
- Erreur 424 "Objet requis" ✓ - Forum Visual Basic 6
- Message d'erreur 424: objet requis ✓ - Forum VBA Office (Excel, Word ...)
- Erreur d'execution 9 ✓ - Forum Visual Basic 6
7 réponses
Fabk01
Messages postés
10
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
2 avril 2005
2 avril 2005 à 19:04
2 avril 2005 à 19:04
Bonjour à tous
J'ai sérieusement besoin d'aide au risque de finir par atomiser mon pc
qui pourtant doit être innoscent mais vous saver ce que c'est quand y a
des erreurs c'est jamais de la faute du coupable
Enfin bref venons en au fait
Je dois lire un fichier Hexa en particulier l'entête.
Dans cet entête se trouve une info placé après un certain offset.
Elle est écrite en hexa mais codée en décimal, je m'explique si la
valeur hexa lue est (10)h la donné en décimal à affiché est bien 10 et
non 16 jusque là C assez clair je pense.
donc j'ouvre le fichier en binary mode et je lit 4 caractères ASCII (donc 8 chifre hexa que je sépare en 4 groupes) .
par la commande suivante je convertis ce caractère Ascii pour afficher la valeur Hexa:
Text1.Text = Hex(Asc(trame(1))) 'où Tram(1) est la première case d'un tableau de 4 cases
ça marche impécable
Mais quel est donc le problème dans ce cas????
He bien quand la valeur hexa à lire est (22)h donc le caractère ascii
( " ), VB me donne une valeur qui n'a rien à voir .
j'ai d'abord cru que le programme allait lire au mauvais endroit mais
si à l'aide d'un editeur hexa je met (23)h à la place de (22)h ça passe
j'obtient bien 23 et si je met 21 pareil, ça marche.
Alors voila si quelqun peut me venir en aide pour me dire quoi faire
hormis appeler un exorciste ou d'atomiser mon pc car encore une fois je
parie que je suis bien le seul au monde à ne pas être au courant de la
petite subtilité que vous aller m'expliquer .
Merci
J'ai sérieusement besoin d'aide au risque de finir par atomiser mon pc
qui pourtant doit être innoscent mais vous saver ce que c'est quand y a
des erreurs c'est jamais de la faute du coupable
Enfin bref venons en au fait
Je dois lire un fichier Hexa en particulier l'entête.
Dans cet entête se trouve une info placé après un certain offset.
Elle est écrite en hexa mais codée en décimal, je m'explique si la
valeur hexa lue est (10)h la donné en décimal à affiché est bien 10 et
non 16 jusque là C assez clair je pense.
donc j'ouvre le fichier en binary mode et je lit 4 caractères ASCII (donc 8 chifre hexa que je sépare en 4 groupes) .
par la commande suivante je convertis ce caractère Ascii pour afficher la valeur Hexa:
Text1.Text = Hex(Asc(trame(1))) 'où Tram(1) est la première case d'un tableau de 4 cases
ça marche impécable
Mais quel est donc le problème dans ce cas????
He bien quand la valeur hexa à lire est (22)h donc le caractère ascii
( " ), VB me donne une valeur qui n'a rien à voir .
j'ai d'abord cru que le programme allait lire au mauvais endroit mais
si à l'aide d'un editeur hexa je met (23)h à la place de (22)h ça passe
j'obtient bien 23 et si je met 21 pareil, ça marche.
Alors voila si quelqun peut me venir en aide pour me dire quoi faire
hormis appeler un exorciste ou d'atomiser mon pc car encore une fois je
parie que je suis bien le seul au monde à ne pas être au courant de la
petite subtilité que vous aller m'expliquer .
Merci
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
20
2 avril 2005 à 19:45
2 avril 2005 à 19:45
Salut, ton prob m'a étonné alors j'ai testé ça et ça fonctionne bien chez moi :
'un fichier avec le caractère ( " ) dedans
Dim s As String
Open "c:\temp\toto.txt" For Binary Access Read As #1
s = Input(1, #1)
Close #1
Text1.Text = Hex(Asc(s))
Peut être que ça dépend de la manière dont tu lis le fichier ? Ou du type de ton tableau tram() ?
Loup Gris
'un fichier avec le caractère ( " ) dedans
Dim s As String
Open "c:\temp\toto.txt" For Binary Access Read As #1
s = Input(1, #1)
Close #1
Text1.Text = Hex(Asc(s))
Peut être que ça dépend de la manière dont tu lis le fichier ? Ou du type de ton tableau tram() ?
Loup Gris
Fabk01
Messages postés
10
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
2 avril 2005
2 avril 2005 à 20:27
2 avril 2005 à 20:27
Voila la partie du code concerné
Dim trame(4) As String * 1
Open File1.Path & "" & File1.FileName For Binary Access Read As #intFNum
For offset = 19 To 23
Seek #intFNum, offset
Input #intFNum, trame(j)
j = j + 1
Next offset
Close intFNum
Text1.Text = Hex(Asc(trame(1)))
j'ai beau refaire et refaire les test Trame(1) ne contiend pas (")
Dim trame(4) As String * 1
Open File1.Path & "" & File1.FileName For Binary Access Read As #intFNum
For offset = 19 To 23
Seek #intFNum, offset
Input #intFNum, trame(j)
j = j + 1
Next offset
Close intFNum
Text1.Text = Hex(Asc(trame(1)))
j'ai beau refaire et refaire les test Trame(1) ne contiend pas (")
cs_Safireo
Messages postés
55
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
24 février 2011
3 avril 2005 à 00:57
3 avril 2005 à 00:57
'un de mes prog necessite d'aller voir ce qui se passe dans le fichier. j'utilise ce code :
Function LIRE(
ByVal FICHIER
As
String,
ByVal OCTET
As
Integer,
ByVal NOMBRE
As
Integer)
As
String
'fichier est le chemin d'accès du fichier
Dim CHAINE
As
New
String("", NOMBRE) 'nombre est la taille de la chaine
FileOpen(2, FICHIER, OpenMode.Binary)
FileGet(2, CHAINE, OCTET) 'octet est l'offset du 1er octet lu
FileClose(2)
Return (CHAINE)
End
Function
'avant de faire ta conversion, teste un truc du genre text1.text=chaine afin de voir ce que ça a récupéré...
'++
'safireo
Function LIRE(
ByVal FICHIER
As
String,
ByVal OCTET
As
Integer,
ByVal NOMBRE
As
Integer)
As
String
'fichier est le chemin d'accès du fichier
Dim CHAINE
As
New
String("", NOMBRE) 'nombre est la taille de la chaine
FileOpen(2, FICHIER, OpenMode.Binary)
FileGet(2, CHAINE, OCTET) 'octet est l'offset du 1er octet lu
FileClose(2)
Return (CHAINE)
End
Function
'avant de faire ta conversion, teste un truc du genre text1.text=chaine afin de voir ce que ça a récupéré...
'++
'safireo
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_Safireo
Messages postés
55
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
24 février 2011
3 avril 2005 à 00:59
3 avril 2005 à 00:59
g oublié de préciser, c du .net
je sais pas si ça change qqch, g oublié le vb6
je sais pas si ça change qqch, g oublié le vb6
mjpmjp
Messages postés
115
Date d'inscription
dimanche 6 avril 2003
Statut
Membre
Dernière intervention
29 juin 2012
3 avril 2005 à 15:14
3 avril 2005 à 15:14
salut c JP
une question : ton code 22 correspond à ( " ), as tu testé avec le code de ( ' ) juste pour savoir si çà interfere dans le code ?
Bidouille ... Débrouille ... Euuh !?... m' Embrouille .!!! @+ JP
une question : ton code 22 correspond à ( " ), as tu testé avec le code de ( ' ) juste pour savoir si çà interfere dans le code ?
Bidouille ... Débrouille ... Euuh !?... m' Embrouille .!!! @+ JP
Fabk01
Messages postés
10
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
2 avril 2005
3 avril 2005 à 15:41
3 avril 2005 à 15:41
pas besoin d'esseiler pour te dire oui puisque dans la fonction input un" était un caractère ' singifie lors de la lecture un saut de colonne mais bon mon probmème est résolu grâce au lougaroup