[VB6] Assegnare valori a lettere e cifre di una stringa

[Artemio]

se ad esempio ho una stringa del tipo:
RSD0A124
vorrei associare ad ogni lettera o cifra un valore per poi sommare questi valori...
come faccio ad associare un valore ad ogni numero/lettera? devo effettuare una sorta di ricerca all'interno della stringa in modo che associ a tutte le cifre/lettere che ho cercato, il valore da me impostato?

[MdE2005]

A prima vista mi viene in mente una cosa del genere, poi magari ripensandoci meglio posso trovare sicuramente un modo migliore:

Dim Stringa As String
Stringa = "RSD0A124"
For i = 1 To Len(Stringa)
    car$ = Mid(Stringa, i, 1)
    Select Case car
        Case Is = "a"
        tot = val(tot) + 'numero che vuoi
        
        Case Is = "b"
        tot = val(tot) + 'numero che vuoi
    End Select
next i
MsgBox tot

Visto che questa soluzione è un pò scomoda (ma l'ho pensata e scritta all'istante, se magari sei un pò più preciso circa i valori da assegnare posso trovare una soluzione migliore..

ciao

[Artemio]

hmmm...il codice è facile, cmq nn capisco a che serve "$" dopo "car" cmq per i valori si tratta d semplici numeri, nn ti disturbare, mi arrangio
grazie mille

[MdE2005]

Per quanto riguarda il carattere "$" devo dire che l'ho usato in sostituzione all'istruzione (o meglio dichiarazione):

dim Car as String

.
Per il fatto della conversione potresti scrivere in una stringa tutti i caratteri (se non lo vuoi fare manualmente potresti farlo usando un ciclo for/next e l'istruzione Chr..) e successivamente creare un array con dentro i valori: a quel punto, nel ciclo for/next che ti ho postato potresti fare una cosa del tipo:

pos = instr(1,stringa,car$,vbTextCompare)
msgbox ar(pos)

Nella matrice Ar troveresti il valore corrispondente..

ciao

[Artemio]

:master:
scusa, non ti offendere... ma non ho capito che devo fare
sn agli inizi con Vb

i valori li prende da una stringa generata in automatico, quindi non li devo inserire, e i valori non corrispondo a quelli dati dal Chr (chr restituisce una carattere che ha il codice ascii uguale al numero inserito, giusto?).
e non sò nemmeno cos'e un array

[MdE2005]

Ciao..visto e considerato che:
1) sei agli inizi
2) non sai cosa è una matrice
allora fai finta che non ti abbia detto niente..magari quando sarai più preparato capirai cosa ti avevo suggerito, cmq nessun problema..

Ciao