Acmlm's Board - I2 Archive - Programming - Byte Arrays... [VB]
User | Post |
Sokarhacd
Posts: 158/1757 |
now your just replying to a thread that was a reply to a bump so now it will keep going on forever.
this was probably the most pointless post ever lol |
Gavin
Posts: 53/799 |
Originally posted by Chaosflare woah, your not supposed to bump old threads, this one was a month old, but and coby probably already solved this problem from HH's post.
at least it wasn't a worthless reply to a post that bumped a thread. it actually offered infor-fucking-mation.
and at least it wasn't the reply of a reply to a bump... |
Sokarhacd
Posts: 156/1757 |
woah, your not supposed to bump old threads, this one was a month old, but and coby probably already solved this problem from HH's post. |
macai
Posts: 3/4 |
Another method you could use is to open the entire file into memory and then scan through it until you reaxch the FF FF point that you desire to stop at, and then ReDim Preserve the byte array into what it should be. For example..
Public Function FileUntil |
HyperLamer
Posts: 354/8210 |
A loop of course.
Dim Byte1 as Byte, Byte2 as Byte, ArrayCount as Long
ArrayCount = LBound(Bytes) 'Get the first # in the array Do 'Variable names are assumed here, and I imagine you already opened the file Get #nFileNum, Offset, Byte1 Get #nFileNum, Offset, Byte2 Bytes(ArrayCount) = Byte1 Bytes(ArrayCount + 1) = Byte2 ArrayCount = ArrayCount + 2 If ArrayCount > UBound(Bytes) Then 'If the counter's gone past the last entry MsgBox "Too many bytes!" Exit Do End If DoEvents 'Windoze will think your program's crashed if it doesn't do this after a while (it's done automatically when not in a loop) Loop Until (Byte1 = 255) And (Byte2 = 255) 'The brackets aren't necessary but it's best to make sure things stay in the right place, on the off chance it might think "Byte1 = (255 AND Byte2) = 255" which is, surprisingly a valid statement (If 255 AND Byte2 = 255, Byte1 = 1, Else Byte1 = 0)
This of course will copy the FF FF into the array too, if you don't want that, add "If (Byte1 = 255) And (Byte2 = 255) Then Exit Do" above the line "Bytes(ArrayCount) = Byte1". |
Darth Coby
Posts: 473/1371 |
Say I'd want to load from a certain offset until I reach a certain byte (FF FF in this case, I know they're two bytes though. ) How would I make it load every byte into the byte array until it reaches FF FF? |
|