vb6 sayı harf ayırımı ?

[is_mail45]

arkadaşlar textboxa girilen harf ve sayılardan sadece sayıları ayırıp başka textboxa aktarmak için gerekli kodları bilen varmı? örn:a^+%236lk bu ifadeden 236 alıp başka textboxa aktarabilirmiyiz...?

 

[alcelect]

Merhaba. Bu kod işinizi görecektir.

Private Sub Command1_Click()
Dim Alcelect As Integer

Text2.Text = ""

For Alcelect = 1 To Len(Text1.Text)
 If IsNumeric(Mid(Text1.Text, Alcelect, 1)) Then
   Text2.Text = Text2.Text & Mid(Text1.Text, Alcelect, 1)
 End If
Next Alcelect

End Sub

 

[is_mail45]

hocam çok teşekkür ettim sağol varol.....

 

[byeni]

Aradığım bir kod'du,paylaşımın için teşekkürler.