http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FFile_Directory%2FStream_Reader
VB.Net/File Directory/Stream Reader - История изменений
2026-04-05T05:43:50Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net/File_Directory/Stream_Reader&diff=882&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/Stream_Reader&diff=883&oldid=prev
Admin: 1 версия
2010-05-26T12:45:27Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Read all file content==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System.IO<br />
Module Module1<br />
Sub Main()<br />
Dim TextFile As StreamReader<br />
Try<br />
TextFile = New StreamReader("test.txt")<br />
Catch E As Exception<br />
Console.WriteLine("Error opening the file test.txt")<br />
Console.WriteLine("Error {0}", E.Message)<br />
End Try<br />
Dim Content As String<br />
Try<br />
Content = TextFile.ReadToEnd()<br />
Console.WriteLine(Content)<br />
Catch E As Exception<br />
Console.WriteLine("Error reading file")<br />
Console.WriteLine("Error {0}: ", E.Message)<br />
End Try<br />
TextFile.Close()<br />
End Sub<br />
End Module<br />
<br />
<br />
</source><br />
<br />
<br />
==Stream Reader 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 writer As StreamWriter = New StreamWriter(mstream)<br />
writer.WriteLine(s)<br />
writer.WriteLine(n)<br />
writer.Flush() " Flush the buffer<br />
" Reset the stream to the beginning<br />
mstream.Seek(0, SeekOrigin.Begin)<br />
" Read from the stream<br />
Dim reader As StreamReader = New StreamReader(mstream)<br />
Dim s2 As String = reader.ReadLine()<br />
Dim n2 As String = Integer.Parse(reader.ReadLine())<br />
" Do something with the data<br />
Console.WriteLine(s2 + " " + n2)<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Stream Reader: read int==<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 />
Dim writer As BinaryWriter = New BinaryWriter(mstream)<br />
writer.Write(s)<br />
writer.Write(n)<br />
writer.Flush() " Flush the buffer<br />
" Reset the stream to the beginning<br />
mstream.Seek(0, SeekOrigin.Begin)<br />
" Read from the stream<br />
Dim reader As BinaryReader = New BinaryReader(mstream)<br />
Dim s2 As String = reader.ReadString()<br />
Dim n2 As Integer = reader.ReadInt32()<br />
Console.WriteLine(s2 + " " + n2)<br />
End Sub<br />
End Class<br />
<br />
<br />
</source></div>
Admin