Ecco altre funzioncine molto smart per gestire liste (stringhe con separatore) e array in VBscript, come se foste in coldfusion.
ValueList
Vi permette di passare alla funzione un recordSet e il nome della colonna desiderata, e di ottenere una stringa di tutti i valori separati da separator.
Function ValueList(query,column)
ValueList = ""
separator = ","
On Error Resume Next
do while not query.EOF
'loop di tutti i valori
if (ValueList="") then
ValueList = query(column)
else
ValueList = ValueList & separator & query(column)
end if
query.moveNext
loop
'If Err.Number <> 0 then
'end if
Err.Clear
End Function
ValueArray
Sfrutta la funzione sopra e restituisce invece un array con tutti i valori
Function ValueArray(query,column)
separator = ","
ValueArray = Split(ValueList(query,column),separator)
End Function
SubArray
Crea un array, partendo dal punto di partenza (gli array iniziano da zero) per un count numero di elementi
Function ArraySub(myArray,start,count)
newArrayLen = 0
For i=start to (start+count-1)
ReDim Preserve newArray(newArrayLen)
newArray(newArrayLen) = myArray(i)
newArrayLen = newArrayLen + 1
Next
ArraySub = newArray
End Function
Ciao ciao
Ma grazie!!!
🙂
ci voleva grazie a te. non sai come sono ridotto.
sto rifacendo il mio meraviglioso e splendido (???) CMS in Coldfusion, in ASP! E tutto quello che su CF c’è io (apposta) lo sto rifacendo in ASP, come funzioni 🙂