valori separati da una virgola

[OTTONE]

è possibile fare in modo che una funzione mi estragga i valori separati da una virgola da una stringa di testo.??

mi spiego..

vorrei fare in modo che si possa assegnare ad un repertorio gli ID dei musicisti che lo eseguono inserendo gli ID separati da una virgola all'interno di una text area per poi riprenderli per creare l'elenco degli artisti stessi... :master:

[SimoneVB]

Ciao !

è possibile fare in modo che una funzione mi estragga i valori separati da una virgola da una stringa di testo.??

Una cosa del tipo:

<%
StringaDiTesto = "Tizio,caio,sempronio"
ReDim arr(0)

Response.Write "Valori estratti dalla stringa '" & StringaDiTesto & "':

"

While InStr(1, StringaDiTesto, ",") > 0
' posizione virgola
j = InStr(1, StringaDiTesto, ",")
' estrae ciò che precede
Nome = Left(StringaDiTesto, j - 1)
' elimina fino alla virgola  
StringaDiTesto = Mid(StringaDiTesto, j + 1) 
        
' memorizza il nome nel 1° elemento dell'array...
If arr(0) = "" Then
   arr(0) = Nome
Else
   ' ...o aggiunge un'elemento all'array
   ReDim Preserve arr(UBound(arr) + 1)
   arr(UBound(arr)) = Nome
End If
Wend
    
' nella stringa rimane un nome...
ReDim Preserve arr(UBound(arr) + 1)
arr(UBound(arr)) = StringaDiTesto
            
For j = 0 To UBound(arr)
   Response.Write arr(j) & "
"
Next
%>

[OTTONE]

ehm..

si si

penso vada bene...

GRZAIE

[FaustoWeb]

Credo che la funzione
Split(Testo,",")
ti possa bastare

[SimoneVB]

Credo che la funzione
Split(Testo,",")
ti possa bastare

In effetti hai ragione !
Sul mio libro di VBScript non è documentata, così pensavo che
non fosse supportata.
Mi tiro le orecchie da solo.

[FaustoWeb]

Mi tiro le orecchie da solo

Non ti preoccupare capita a tutti!