استخراج اعداد از textbox

[mamad174]

با سلام می خواستم بدونم چطور میشه از یک textbox که حاوی عدد و حروفه فقط اعدادش رو استخراج کنیم مثلا توی یه تکس باکس دیگه نمایش بدیم

ممنون

[asemaneab]

این کد اعداد موجود در text1 رو توی Text2 میریزه:

Text2.Text = ""
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If Asc(c) >= Asc(0) And Asc(c) <= Asc(9) Then Text2.Text = Text2.Text & c
Next i