http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_Tutorial%2FStream_File%2FBinaryReaderVB.Net Tutorial/Stream File/BinaryReader - История изменений2026-04-05T12:46:54ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VB.Net_Tutorial/Stream_File/BinaryReader&diff=3688&oldid=prev в 16:40, 26 мая 20102010-05-26T16:40:30Z<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_Tutorial/Stream_File/BinaryReader&diff=3689&oldid=prevAdmin: 1 версия2010-05-26T12:56:20Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Read by using BinaryReader==<br />
<br />
<br />
<br />
<source lang="vbnet">Imports System.IO<br />
<br />
Public Class Tester<br />
Public Shared Sub Main<br />
Dim fs As System.IO.FileStream<br />
Dim r As System.IO.BinaryReader<br />
Dim buffer(100) As Char<br />
Dim mylength As Long<br />
fs = New System.IO.FileStream("test.txt", IO.FileMode.OpenOrCreate)<br />
r = New System.IO.BinaryReader(fs)<br />
mylength = fs.Length<br />
If mylength > 100 Then<br />
mylength = 100<br />
End If<br />
r.Read(buffer, 0, mylength)<br />
Console.WriteLine(buffer)<br />
r.Close()<br />
fs.Close()<br />
End Sub<br />
End Class</source></div>Admin