Imports System.Data
Imports System.IO
Imports System.IO.IsolatedStorage
Imports System.Text
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters
Imports System.Runtime.Serialization.Formatters.Soap
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Windows.Forms
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim s As String = "111"
Dim n As Integer = 452
Dim mstream As Stream = New MemoryStream()
Dim writer As BinaryWriter = New BinaryWriter(mstream)
writer.Write(s)
writer.Write(n)
writer.Flush() ' Flush the buffer
' Reset the stream to the beginning
mstream.Seek(0, SeekOrigin.Begin)
' Read from the stream
Dim reader As BinaryReader = New BinaryReader(mstream)
Dim s2 As String = reader.ReadString()
Dim n2 As Integer = reader.ReadInt32()
Console.WriteLine(s2 + " " + n2)
End Sub
End Class
|
