в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:56:21Z

1 версия

Новая страница

==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>
<pre class=codeResult>Hello world!</pre>

==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>
<pre class=codeResult>asdf</pre>

==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>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Stream File/Text File Read - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия