VB6 estrarre numeri

[giorgiogio48]

Allora...
il codice per trovare i numeri di 2 e 3 cifre è:


Private Sub Command1_Click()
Dim c As String
Dim d As Integer
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = OpenDatabase("Percorso del database")
Set rs = db.OpenRecordset("Prova")
rs.MoveFirst
Do Until rs.EOF
Counter = 1
If IsNumeric(Left(rs(1), 2)) And Not IsNumeric(Left(rs(1), 3)) Then
c = Left(rs(1), 2)
Counter = Counter + 1
d = Counter
rs.Edit
rs(d) = c
rs.Update
ElseIf IsNumeric(Left(rs(1), 3)) Then
c = Left(rs(1), 3)
Counter = Counter + 1
d = Counter
rs.Edit
rs(d) = c
rs.Update
End If
For i = 1 To Len(rs(1))
If i > 1 Then
If Not IsNumeric(Mid(rs(1), i - 1, 1)) And IsNumeric(Mid(rs(1), i, 1)) And IsNumeric(Mid(rs(1), i + 1, 1)) And IsNumeric(Mid(rs(1), i + 2, 1)) And Not IsNumeric(Mid(rs(1), i + 3, 1)) Then
c = Mid(rs(1), i, 1) & Mid(rs(1), i + 1, 1) & Mid(rs(1), i + 2, 1)
Counter = Counter + 1
d = Counter
rs.Edit
rs(d) = c
rs.Update
ElseIf Not IsNumeric(Mid(rs(1), i - 1, 1)) And IsNumeric(Mid(rs(1), i, 1)) And IsNumeric(Mid(rs(1), i + 1, 1)) And Not IsNumeric(Mid(rs(1), i + 2, 1)) Then
c = Mid(rs(1), i, 1) & Mid(rs(1), i + 1, 1)
Counter = Counter + 1
d = Counter
If d < 7 Then
rs.Edit
rs(d) = c
rs.Update
End If
End If
End If
Next i
rs.MoveNext
Loop
End Sub

Ti consgilio di renderti conto del codice se puoi, per un tuo vantaggio futuro.
Ciao.

[Massimo Moretti]

OK funziona, era quello che volevo, sei stato molto tempestivo nelle risposte, ti ringrazio per l'aiuto.

Ciao

[giorgiogio48]

Prego. Nei momenti in cui non lavoro seriamente mi piace rilassarmi risolvendo questioni di portata limitata come quelle che hai posto tu.