Ciao,

sono un po' arrugginito con VB, ma pare funzionare, se è quello che cerchi. ;) In pratica se ho ben capito, quello che interessa a te è semplicemente la prima riga del sub Main:

dim a(1,2)

ovvero come creare array multidimensionali.
Ed eventualmente le righe successive per come riempirli. :)

Emanuele


Sub Main
    dim a(1,2) as string

    a(0,0) = "pippo"
    a(0,1) = "gigio"
    a(0,2) = "zio_barba"

    a(1,0) = "qualcosa"
    a(1,1) = "carabattole"
    a(1,2) = "barbatrucco 26"

    msgbox cerca_in_array(a, "pippo")
End Sub

function cerca_in_array(anArray as object, aString as string) as string
    dim iStop as integer
    iStop = UBound(anArray, 2)
    for i=0 to iStop
        if(anArray(0, i) = aString) then
            cerca_in_array = anArray(1,i)
            exit function
        end if
    next
end function


Bart Aimar wrote:

Mi ritrovo in questa situazione:

data  una lista di coppie del tipo:

pippo = "qualcosa"
gigio = "carabattole"
zio_barba = "barbatrucco 26"

ora se il codice (ad esempio) in base a suoi (per ora imperscrutabili) algoritmi mi dice:

   "gigio"

io vorrei recuperare il valore (o la stringa) associati a gigio

ovvero io vorrei ottenere "carabattole"

Ho provato in diversi modi... iniziando ingenuamente con l'assegnare variabili espresse come sopra e cioè:

pippo = "qualcosa"
gigio = "carabattole"
etc.

ma, pur avendo la stringa "gigio" proprio non riesco a recuperare il valore della variabile gigio,
che sarebbe esattamente ciò che mi serve.

Mi è sfuggito qualcosa?

In alternativa avevo pensato di infilare quella lista di coppie in un array! Un array simile a quello usato da OOo per stivare i nomi di area e la corrispondente definizione "spaziale"

Se riuscissi a creare un array di quel tipo,
potrei poi accedere all'array con un ciclo di for
e se il primo elemento di quel ( i ) e uguale a "gigio"
recuperare il corrispondente "valore".

In altre parole ho imparato ad accedere ad un array di quel tipo, ma non riesco a "crearlo".

Intuisco vagamente (non sapendo leggere, guardo solo le figure) che usando quel:
Sub AppendItem(mList(), vItem) ' copyright 2010 Paolo Mantovani
(clamorosamente da me ignorato in altra discussione) dovrei riuscire a "costruire" l'array,

ma dopo una settimana di frustranti tentativi mi risolvo a chiedere aiuto!

grazie per le risposte

Bart




---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]

Rispondere a