@implode en LS
Publié: 26 Déc 2004 à 01:22Une version parmi tant d'autres
- Code : Tout sélectionner
Function atImplode(s As Variant, div As String) As String
Dim i As Integer
If Isarray(s) Then
atImplode = s(Lbound(s))
For i = Lbound(s)+1 To Ubound(s)
atImplode = atImplode & div & s(i)
Next
Else
atImplode = Cstr(s)
End If
End Function