lecture de caractères spéciauxRésolu

Question

Bonjour &#224; tous 




J'ai s&#233;rieusement besoin d'aide au risque de finir par atomiser mon pc
qui pourtant doit &#234;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&#234;te.



Dans cet ent&#234;te se trouve une info plac&#233; apr&#232;s un certain offset.



Elle est &#233;crite en hexa mais cod&#233;e en d&#233;cimal, je m'explique si la
valeur hexa lue est (10)h la donn&#233; en d&#233;cimal &#224; affich&#233; est bien 10 et
non 16 jusque l&#224; C assez clair je pense.



donc j'ouvre le fichier en binary mode et je lit 4 caract&#232;res ASCII (donc 8 chifre hexa que je s&#233;pare en 4 groupes) .



par la commande suivante je convertis ce caract&#232;re Ascii pour afficher la valeur Hexa:




Open File1.Path & "" & File1.FileName For Binary As #intFNum


For offset = 1921 To 1924


Seek #intFNum, offset


Input #intFNum, trame(j)


j = j + 1


Next offset


Close intFNum



Text1.Text = Hex(Asc(trame(1)))    'o&#249; Tram(1) est la premi&#232;re case d'un tableau de 4 cases





&#231;a marche imp&#233;cable



Mais quel est donc le probl&#232;me dans ce cas????



He bien quand la valeur hexa &#224; lire est (22)h donc le caract&#232;re ascii
(  "  ),  VB me donne une valeur qui n'a rien &#224; voir .

j'ai d'abord cru que le programme allait lire au mauvais endroit mais
si &#224; l'aide d'un editeur hexa je met (23)h &#224; la place de (22)h &#231;a passe
j'obtient bien 23 et si je met 21 pareil, &#231;a marche. J'ai alors penser
que la convertion pouvais avoir un probl&#232;mes avec ce caract&#232;re mais il
n'en est rien, si je fais



trame(3) = """

Text3.Text = Hex(Asc(trame(3)))



Le r&#233;sultat obtenu est bien 22



J'en d&#233;duit que le probl&#232;mes est dans la lecture



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 &#224; ne pas &#234;tre au courant de la
petite subtilit&#233; que vous aller m'expliquer  .



Merci

cs_CanisLupus · Accepted Answer

Je t'ai r&#233;pondu lors de ton pr&#233;c&#233;dent post. Mais bon, visiblement &#231;a ne doit pas te convenir, dans ce cas, montre ton code de lecture du fichier.

Loup Gris

Gobillot · Answer

un fichier ouvert en binaire &#231;a se lit avec Get

Daniel

cs_casy · Answer

Et donne nous aussi la d&#233;claration de tes variables, &#231;a peut etre utile.




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Fabk01 · Answer

Tu pourrais me donner la synthaxe pour Get stp? pcq avec unput &#231;a marche tr&#232;s bien sauf ce caract&#232;re

Fabk01 · Answer

la suite est donn&#233; dans la partie j'ai besoin d'aide, (j'ai post&#233; deux
fois le m&#234;me truc car je l'avais mit dans j'ai besoin d'aide et puis
j'ai penser que de TEXTE &#231;a irrait plus vite pour obteir une r&#233;ponce
enfin bref)

cs_CanisLupus · Answer

Daniel > pas seulement, les 2 fa&#231;ons suivantes donnent le m&#234;me r&#233;sultat et perso, j'utilise Get plutot en mode Random :

Dim s As String * 1
Open "c:	emp	oto.txt" For Binary Access Read As #1 Len = Len(s)
Get #1, , s
Close #1
Text1.Text = Hex(Asc(s))



Dim s As String
Open "c:	emp	oto.txt" For Binary Access Read As #1
s = Input(1, #1)
Close #1
Text1.Text = Hex(Asc(s))

C'est au choix, j'aimerais seulement savoir comment Fabk01 lit son fichier, &#231;a m'intrigue car je n'ai pas r&#233;ussi &#224; reproduire l'erreur.

Loup Gris

Gobillot · Answer

la virgule, les guillemets sont des caract&#232;res de s&#233;paration r&#233;serv&#233; pour Input.

For offset = 1921 To 1924
      Get #intFNum, offset,trame(j)
       j = j + 1
Next offset

Daniel

cs_casy · Answer

Daniel> la virgule, les guillemets sont des caract&#232;res de s&#233;paration r&#233;serv&#233; pour Input.

Plus d'explication stp, le msdn dit justement que :



Contrairement &#224; l'instruction Input #, la fonction Input renvoie 
tous les caract&#232;res lus, y compris les virgules, les retours chariot, les sauts 
de ligne, les points d'interrogation et les espaces &#224; gauche



<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Gobillot · Answer

oui mais il a mis input #, c'est pour &#231;a ...

sinon si trame est un tableau de bytes de 4 un seul get suffit:
Dim trame(3) As Byte
Get #intFNum, 1921,trame(0)

Daniel

Fabk01 · Answer

Voila la partie du code concern&#233;





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 (")

Fabk01 · Answer

je pr&#233;cise que je suis pas du tout informaticien mais electronicien
donc il serait cool de me mettre mon code et eventuellement me mettre
ce qui va pas en couleur (rouge) et ce que je devrais mettre &#224; la place
en vert ou un truc du genre

Merci beaucoup en tous cas de m'accorder du temps

cs_CanisLupus · Answer

Donc, &#231;a devrait marcher avec &#231;a :

Dim trame(4) As String * 1
Dim j As Integer
Dim offset As Long
Open File1.Path & "" & File1.FileName For Binary Access Read As #intFNum Len = 1
For offset = 19 To 23
Get #intFNum, offset, trame(j)
j = j + 1
Next offset
Close #intFNum
MsgBox trame(0)

Loup Gris

cs_casy · Answer

Daniel >oui mais il a mis input #, c'est pour &#231;a ...



Oupss pas vu effectivement.



Fabk01 > essaye plutot &#231;a :



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)
trame(j) = input(1,#intFNum)

j = j + 1

Next offset

Close intFNum



Pas test&#233;, pas garantie, mais ce que t'as dit Loup Gris tout &#224; l'heure.



<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

cs_casy · Answer

Diable, collision de r&#233;ponses




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Gobillot · Answer

plus simple:

Dim trame As String 

trame = space$(4)
Open File1.Path & "" & File1.FileName For Binary Access Read As #intFNum
Get #intFNum, 19, trame
Close intFNum

Daniel

cs_CanisLupus · Answer

Pr&#233;cision, si tu d&#233;clares un tableau en trame(4) ... les index seront de 0 &#224; 3.

Loup Gris

Fabk01 · Answer

Merci Loups et Gobi  vous m'&#244;tez une grosse echarde de la patte

Gobillot · Answer

m&#234;me avec un tableau pas besoin de boucle:

Dim trame(3) As String *1

Open File1.Path & "" & File1.FileName For Binary Access Read As #intFNum
Get #intFNum, 19, trame
Close intFNum

msgbox asc(trame(3))

Daniel

AZEazeazgfafaazea · Answer

Ou&#233;


Hrusdik 
I do what I want , where I want , when I want<

Lecture de caractères spéciaux

19 réponses

Discussions similaires