Mega Code Archive

 

Categories / VB.Net Tutorial / Stream File

 

Use the OpenStandardOutput method

Imports System.IO Public Class InsertTabs    Private Const tabSize As Integer = 4    Public Shared Function Main(args() As String) As Integer       Dim writer As StreamWriter = Nothing       writer = New StreamWriter("output.txt")       ' Redirect standard output from the console to the output file.       Console.SetOut(writer)       ' Redirect standard input from the console to the input file.       Console.SetIn(New StreamReader("input.txt"))       Dim line As String = "this is a test"       Dim newLine As String = line.Replace("".PadRight(tabSize, " "c), ControlChars.Tab)       Console.WriteLine(newLine)       writer.Close()       ' Recover the standard output stream       Dim standardOutput As New StreamWriter(Console.OpenStandardOutput())       standardOutput.AutoFlush = True       Console.SetOut(standardOutput)       Return 0    End Function  End Class