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
|