testapp.vb

来自「Code for VB.NET教程源码 很好的源码」· VB 代码 · 共 34 行

Imports CustomStreams
Imports System.IO
Imports System

Public Module Application

	Public Sub Main()

		Dim customStream As UpperCaseStream
		
		' Create our custom stream, passing it a file stream 

		customStream = New UpperCaseStream( new FileStream( "file.txt", FileMode.Open ) )
		Dim sr As New StreamReader( customStream )
		Console.WriteLine("{0}",sr.ReadToEnd() )
		customStream.Close()

		' Create a file using our custom stream (using ASCII encoding)

		customStream = New UpperCaseStream( new FileStream( "fileout.txt", FileMode.Create ) )
		Dim sw As New StreamWriter( customStream,  System.Text.Encoding.ASCII )

		Dim i As Integer

		For i = 0 To 99
			sw.WriteLine("Hello World!")
		Next
		sw.Close()
	
	End Sub

End Module