в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:56:19Z

1 версия

Новая страница

==Use MemoryStream to read a file==

<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>

==Use MemoryStream with BinaryWriter and BinaryReader==

<source lang="vbnet">Imports System.IO
public class Test
public Shared Sub Main
Dim memory_stream As New MemoryStream()
Dim binary_writer As New BinaryWriter(memory_stream)
binary_writer.Write("aaa.")
Dim binary_reader As New BinaryReader(memory_stream)
memory_stream.Seek(0, SeekOrigin.Begin)
Console.WriteLine(binary_reader.ReadString())
binary_reader.Close()

End Sub
End class</source>
<pre class=codeResult>aaa.</pre>

==Use MemoryStream with StreamWriter and StreamReader==

<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>
<pre class=codeResult>aaa.</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Stream File/MemoryStream - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия