[VB6] Filtro dati in text

[SuperMariano81]

Salve a tutti
ho delle text box che contengono dei dati di vario genere.
Alcune hanno dati che non mi interessano, del tipo "0</TD></TR><TR><TD>107"
A me interessa solo lo "0" iniziale, come faccio per togliere il resto? Ho implementato questa piccola funzione:

For x = 1 To Len(TXTdati(i))
tmp = Mid(TXTdati(i), x, 1)
If tmp = "<" Then
Next x

E dopo quel then che ci metto? Grazie a tutti quanti

[GudFella]

se ti serve solo il primo carattere:
stringa = Left(TXTdati(i).Text, 1)

se devi escludere certi dati tipo "<TD>":
stringa = Replace(TXTdati(i).Text, "<TD>", "")

[SuperMariano81]

no il problema è che i dati possono variare e in futuro mi potrebbe servire più di un carattere (del tipo "20</TD></TR><TR><TD>107")
L'ideale sarebbe cancellare tutto quello che c'è dopo il <

[GudFella]

Originariamente inviato da SuperMariano81
... cancellare tutto quello che c'è dopo il <

iPos = InStr(TXTdati(i).Text, "<")
If iPos <> 0 Then
    stringa = Left(TXTdati(i).Text, iPos - 1)
End If

[SuperMariano81]

Grazie! Sembra funzioni bene!
Dici che funziona anche con numeri più grandi di 9 ???

[SuperMariano81]

si si funziona!
ho appena provato e va! :adhone:

GRAZIE ANCORAAAAAA