Register | Login
Views: 19364387
Main | Memberlist | Active users | ACS | Commons | Calendar | Online users
Ranks | FAQ | Color Chart | Photo album | IRC Chat
11-02-05 12:59 PM
0 user currently in Programming. | 3 guests
Acmlm's Board - I2 Archive - Programming - Byte Arrays... [VB]
  
User name:
Password:
Reply:
 

UserPost
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?
Acmlm's Board - I2 Archive - Programming - Byte Arrays... [VB]


ABII


AcmlmBoard vl.ol (11-01-05)
© 2000-2005 Acmlm, Emuz, et al



Page rendered in 0.010 seconds.