VB.Net Tutorial/Stream File/Text File Read
Содержание
FileSystem.ReadAllText
<source lang="vbnet">public class Test
public Shared Sub Main Console.WriteLine(My.ruputer.FileSystem.ReadAllText("test.txt")) End Sub
End class</source>
Hello world!
Read text file content in Try Catch block
<source lang="vbnet">Imports System.IO public class Test
public Shared Sub Main Dim srReader As IO.StreamReader Dim strLine As String Dim blnDone As Boolean = False Dim strFileName As String = "test.txt" "Read text from a file and display it in a list box. srReader = New IO.StreamReader(strFileName) Try While Not blnDone strLine = srReader.ReadLine() If strLine Is Nothing Then blnDone = True Else Console.WriteLine(strLine) End If End While srReader.Close() Catch ex As Exception Console.WriteLine("An error has occurred.") End Try
End Sub
End class</source>
asdf
Read text file line by line
<source lang="vbnet">Public Class ReadFromFile
Shared Sub Main() Dim sFileName As String Dim srFileReader As System.IO.StreamReader Dim sInputLine As String sFileName = "test.txt" srFileReader = System.IO.File.OpenText(sFileName) sInputLine = srFileReader.ReadLine() Do Until sInputLine is Nothing System.Console.WriteLine(sInputLine) sInputLine = srFileReader.ReadLine() Loop End Sub
End Class</source>
Read text file to the file end
<source lang="vbnet">Imports System.IO
Public Class Tester
Public Shared Sub Main Dim f As System.IO.FileStream Dim r As System.IO.StreamReader Dim mylength As Integer Dim i As Integer f = New System.IO.FileStream("test.txt", IO.FileMode.Open, IO.FileAccess.Read) r = New System.IO.StreamReader(f) Console.WriteLine(r.ReadToEnd()) f.Close() r.Close() End Sub
End Class</source>
Use StreamReader to read text file
<source lang="vbnet">Imports System.Text Imports System.IO
Public Class Tester
Public Shared Sub Main Dim myFileStream As FileStream Dim myStreamReader As StreamReader Dim intRead As Integer = 0 Dim chrRead As Char = "" Dim strRead As String = "" Try myFileStream = New FileStream ("test.txt", FileMode.Open, FileAccess.Read) myStreamReader = New StreamReader(myFileStream) Do While intRead <> -1 intRead = myStreamReader.Read() If intRead <> -1 Then chrRead = Convert.ToChar(intRead) strRead += chrRead Loop Console.WriteLine(strRead) Catch EX As IOException Console.WriteLine(EX.Message) End Try End Sub
End Class</source>