Discussion :

[dufoindufoin]

bonjour,
Je ne comprends pas pourquoi quant je lis un fichier .bin qui a des caracteres en ascii, les octets de valeur 0 sont sautés et ne s'affichent pas, de plus la longueur de la chaine de caractéres lue est diminué de la quantitée de 0 trouvées sur la chaine.

Code :

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

1
2
3
4
5
6
 Open MyPath For Input As #1
For i = 1 To 250
  ReDim Preserve T(i)
  Line Input #1, T(i)
Next i
Print i, T(i)

la routine plante lorsque " Line Input #1, T(i) " rencontre un octet de valeur 00.

Ci-dessous le fichier .bin convertie en hexa pour vous le faire voir.
A la 3 eme valeur on voit deja le valeur 00 qui pause probleme

C0A80019C0A8000101430A31205959C0A800080524C02BF41248B54E59
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFF75736572204E4F43414C4C2D3120706173732031
3233343520766572732050494333436F6D0A00FFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFF4E4F43414C4C2D313E41505253443A
21353030302E30304E2F30313433302E3030455F00FFFFFFFF5850494377
782B50494333436F6D0D0A00FFFFFFFFFFFFFF

Merci a tous.

[Delbeke]

Ben un binaire se lit avec une ouverture de fichier binaire .

Exemple:

Code :

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

1
2
3
4
5
6
7
8
 
Dim strTemp as string
Dim hFich as integer
 hFich=FreeeFile
 Open MyPath For Binary As #hFich
   strTemp=String(Lof(hFich))
   get #hFich,,strTemp
 Close #hFich

La fonction Line Input lit le fichier jusqu'au prochain CRLF, le CRLF n'est lu
S'il n'a pas de CRLF, Line Input se plante. Line Input est également censée lire une ligne de texte, donc, si il y a des carcatères < à blanc(32 decimal) , ca plante aussi