[VB6] Lettura file byte a byte

[ghiboz]

ciao!
leggo un file byte a byte... e naturalmente mi tornan su caratteri strani, esempio leggo il valore 09 hex e vedo il quadratino...
come faccio a leggere direttamente il valore come valore e non come carattere???
tnx

[oregon]

Una questione "ermetica" ...

Cosa intendi dire ?

Quale codice usi ?

[Socket2000]

  Dim xFile As Integer
  Dim myByte As Byte
  
  xFile = FreeFile
  Open TuoFile$ For Binary As xFile
  Do While Not EOF(xFile)
    Get #xFile, , myByte
    ' Qui fai quel che vuoi del tuo byte
  Loop
  Close xFile

[oregon]

Ma, se non ho capito male, il codice lo ha gia' ... probabilmente non sa che puo' usare la funzione Asc per risolvere il suo problema ...

[ghiboz]

tnx!
e per scrivere un array di bytes appunto in un file?? :master:

[oregon]

Se la Get è stata usata per leggere, basta leggere nell'help che c'e' la Put per scrivere ...

[oregon]

.

[Socket2000]

  xFile = FreeFile
  Open TuoFile$ For Binary As xFile
  for x=1 to ubound(mybyte)
    put #xFile, , myByte(x)
  next x
  Close xFile

Attenzione che l'open in binary NON AZZERA il vecchio contenuto del file...