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()
' Write to the stream
Dim writer As StreamWriter = New StreamWriter(mstream)
writer.WriteLine(s)
writer.WriteLine(n)
writer.Flush() ' Flush the buffer
' Reset the stream to the beginning
mstream.Seek(0, SeekOrigin.Begin)
' Read from the stream
Dim reader As StreamReader = New StreamReader(mstream)
Dim s2 As String = reader.ReadLine()
Dim n2 As String = Integer.Parse(reader.ReadLine())
' Do something with the data
Console.WriteLine(s2 + " " + n2)
End Sub
End Class
|
