Migliorare Function Split

[semolino]

Ho scritto una function che separa una stringa dopo la virgola; provata da sola funziona perfettamente.
A volte però, quel campo del database non viene compilato, quindi la variabile è vuota.

Il codice è:

Function DividiNomeDaWeb(NameLinkTo, PerCosa)

 If NameLinkTo = "" Then
	DividiNomeDaWeb = "testo...."
 Else
	Dim intSizNomeWeb, intSizNome, intSizWeb
	
	intSizNomeWeb = split(NameLinkTo, PerCosa) 
	intSizNome = intSizNomeWeb(0) 
	intSizWeb = intSizNomeWeb(1) 
	
	DividiNomeDaWeb = ""&intSizNome&""
 End If
End Function

Provata con la variabile che contiene una stringa funziona, allora ho pensato di mettere un If che controlla se NameLinkTo è vuoto, mostra una scritta, altrimenti può procedere con lo split.
Però provando, mi da utilizzo non valido di null! Ma con l'If non deve saltare il passaggio?

Richiamo la function cosi:

" & DividiNomeDaWeb (objSizRs("Collaboration"), ",") & "

[weppos]

Ho capito nulla.
L'unica cosa che ho capito è che

intSizNome = intSizNomeWeb(0)
intSizWeb = intSizNomeWeb(1)

è un costrutto molto pericoloso perchè se per sbaglio lo split non genera almeno 2 posizioni sei fritto.

Puoi fare un controllo con ubound(nomearray).
Se maggiore di 0 allora assegni anche l'indice 1

[semolino]

Allora io passo alla funzione il valore di
objSizRs("Collaboration")
Che nella funzione corrisponde a "NameLinkTo"
E' sempre una stringa di due parti separata solo da una ",".
Un esempio di stringa può essere:
nomesito,dominio.it

quindi volevo fare in modo che se NameLinkTo è vuoto, nel caso che nel database non sia scritto quel campo, venga mostrato un testo. In caso contrario si procede con lo Split.

Ora mi capite meglio?

[weppos]

E dov'è il problema?
Controlla che la variabile sia valorizzata e se lo è procedi.

[semolino]

infatti non capisco il motivo per cui non vada!!!
Se i campi sono tutti compilati mi funziona, ovvero mi esegue la parte dell'else con lo split. Nel caso di variabile vuota mi da quell'errore!!!

Questa funzione è all'intenro di un ciclo, per quello c'è l'alternanza di variabile vuota o piena in base ai record :master:

[weppos]

Ti ho scritto sopra perchè da errore.
Ser la variabile è vuota non esistono 2 indici dell'array.

[semolino]

Ah non avevo capito che il controlla andava fatto per la variabile vuota... ora provo!

[weppos]

Il controllo lo fai per quello che vuoi, l'importante è che non cerchi di accedere ad un indice di un array che non esiste.

[semolino]

ok, grazie

[semolino]

Ho provato cosi:

Function DividiNomeDaWeb (NameLinkTo, PerCosa)

 If UBound(DividiNomeDaWeb, 1) = "" Then
	DividiNomeDaWeb = "L'ho fatto da solo[img][/img]"
 Else
'...

errore: Tipo non corrispondente: ubound