Friendpaste

Option Explicit

Main

Sub Main()
	Const ForReading = 1

	Dim List
	Set List = Nothing
	
	Dim FileSystem
	Set FileSystem = CreateObject("Scripting.FileSystemObject")
	
	Dim TextStream
	Set TextStream = FileSystem.OpenTextFile("hoge.log", ForReading)
	
	Do Until TextStream.AtEndOfStream
		Set List = New ClassList.Init(TextStream.ReadLine(), List)
	Loop
	
	Do Until List Is Nothing
		WScript.StdOut.WriteLine List.Value
		Set List = List.NextList
	Loop
End Sub

Class ClassList
	Public Value
	Public NextList
	
	Public Function Init(Value_, NextList_)
		Value = Value_
		Set NextList = NextList_
		Set Init = Me
	End Function
End Class