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