--- Revision None
+++ Revision 383033313930
@@ -0,0 +1,25 @@
+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)
+End Function
+
+Function Substr(ByVal src As String, ByVal startChar As String, ByVal endChar As String) As String
+	If (src = "") Then
+		Substr = ""
+	Else
+		startIndex = InStr(1, src, startChar, 1)
+		If (startIndex < 1) Then
+			Substr = ""
+		Else
+			endIndex = InStr(startIndex + 1, src, endChar, 1) - 1
+			If (endIndex < startIndex) Then
+				endIndex = Len(src)
+			End If
+			Substr = Mid(src, startIndex, endIndex - startIndex + 1)
+		End If
+	End If
+End Function