Friendpaste

--- Revision None
+++ Revision 373730663563
@@ -0,0 +1,57 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<HTML>
+<HEAD>
+<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
+<META name="GENERATOR" content="qwert">
+<META http-equiv="Content-Style-Type" content="text/css">
+<SCRIPT LANGUAGE=VBSCRIPT>
+	Sub Hoge_Click(FilePath)
+		Dim log
+		Set log = document.getElementById("log")
+		log.innerHTML = ""
+		
+		Const ForReading = 1
+
+		Dim List
+		Set List = Nothing
+		
+		Dim FileSystem
+		Set FileSystem = CreateObject("Scripting.FileSystemObject")
+		
+		Dim TextStream
+		Set TextStream = FileSystem.OpenTextFile(FilePath, ForReading)
+		
+		Do Until TextStream.AtEndOfStream
+			Set List = New ClassList.Init(TextStream.ReadLine(), List)
+		Loop
+		
+		Do Until List Is Nothing
+			log.innerHTML = log.innerHTML & List.Value & "<BR>"
+			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
+</SCRIPT>
+<STYLE>
+	P { color : blue; cursor : pointer }
+</STYLE>
+<TITLE></TITLE>
+</HEAD>
+<BODY>
+	<DIV style="float:left">
+		<P class="clickable" onclick='Hoge_Click("hoge.log")'>hoge</P>
+		<P class="clickable" onclick='Hoge_Click("piyo.log")'>piyo</P>
+	</DIV>
+	<DIV id="log" style="margin-left:3em"></DIV>
+</BODY>
+</HTML>
a	b
	0	+	<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
	0	+	<HTML>
	0	+	<HEAD>
	0	+	<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
	0	+	<META name="GENERATOR" content="qwert">
	0	+	<META http-equiv="Content-Style-Type" content="text/css">
	0	+	<SCRIPT LANGUAGE=VBSCRIPT>
	0	+	Sub Hoge_Click(FilePath)
	0	+	Dim log
	0	+	Set log = document.getElementById("log")
	0	+	log.innerHTML = ""
	0	+
	0	+	Const ForReading = 1
	0	+
	0	+	Dim List
	0	+	Set List = Nothing
	0	+
	0	+	Dim FileSystem
	0	+	Set FileSystem = CreateObject("Scripting.FileSystemObject")
	0	+
	0	+	Dim TextStream
	0	+	Set TextStream = FileSystem.OpenTextFile(FilePath, ForReading)
	0	+
	0	+	Do Until TextStream.AtEndOfStream
	0	+	Set List = New ClassList.Init(TextStream.ReadLine(), List)
	0	+	Loop
	0	+
	0	+	Do Until List Is Nothing
	0	+	log.innerHTML = log.innerHTML & List.Value & "<BR>"
	0	+	Set List = List.NextList
	0	+	Loop
	0	+	End Sub
	0	+
	0	+	Class ClassList
	0	+	Public Value
	0	+	Public NextList
	0	+
	0	+	Public Function Init(Value_, NextList_)
	0	+	Value = Value_
	0	+	Set NextList = NextList_
	0	+	Set Init = Me
	0	+	End Function
	0	+	End Class
	0	+	</SCRIPT>
	0	+	<STYLE>
	0	+	P { color : blue; cursor : pointer }
	0	+	</STYLE>
	0	+	<TITLE></TITLE>
	0	+	</HEAD>
	0	+	<BODY>
	0	+	<DIV style="float:left">
	0	+	<P class="clickable" onclick='Hoge_Click("hoge.log")'>hoge</P>
	0	+	<P class="clickable" onclick='Hoge_Click("piyo.log")'>piyo</P>
	0	+	</DIV>
	0	+	<DIV id="log" style="margin-left:3em"></DIV>
	0	+	</BODY>
	0	+	</HTML>
...