Reline

引入: 自定義

 

Reline 是個很舊的函式，結構很簡單，只是把一個字串陣列以一個指定的字串串連起來，預設為CrLf。

]Function Reline(ByVal Origin As String(), Optional ByVal SplitMark As String = vbCrLf) As String

]If (Origin Is Nothing) Then

]Return Nothing

]End If

]Reline = Origin(LBound(Origin))

]For i1 As Integer = LBound(Origin) + 1 To UBound(Origin) Step 1

]Reline &= SplitMark & Origin(i1)

]Next

]Return Reline

]End Function