Liste e Array in Vbscript

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

Loading Facebook Comments ...

2 pensieri su “Liste e Array in Vbscript

  1. Merlinox Autore articolo

    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 🙂

    Rispondi

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *