Liste e Array in Vbscript | MrX

« Playboy e Men’s Healt gratis con firefox | Main | AVG Antivirus passa alla 8: gratis!!! »

Liste e Array in Vbscript

By Merlinox | June 11, 2008

Ecco altre funzioncine molto smart per gestire liste (stringhe con separatore) e array in , come se foste in .

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


Tags: , , , , ,

Post simili

2 Responses to “Liste e Array in Vbscript”

  1. ideabroker aggiunge:
    June 11th, 2008 at 3:10 pm

    Ma grazie!!!
    :-)

  2. Merlinox aggiunge:
    June 11th, 2008 at 3:24 pm

    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 :)

Comments