--- Revision None
+++ Revision 623864623064
@@ -0,0 +1,36 @@
+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