VB.Net/File Directory/Stream Reader

Материал из VB Эксперт
Перейти к: навигация, поиск

Read all file content

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Dim TextFile As StreamReader
       Try
           TextFile = New StreamReader("test.txt")
       Catch E As Exception
           Console.WriteLine("Error opening the file test.txt")
           Console.WriteLine("Error {0}", E.Message)
       End Try
       Dim Content As String
       Try
           Content = TextFile.ReadToEnd()
           Console.WriteLine(Content)
       Catch E As Exception
           Console.WriteLine("Error reading file")
           Console.WriteLine("Error {0}: ", E.Message)
       End Try
       TextFile.Close()
   End Sub

End Module


      </source>


Stream Reader Demo

<source lang="vbnet"> Imports System.Data Imports System.IO Imports System.IO.IsolatedStorage Imports System.Text Imports System.Runtime.Serialization Imports System.Runtime.Serialization.Formatters Imports System.Runtime.Serialization.Formatters.Soap Imports System.Runtime.Serialization.Formatters.Binary Imports System.Windows.Forms Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim s As String = "111"
       Dim n As Integer = 452
       Dim mstream As Stream = New MemoryStream()
       " Write to the stream
       Dim writer As StreamWriter = New StreamWriter(mstream)
       writer.WriteLine(s)
       writer.WriteLine(n)
       writer.Flush() " Flush the buffer
       " Reset the stream to the beginning
       mstream.Seek(0, SeekOrigin.Begin)
       " Read from the stream
       Dim reader As StreamReader = New StreamReader(mstream)
       Dim s2 As String = reader.ReadLine()
       Dim n2 As String = Integer.Parse(reader.ReadLine())
       " Do something with the data
       Console.WriteLine(s2 + " " + n2)
   End Sub

End Class


      </source>


Stream Reader: read int

<source lang="vbnet"> Imports System.Data Imports System.IO Imports System.IO.IsolatedStorage Imports System.Text Imports System.Runtime.Serialization Imports System.Runtime.Serialization.Formatters Imports System.Runtime.Serialization.Formatters.Soap Imports System.Runtime.Serialization.Formatters.Binary Imports System.Windows.Forms Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim s As String = "111"
       Dim n As Integer = 452
       Dim mstream As Stream = New MemoryStream()
       Dim writer As BinaryWriter = New BinaryWriter(mstream)
       writer.Write(s)
       writer.Write(n)
       writer.Flush() " Flush the buffer
       " Reset the stream to the beginning
       mstream.Seek(0, SeekOrigin.Begin)
       " Read from the stream
       Dim reader As BinaryReader = New BinaryReader(mstream)
       Dim s2 As String = reader.ReadString()
       Dim n2 As Integer = reader.ReadInt32()
       Console.WriteLine(s2 + " " + n2)
   End Sub

End Class


      </source>