http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem.IO%2FBinaryWriter
VB.Net by API/System.IO/BinaryWriter - История изменений
2026-04-06T11:36:44Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net_by_API/System.IO/BinaryWriter&diff=2181&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:16Z
<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_by_API/System.IO/BinaryWriter&diff=2182&oldid=prev
Admin: 1 версия
2010-05-26T12:50:09Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==BinaryWriter.Seek==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.IO<br />
<br />
Public Class Tester<br />
Public Shared Sub Main<br />
Dim fs As System.IO.FileStream<br />
Dim w As System.IO.BinaryWriter<br />
Dim buffer As String<br />
Dim c As Char<br />
c = Chr(9)<br />
fs = New System.IO.FileStream("test.txt", IO.FileMode.OpenOrCreate)<br />
w = New System.IO.BinaryWriter(fs)<br />
w.Seek(0, System.IO.SeekOrigin.Begin)<br />
w.Write("writing data via BinaryWriter")<br />
w.Close()<br />
fs.Close()<br />
End Sub<br />
End Class<br />
<br />
<br />
<br />
</source><br />
<br />
<br />
==BinaryWriter.Write(Double d)==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
<br />
Imports System.IO<br />
Module Module1<br />
Sub Main()<br />
Dim Stream As FileStream<br />
Try<br />
Stream = New FileStream("test.dat", FileMode.Create)<br />
Catch E As Exception<br />
Console.WriteLine("Error creating test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
Dim BinaryStream As New BinaryWriter(Stream)<br />
Dim Age As Integer = 21<br />
Dim Salary As Double = 100000.0<br />
Dim Name As String = "Joe"<br />
Try<br />
BinaryStream.Write(Age)<br />
BinaryStream.Write(Salary)<br />
BinaryStream.Write(Name)<br />
BinaryStream.Close()<br />
Console.WriteLine("Data written to test.Dat")<br />
Catch E As Exception<br />
Console.WriteLine("Error writing to test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
<br />
"Read <br />
<br />
Try<br />
Stream = New FileStream("test.dat", FileMode.Open)<br />
Catch E As Exception<br />
Console.WriteLine("Error opening test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
Dim BinaryStreamReader As New BinaryReader(Stream)<br />
Try<br />
Age = BinaryStreamReader.ReadInt32()<br />
Salary = BinaryStreamReader.ReadDouble()<br />
Name = BinaryStreamReader.ReadString()<br />
BinaryStreamReader.Close()<br />
Console.WriteLine("Age: {0}", Age)<br />
Console.WriteLine("Salary: {0}", Salary)<br />
Console.WriteLine("Name: {0}", Name)<br />
Catch E As Exception<br />
Console.WriteLine("Error reading to test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
End Sub<br />
End Module<br />
<br />
<br />
<br />
</source><br />
<br />
<br />
==BinaryWriter.Write(Integer i)==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
<br />
Imports System.IO<br />
Module Module1<br />
Sub Main()<br />
Dim Stream As FileStream<br />
Try<br />
Stream = New FileStream("test.dat", FileMode.Create)<br />
Catch E As Exception<br />
Console.WriteLine("Error creating test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
Dim BinaryStream As New BinaryWriter(Stream)<br />
Dim Age As Integer = 21<br />
Dim Salary As Double = 100000.0<br />
Dim Name As String = "Joe"<br />
Try<br />
BinaryStream.Write(Age)<br />
BinaryStream.Write(Salary)<br />
BinaryStream.Write(Name)<br />
BinaryStream.Close()<br />
Console.WriteLine("Data written to test.Dat")<br />
Catch E As Exception<br />
Console.WriteLine("Error writing to test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
<br />
"Read <br />
<br />
Try<br />
Stream = New FileStream("test.dat", FileMode.Open)<br />
Catch E As Exception<br />
Console.WriteLine("Error opening test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
Dim BinaryStreamReader As New BinaryReader(Stream)<br />
Try<br />
Age = BinaryStreamReader.ReadInt32()<br />
Salary = BinaryStreamReader.ReadDouble()<br />
Name = BinaryStreamReader.ReadString()<br />
BinaryStreamReader.Close()<br />
Console.WriteLine("Age: {0}", Age)<br />
Console.WriteLine("Salary: {0}", Salary)<br />
Console.WriteLine("Name: {0}", Name)<br />
Catch E As Exception<br />
Console.WriteLine("Error reading to test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
End Sub<br />
End Module<br />
<br />
<br />
<br />
</source><br />
<br />
<br />
==BinaryWriter.Write(String s)==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
<br />
Imports System.IO<br />
Module Module1<br />
Sub Main()<br />
Dim Stream As FileStream<br />
Try<br />
Stream = New FileStream("test.dat", FileMode.Create)<br />
Catch E As Exception<br />
Console.WriteLine("Error creating test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
Dim BinaryStream As New BinaryWriter(Stream)<br />
Dim Age As Integer = 21<br />
Dim Salary As Double = 100000.0<br />
Dim Name As String = "Joe"<br />
Try<br />
BinaryStream.Write(Age)<br />
BinaryStream.Write(Salary)<br />
BinaryStream.Write(Name)<br />
BinaryStream.Close()<br />
Console.WriteLine("Data written to test.Dat")<br />
Catch E As Exception<br />
Console.WriteLine("Error writing to test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
<br />
"Read <br />
<br />
Try<br />
Stream = New FileStream("test.dat", FileMode.Open)<br />
Catch E As Exception<br />
Console.WriteLine("Error opening test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
Dim BinaryStreamReader As New BinaryReader(Stream)<br />
Try<br />
Age = BinaryStreamReader.ReadInt32()<br />
Salary = BinaryStreamReader.ReadDouble()<br />
Name = BinaryStreamReader.ReadString()<br />
BinaryStreamReader.Close()<br />
Console.WriteLine("Age: {0}", Age)<br />
Console.WriteLine("Salary: {0}", Salary)<br />
Console.WriteLine("Name: {0}", Name)<br />
Catch E As Exception<br />
Console.WriteLine("Error reading to test.Dat")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
End Sub<br />
End Module<br />
<br />
<br />
<br />
</source><br />
<br />
<br />
==New BinaryWriter(FileStream aFileStream)==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.IO<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Dim aFileStream As FileStream<br />
Try<br />
aFileStream = New FileStream("test.txt", FileMode.OpenOrCreate,FileAccess.Write)<br />
Dim myBinaryWriter As New BinaryWriter(aFileStream)<br />
myBinaryWriter.Write("Hello world")<br />
myBinaryWriter.Write(1)<br />
Catch e As Exception<br />
Console.WriteLine(e.StackTrace)<br />
Finally<br />
If Not (aFileStream Is Nothing) Then aFileStream.Close()<br />
End Try<br />
End Sub<br />
<br />
End Class<br />
<br />
<br />
<br />
</source></div>
Admin