Friendpaste

--- Revision 383033313930
+++ Revision 316363356466
@@ -1,10 +1,5 @@
 Function SubstrInterpoint(ByVal src As String) As String
-	cr = Chr(13)
-	lf = Chr(10)
-	crlf = cr & lf
-	s = Replace(src, crlf, lf)
-	s = Replace(src, cr, lf)
-	SubstrInterpoint = Substr(s, "・", lf)
+	SubstrInterpoint = Substr(s, "・", Chr(10))
 End Function
 
 Function Substr(ByVal src As String, ByVal startChar As String, ByVal endChar As String) As String
a	b
0	0		Function SubstrInterpoint(ByVal src As String) As String
...
1		-	cr = Chr(13)
1		-	lf = Chr(10)
1		-	crlf = cr & lf
1		-	s = Replace(src, crlf, lf)
1		-	s = Replace(src, cr, lf)
1		-	SubstrInterpoint = Substr(s, "・", lf)
	1	+	SubstrInterpoint = Substr(s, "・", Chr(10))
...
7	7		End Function
8	8
9	9		Function Substr(ByVal src As String, ByVal startChar As String, ByVal endChar As String) As String
...