[VB6] Passaggio a funzione di una matrice di elementi di tipo record

[katrina]

Si consideri il seguente frammento di codice:

///////////////////////////////////////////////////////////

Type RecTabSimb
label As String
pagina0 As Boolean
tipo As String
valore As String
End Type


Dim TabSimb(1 to 101) As RecTabSimb

////////////////////////////////////////////////////////////



e si supponga di avere la funzione così definita:
//////////////////////////////////////////////////////////

Public Function RicercaBinaria(x() As String, target As String) As Integer

//////////////////////////////////////////////////////////
che cerca la stringa target nel vettore x() e ne ritorna - se la ricerca ha esito positivo -
la posizione.


Esiste un modo per passare alla funzione di RicercaBinaria il campo label
di tutti gli elementi della matrice TabSimb , come se si trattasse di
un semplice vettore di stringhe?

[newbie]

Originariamente inviato da katrina
Si consideri il seguente frammento di codice:

///////////////////////////////////////////////////////////

Type RecTabSimb
label As String
pagina0 As Boolean
tipo As String
valore As String
End Type


Dim TabSimb(1 to 101) As RecTabSimb

////////////////////////////////////////////////////////////



e si supponga di avere la funzione così definita:
//////////////////////////////////////////////////////////

Public Function RicercaBinaria(x() As String, target As String) As Integer

//////////////////////////////////////////////////////////
che cerca la stringa target nel vettore x() e ne ritorna - se la ricerca ha esito positivo -
la posizione.


Esiste un modo per passare alla funzione di RicercaBinaria il campo label
di tutti gli elementi della matrice TabSimb , come se si trattasse di
un semplice vettore di stringhe?

Non credo che esista un metodo diretto. Comunque si potrebbero riversare tutte le label in un array di stringhe:

Dim Vettore(1 To 101) As String
For i = 1 To 101
   Vettore(i) = TabSimb(i).label
Next i

per poi passare l'array Vettore alla funzione.

[katrina]

Sì, in effetti ci avevo pensato.

Ma così perderei qualunque vantaggio derivante dall'aver usato una matrice di record e tanto varrebbe sostituire ogni campo con un vettore...

Comunque grazie.

Magari a qualcuno viene un'altra idea?

[alka]

A quale versione di VB stiamo facendo riferimento?
E' obbligatorio indicarlo anche nel titolo, come da Regolamento.

[oregon]

Puoi utilizzare un vettore di stringhe classico

Symbols() As String

e dalla struttura elimini il campo label ...

Type RecTabSimb
pagina0 As Boolean
tipo As String
valore As String
End Type

tenendo presente che avrai l'indice tramite cui potrai collegare l'elemento dell'array di tipo RecTabSimb con quello dell'array Symbols.

P.S. Ma cosa scrivi ? Un Assembler per 6502 ?

[katrina]

Ho fatto riferimento al campo label, ma in realtà mi interessa più in generale poterne passare uno qualsiasi: cioè vorrei sapere se si può passare uno dei campi di tutti gli elementi della matrice come se fosse un vettore, senza dover esplicitamente copiare i valori in un vettore o dover usare cicli di lettura del campo, elemento per elemento.

Grazie!


PS: sì, devo sostenere un esame che prevede la realizzazione di un assemblatore e un simulatore per 6502 in VB6.

[newbie]

Originariamente inviato da katrina
Ho fatto riferimento al campo label, ma in realtà mi interessa più in generale poterne passare uno qualsiasi: cioè vorrei sapere se si può passare uno dei campi di tutti gli elementi della matrice come se fosse un vettore, senza dover esplicitamente copiare i valori in un vettore o dover usare cicli di lettura del campo, elemento per elemento.

Grazie!


PS: sì, devo sostenere un esame che prevede la realizzazione di un assemblatore e un simulatore per 6502 in VB6.

Quindi praticamente potrebbe essere che ti serva passare uno qualsiasi dei singoli campi come vettore?
In questo caso, invece che

Type RecTabSimb
label As String
pagina0 As Boolean
tipo As String
valore As String
End Type


Dim TabSimb(1 to 101) As RecTabSimb

io farei una cosa del genere (non ricordo se in VB si può effettivamente fare, ma rende l'idea...

Type TabSimboli
   labels(1 To 101) As String
   pagine0(1 To 101) As Boolean
   tipi(1 To 101) As String
   valori(1 To 101) As String
End Type

Dim TabSimb As TabSimboli

In questo modo, se con l'array di record prima ti riferivi a ogni campo con, ad esempio, TabSimb(2).label, ora ti ci potresti riferire con TabSimb.labels(2) il che, in fin dei conti, è un passaggio abbastanza semplice e indolore. In più in questo modo potresti applicare RicercaBinaria a uno qualsiasi dei vettori TabSimb.labels, TabSimb.tipi... proprio perché in questo modo sono effettivamente degli errori.

Spero che la soluzione abbia un senso... comunque buona Pasqua.