Friendpaste

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