This program writes the binary number 0 - 255 to a file. Then closes the
file and reads the file into the worksheet. I needed to write binary data so
I could test the read function. Data is stored in worksheet as two byte
character string. I had to format the wrok sheet as text before program
worked correctly. I can change the format if necessary to any format you
would like.
I didn't use the HEX function because it doesn't display the data as two
bytes. Number 0 to F with the hex function is only display as a single
character.
Sub BinaryStream()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Filename = "c:\temp\binary.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile Filename 'Create a file
Set f = fs.GetFile(Filename)
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
For Count = 0 To 255
ts.Write Chr(Count)
Next Count
ts.Close
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
ColumnCount = 1
RowCount = 1
Do While ts.atendofstream = False
Hexbyte = Asc(ts.Read(1))
nibble = Int(Hexbyte / 16)
If nibble <= 9 Then
Hexupper = Chr(Asc("0") + nibble)
Else
Hexupper = Chr(Asc("A") + (nibble - 10))
End If
nibble = Hexbyte Mod 16
If nibble <= 9 Then
HEXlower = Chr(Asc("0") + nibble)
Else
HEXlower = Chr(Asc("A") + (nibble - 10))
End If
Cells(RowCount, ColumnCount) = _
Hexupper & HEXlower
ColumnCount = ColumnCount + 1
If ColumnCount > 16 Then
ColumnCount = 1
RowCount = RowCount + 1
End If
Loop
ts.Close
End Sub
