VB.Net Tutorial/Stream File/StreamWriter
Create StreamWriter from FileStream
<source lang="vbnet">Imports System.IO public class Test
public Shared Sub Main Dim objSW As StreamWriter Dim objFS As FileStream objFS = New FileStream("test.txt", FileMode.Create) objSW = New StreamWriter(objFS) objSW.Write("asdf") objSW.Close() objFS.Close()
End Sub
End class</source>
Save various data types to a text file
<source lang="vbnet">Imports System.IO public class Test
public Shared Sub Main Dim objSW As StreamWriter Dim objFS As FileStream Dim dteBDate As Date = #2/8/1960 1:04:00 PM# objFS = New FileStream("test.txt", FileMode.Create) objSW = New StreamWriter(objFS) With objSW .WriteLine(9.009) .WriteLine(1 / 3) .Write("The current date is ") .Write(Now()) .WriteLine(True) .WriteLine("Your age in years is {0}, in months is {1}, " & _ "in days is {2}, and in hours is {3}.", _ DateDiff(DateInterval.Year, dteBDate, Now), _ DateDiff(DateInterval.Month, dteBDate, Now), _ DateDiff(DateInterval.Day, dteBDate, Now), _ DateDiff(DateInterval.Hour, dteBDate, Now)) .Close() End With objFS.Close() End Sub
End class</source>
Use StreamWriter and StreamReader to deal with text file
<source lang="vbnet">Imports System.IO public class Test
public Shared Sub Main Dim file_name As String = "test.txt" Dim stream_writer As New StreamWriter(file_name) stream_writer.Write("The quick brown fox") stream_writer.WriteLine(" jumps over the lazy dog.") stream_writer.Close() Dim stream_reader As New StreamReader(file_name) Console.WriteLine(stream_reader.ReadToEnd()) stream_reader.Close() End Sub
End class</source>
The quick brown fox jumps over the lazy dog.