Mega Code Archive
Save Structure to a binary file
<![CDATA[
Imports System.IO
Structure Product
Dim ProdID As String
Dim ProdDescription As String
Dim ListPrice As Single
Dim Available As Boolean
Dim MinStock As Integer
End Structure
public class Test
public Shared Sub Main
Dim objBW As BinaryWriter
Dim objFS As FileStream
Dim objProduct As Product
objFS = New FileStream("Records.bin", FileMode.OpenOrCreate, FileAccess.Write)
objBW = New BinaryWriter(objFS)
objBW.BaseStream.Seek(0, SeekOrigin.Begin)
objProduct = New Product
With objProduct
.ProdID = "1"
.ProdDescription = "AAA"
.ListPrice = 4.99
.Available = True
.MinStock = 40
End With
SaveRecord(objBW, objProduct)
objProduct = New Product
With objProduct
.ProdID = "2"
.ProdDescription = "BBB"
.ListPrice = 0.99
.Available = True
.MinStock = 1000
End With
SaveRecord(objBW, objProduct)
objBW.Close()
objFS.Close()
End Sub
Private Shared Sub SaveRecord(ByVal objWriter As BinaryWriter, ByVal objRecord As Product)
With objWriter
.Write(objRecord.ProdID)
.Write(objRecord.ProdDescription)
.Write(objRecord.ListPrice)
.Write(objRecord.Available)
.Write(objRecord.MinStock)
End With
End Sub
End class
]]>