Hexwaarde van file naar file

[Jan Van Haaren]

Hoi,

Ik heb twee bestanden. Nu zou ik graag via een command button de hexwaardes vanaf offset 720 van bestand a inlezen en die in bestand b plakken vanaf offset 640, is dit mogelijk? Met de code die ik nu gebruik kan ik maar 4 bits inlezen.

Private Sub cmdRead_Click()
Dim read As Integer

Open "bestand.ext" For Binary As #1
Get #1, 720, read
Close #1

txtData.Text = Hex(read)
End Sub

Groeten, Jan

 

[captain]

Jan,

4 bits maar ook een byte of welk bestandstype dan ook zou te weinig zijn omdat het aantal waarden dat je wilt kopiëren vooraf onbekend is. daarom kun je dit alleen doen met een lus die steeds test of de bestandsgrootte wordt overschreden. je gooit dan byte voor byte over naar het andere bestand waarbij je voor de offsets een variabele gebruikt die elke keer met 1 oploopt. gebruik deze structuur:

zolang niet eof()
lezen 1 byte van offset file 1 uit file 1
schrijven van deze byte op offset file 2 uit file 2
hoog beide offset-pointers op met 1
enz.

gebruik gewoon de file handling die je al had, maar gebruik wel 'Dim read as byte' i.p.v. 'Dim read as integer'!

speel er eens mee want daar leer je het meest van. kom je er echt niet uit zet je het hier maar neer!