VB.Net by API/System.IO/MemortStream
Содержание
MemortStream.Seek
<source lang="vbnet"> Imports System.IO public class Test
public Shared Sub Main Dim memory_stream As New MemoryStream() Dim stream_writer As New StreamWriter(memory_stream) stream_writer.Write("aaa.") stream_writer.Flush() Dim stream_reader As New StreamReader(memory_stream) memory_stream.Seek(0, SeekOrigin.Begin) Console.WriteLine(stream_reader.ReadToEnd()) stream_reader.Close() End Sub
End class
</source>
MemortStream.ToArray()
<source lang="vbnet">
Imports System.IO Imports System.Text Imports System.Threading
Public Class Tester
Public Shared Sub Main Dim bteRead() As Byte Dim bteArray(256) As Byte Dim myMemortStream As MemoryStream Dim myFileStream As FileStream Try myFileStream = New FileStream("test.vb", FileMode.Open, FileAccess.Read) ReDim bteRead(myFileStream.Length) myFileStream.Read(bteRead, 0, myFileStream.Length) myMemortStream = New MemoryStream(256) myMemortStream.Write(bteRead, 128, 256) bteArray = myMemortStream.ToArray() Console.WriteLine(Encoding.ASCII.GetString(bteArray)) myMemortStream.Close() myFileStream.Close() Catch ex As Exception Console.WriteLine(ex.Message) End Try End Sub
End Class
</source>
MemortStream.Write
<source lang="vbnet">
Imports System.IO Imports System.Text Imports System.Threading
Public Class Tester
Public Shared Sub Main Dim bteRead() As Byte Dim bteArray(256) As Byte Dim myMemortStream As MemoryStream Dim myFileStream As FileStream Try myFileStream = New FileStream("test.vb", FileMode.Open, FileAccess.Read) ReDim bteRead(myFileStream.Length) myFileStream.Read(bteRead, 0, myFileStream.Length) myMemortStream = New MemoryStream(256) myMemortStream.Write(bteRead, 128, 256) bteArray = myMemortStream.ToArray() Console.WriteLine(Encoding.ASCII.GetString(bteArray)) myMemortStream.Close() myFileStream.Close() Catch ex As Exception Console.WriteLine(ex.Message) End Try End Sub
End Class
</source>
MemoryStream.Read
<source lang="vbnet"> 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 bytes1() As Byte = UnicodeEncoding.Unicode.GetBytes(s) Dim bytes2() As Byte = BitConverter.GetBytes(n) mstream.Write(bytes1, 0, bytes1.Length) mstream.Write(bytes2, 0, bytes2.Length) " Reset the stream to the beginning mstream.Seek(0, SeekOrigin.Begin) " Read from the stream Dim bytes3(mstream.Length - 4) As Byte Dim bytes4(4) As Byte mstream.Read(bytes3, 0, bytes3.Length) mstream.Read(bytes4, 0, bytes4.Length) " Do something with the data Console.WriteLine(UnicodeEncoding.Unicode.GetString(bytes3) + " " + BitConverter.ToInt32(bytes4, 0)) End Sub
End Class
</source>
New MemoryStream
<source lang="vbnet">
Imports System.IO Imports System.Text Imports System.Threading
Public Class Tester
Public Shared Sub Main Dim bteRead() As Byte Dim bteArray(256) As Byte Dim myMemortStream As MemoryStream Dim myFileStream As FileStream Try myFileStream = New FileStream("test.vb", FileMode.Open, FileAccess.Read) ReDim bteRead(myFileStream.Length) myFileStream.Read(bteRead, 0, myFileStream.Length) myMemortStream = New MemoryStream(256) myMemortStream.Write(bteRead, 128, 256) bteArray = myMemortStream.ToArray() Console.WriteLine(Encoding.ASCII.GetString(bteArray)) myMemortStream.Close() myFileStream.Close() Catch ex As Exception Console.WriteLine(ex.Message) End Try End Sub
End Class
</source>