Join pro VB5
Public Function vb5Join(sArray() As String, Optional _
Delimiter As String = " ") As String
'Vezme řetězcové pole a oddělovač jako parametr a vrátí řetězec ze všech
'segmentů pole spojených oddělovačem
Dim sAns As String
Dim lCtr As Long
Dim lStart As Long
Dim lEnd As Long
lStart = LBound(sArray)
lEnd = UBound(sArray)
For lCtr = lStart To lEnd
sAns = sAns & sArray(lCtr)
If lCtr < lEnd Then sAns = sAns & Delimiter
Next
vb5Join = sAns
End Function
