Imports System.IO
Public Class InsertTabs
Public Shared Function Main(args() As String) As Integer
Dim writer As StreamWriter = Nothing
writer = New StreamWriter(args(1))
Console.SetOut(writer)
Console.SetIn(New StreamReader(args(0)))
Console.WriteLine("this is a test")
writer.Close()
Dim standardOutput As New StreamWriter(Console.OpenStandardOutput())
standardOutput.AutoFlush = True
Console.SetOut(standardOutput)
Return 0
End Function
End Class
|