[VB6] Numero di produzione ID OEM e rimozione lettere

[Magicolotto]

Ciao ragazzi, con un codice sono riuscito a ricavare il numero di produzione ID oem


PERO' dal numero ricavato vorrei tocliere le lettere.....
esempio numero che mi compare su una textbox

12345OEM678912345678

[MdE2005]

Ciao Magicolotto, si può fare in svariati modi, non so nemmeno io con quale farlo..comunque:

Private Sub Command1_Click()
stringa$ = Text1.Text
For i = Len(stringa$) To 1 Step -1
    car = Mid(stringa$, i, 1)
        If IsNumeric(car) = False Then stringa = Left(stringa, i - 1) & Mid(stringa, i + 1, Len(stringa) - 1)
Next i
MsgBox stringa
End Sub

se non dovessi uscire ti posterei altri codici..

ciao

[Magicolotto]

perfetto questo grazie

[alka]

Il linguaggio anche nel titolo, per favore.

Ciao!

[MdE2005]

Prego..Ciao..

[Magicolotto]

i casi riscontrati sono due
1) il codice ID presenta solo lettere
2) il codice ID presenta solo trattini

come potrei far si che tolgo trattini e lettere contemporaneamente non sapendo se sono nel caso 1 , oppure ne l caso 2

[oregon]

Ma hai provato il codice che ti e' stato proposto e che includeva soltanto i valori numerici?

[Magicolotto]

si ho provato

[oregon]

E cosa ottieni?

Fai un esempio di partenza di una stringa da modificare, cosa ottieni con quel codice e cosa vorresti ottenere ...

[mgmg]

Anch'io l'ho provata e funziona egregiamente anche con i trattini nel msgbox ritorna: 12345678912345678

Private Sub Command1_Click()
stringa$ = "12345OEM---678912345678"
For i = Len(stringa$) To 1 Step -1
    car = Mid(stringa$, i, 1)
        If IsNumeric(car) = False Then stringa = Left(stringa, i - 1) & Mid(stringa, i + 1, Len(stringa) - 1)
Next i
MsgBox stringa
End Sub

Ciao