http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FFile_Directory%2FMemory_Stream
VB.Net/File Directory/Memory Stream - История изменений
2026-04-05T07:09:59Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net/File_Directory/Memory_Stream&diff=850&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:06Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net/File_Directory/Memory_Stream&diff=851&oldid=prev
Admin: 1 версия
2010-05-26T12:45:22Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==MemoryStream Demo==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System.Data<br />
Imports System.IO<br />
Imports System.IO.IsolatedStorage<br />
Imports System.Text<br />
Imports System.Runtime.Serialization<br />
Imports System.Runtime.Serialization.Formatters<br />
Imports System.Runtime.Serialization.Formatters.Soap<br />
Imports System.Runtime.Serialization.Formatters.Binary<br />
Imports System.Windows.Forms<br />
Public Class MainClass<br />
<br />
Shared Sub Main(ByVal args As String())<br />
Dim s As String = "111"<br />
Dim n As Integer = 452<br />
Dim mstream As Stream = New MemoryStream()<br />
" Write to the stream<br />
Dim bytes1() As Byte = UnicodeEncoding.Unicode.GetBytes(s)<br />
Dim bytes2() As Byte = BitConverter.GetBytes(n)<br />
mstream.Write(bytes1, 0, bytes1.Length)<br />
mstream.Write(bytes2, 0, bytes2.Length)<br />
" Reset the stream to the beginning<br />
mstream.Seek(0, SeekOrigin.Begin)<br />
" Read from the stream<br />
Dim bytes3(mstream.Length - 4) As Byte<br />
Dim bytes4(4) As Byte<br />
mstream.Read(bytes3, 0, bytes3.Length)<br />
mstream.Read(bytes4, 0, bytes4.Length)<br />
" Do something with the data<br />
Console.WriteLine(UnicodeEncoding.Unicode.GetString(bytes3) + " " + BitConverter.ToInt32(bytes4, 0))<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Memory Stream Writer and Reader==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.IO<br />
Imports System.Text<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Dim memory_stream As New MemoryStream()<br />
Dim binary_writer As New BinaryWriter(memory_stream)<br />
binary_writer.Write("www.vbex.ru")<br />
Dim binary_reader As New BinaryReader(memory_stream)<br />
memory_stream.Seek(0, SeekOrigin.Begin)<br />
Console.WriteLine(binary_reader.ReadString())<br />
binary_reader.Close()<br />
End Sub <br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Stream Reader and Writer for a MemoryStream==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.IO<br />
Imports System.Text<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Dim memory_stream As New MemoryStream()<br />
Dim stream_writer As New StreamWriter(memory_stream)<br />
stream_writer.Write("www.vbex.ru")<br />
stream_writer.Flush()<br />
Dim stream_reader As New StreamReader(memory_stream)<br />
memory_stream.Seek(0, SeekOrigin.Begin)<br />
Console.WriteLine(stream_reader.ReadToEnd())<br />
stream_reader.Close()<br />
End Sub <br />
End Class<br />
<br />
</source></div>
Admin