Fastidioso problema con Split

[Mizushi]

Ciao a tutti.

La stringa da splittare non è lineare e non posso fare uno split uguale per tutte le stringhe.

Le stringhe sono queste:

ABC DEF
ABC DEF-GH IL
ABC DEF-GH IL-MNO-PQR
ABC DEF-GH IL-MNO-PQR-1

Ogni volta che splitto per "-" a secondo a quale delle stringhe lo applico, lo script va in errore:

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 2]

Come posso rimediare ???

[optime]

controlla con UBOUND di quanti elementi è costituito l'array ottenuto e regolati di conseguenza

[Mizushi]

Originariamente inviato da optime
controlla con UBOUND di quanti elementi è costituito l'array ottenuto e regolati di conseguenza

Grazie, al momento lo split lo faccio così:

lngStartPos = 1
strSearchFor = "-" 
lngFoundPos = InStr(lngStartPos, stringa, strSearchFor)

Do While lngFoundPos > 0
    lngStartPos = lngFoundPos + 1 
    lngFoundPos = InStr(lngStartPos, stringa, strSearchFor)    
    stringa_1 = Split(stringa, "-") 
    strVar = 1     
Loop

if strVar <> 1 then			  						  
			  Response.Write "<td align=""center"">" & stringa & "</td>"
else
			  Response.Write "<td align=""center"">" & stringa_1(0) &"-"& stringa_1(1) & "</td>"	
end if

if strVar = 1 then 			  		  
			  Response.Write "<td align=""center"">" & stringa_1(1) & "</td>"
end if

[optime]

la soluzione è la stessa

[Mizushi]

Originariamente inviato da optime
la soluzione è la stessa

Si OK ma non ho capito dove devo prevedere il controllo con UBOUND ....

[optime]

due scelte:

1: nei giardinetti sotto casa
2: DOPO la split e PRIMA del posto dove ti dà errore

vedi tu

[Mizushi]

Escluderei la soluzione numero uno x ovvi motivi...

Sulla seconda ecco quello che ho scritto:

lngStartPos = 1
strSearchFor = "-" 
lngFoundPos = InStr(lngStartPos, stringa, strSearchFor)

Do While lngFoundPos > 0
    lngStartPos = lngFoundPos + 1 
    lngFoundPos = InStr(lngStartPos, stringa, strSearchFor)    
    stringa_1 = Split(stringa, "-") 
    strVar = 1     
Loop

response.write UBound(stringa_1)

E stampa valore 2, cosa significa? Che ha trovato due "-" ?
Scusa ma non conosco bene la funzione uBound.

[optime]

1. non conosci? documentati
2. ti dice due? ci sono due elementi (es "A-B", el1="A", el2="B")

[Mizushi]

Originariamente inviato da optime
1. non conosci? documentati
2. ti dice due? ci sono due elementi (es "A-B", el1="A", el2="B")

Lo sto già facendo

http://www.w3schools.com/VBScript/func_ubound.asp

Però ancora mi sfugge come eseguire questo controllo e che cosa fare una volta che ho controllato di quanti elementi è costituito l'array ...

[optime]

pensa. chiedi il terzo elemento e l'array ne ha solo due...