[VB6] Leggere e Manipolare file Binari

[leadergl]

Ragazzi ho un problema,
quello che devo fare è prendere un file e dividerlo in più parti secondo un criterio ben preciso...

il problema viene dal fatto che il file va letto in binario altrimenti ci sono degli errori nella lettura di alcuni caratteri!

Il file è così strutturato:

Header
S0...
S3...
...
S3...
S7...
S0...
S3...
...
S3...
S7

Questo in linea generale, il mio problema è che devo generare nuovi file a seconda gli S0 in pratica, facendo riferimento all'esempio, devo generare:
1) un file con l'Header
2) un file che va dal primo S0 al primo S7 inclusi
3) un secondo file che va dal secondo S0 al secondo S7 incluso

ecco il problema sta nell'applicare questo criterio quando leggo un file come binario....

chi mi aiuta?

[leadergl]

Ok,
ci sono arrivato facendo così (probabilmente ci sono strade migliori e più veloci...ma al momento non ho altre idee):

Indice = 0
If cdlBrowse.FileName <> "" Then
Open cdlBrowse.FileName For Binary Access Read As #1
Open (sDestinazione & "\Header.hmg") For Binary Access Write As #2
While Not EOF(1)
DoEvents
Get #1, , bTemp
If bTemp = "83" Then
bAppoggio = bTemp
Get #1, , bTemp
If bTemp = "48" Then
Close #2
Indice = Indice + 1
Open (sDestinazione & "\Codegroup " & Indice & ".shx") For Binary As #2
End If
Put #2, , bAppoggio
Put #2, , bTemp
Else
Put #2, , bTemp
End If
Wend
Close #2
Close #1
MsgBox Indice & " Codegroups created!", vbOKOnly, "Write Succesfull"
End If


Il problema però è che quando mi chiude i files mi aggiunge dei caratteri...in pratica va a capo...come faccio per evitare questo? (credo che io debba usare un comando diverso dal "Put"...ma quale?

[leadergl]

dai raga...mi serve un piccolo aiuto...ci sono quasi...devo solo capire xkè quando termina un file ci aggiunge una riga...

come faccio ad impedire questo?

[leadergl]

x favore...nessuno sa come aiutarmi?

come faccio ad impedire a VB di aggiungere un rigo nella chiusura di un file?