[VBA] HELP

[Serpe]

volevo fare una funzione che passatagli una stringa e un separatore mi restituisse una collection con le sub-stringhe che il separatore delimita

Sub passastr()
Dim j As New Collection
stringa = "a;Bcdefg;ghek;ehsie;"
sep = ";"
Set j = DS(stringa, sep)
End Sub


Function DS(ByVal stringa As String, ByVal sep As String) As Collection
Dim substr As New Collection

k = 1 'posini
y = 0 'posfina

Do
y = InStr(k, stringa, sep, vbTextCompare) 'si becca il valore della posiozne del separatore
If y > 0 Then
substr.Add Mid(stringa, k, y - k)
k = y + 1
End If
Loop While y > 0
DS = substr
End Function

ho un errore di compilazione in :
DS1 = substr
dove mi dice "Argomento non facoltativo" , ma non ho capito quale elemento vuole

qualche suggerimento?

[cisky]

Se invece di una collection ti basta un'array puoi usare direttamente il metodo SPLIT, oppure creare una routine di questo tipo.


Function DS(ByVal sStringa As String, ByVal sSep As String) As Collection

Dim collRet As Collection
Dim sSplit() As String
Dim lUBound As Long
Dim lLowBound As Long
Dim l As Long

Set collRet = New Collection

sSplit() = Split(sStringa, sSep)
lUBound = UBound(sSplit())
lLowBound = LBound(sSplit())

For l = 1 To lUBound
collRet.Add sSplit(l)
Next l

Set DS = collRet

End Function

[cisky]

Ops, riguardo al tuo problema "Argomento non facoltativo" è perchè devi usare la parola chiave SET per impostare il valore di ritorno della funzione.

Non:

DS = substr

ma:

SET DS = substr


Ciao!

[Serpe]

Tnx a lot :)