@implode en LS

[oguruma]

Une 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