PUTing an Integer into a Binary File (VBA)

Topic

New Reply

I need to put a 2 byte integer into a binary file. For the sake of discussion, let’s say the integer is 27. When I use the PUT statement to write it to the binary file, it goes in as 1B 00 hex. I need it to go in as 00 1B. Is there an easy way in VB(A) to invert the MSB and the LSB without additional DLLs? Do I need to get each byte by itself and write it bytewise into the file (seems like the hard way)?

Can anyone recommend a web site that talks about bit-fiddling in VB?

Thanks for the help.

Reply | Quote

Replies

This seems to work:

Dim strResult As String
'convert integer to hex and pad leading spaces with zeros
strResult = Replace(Format(Hex(yourIntegerVar), "@@@@"), " ", "0")
...
Put #1, , CByte("&H" & Mid(strResult, 1, 2))
Put #1, , CByte("&H" & Mid(strResult, 3, 2))

But maybe there is another way that isn’t so manual.

Reply | Quote

Integers are actually stored that way on PCs. They will retrieve correctly using a GET.

I assume you are transferring the file to a non-PC computer and that’s why you want them to be changed.

This will do it.

Dim myInteger as Integer
Dim myByte as Byte

myByte=myInteger / 256
Put #?, , myByte
myByte = myInteger And 255
Put #?, , myByte

Hope this helps.

Kevin Bell

Reply | Quote