View Full Version : استخراج اعداد از یک تکست باکس حاوی متن
samiasoft
شنبه 29 شهریور 1393, 13:29 عصر
سلام دوستان
یک تکست باکسی دارم که شامل متن و اعدادی است میخواستم که فقط اعداد رو از ان استخراج کنم و در کنار هم قرار بدم.ممنون میشم راهنمایی کنید.
مثلا
http://samisoft.ir/1/images/IGjw.gif
samiasoft
شنبه 29 شهریور 1393, 18:21 عصر
این دستور به نظرتون همواره جواب میده؟
Val(Text1.Text)
as.1050
شنبه 29 شهریور 1393, 18:44 عصر
نه این دستور جواب نمیده چون صفر نشون میده. 0 رو نشون میده
samiasoft
شنبه 29 شهریور 1393, 19:35 عصر
فک کنم این به درستی جواب میده
Function GetNumbers(Value As String) As String
Dim Index As Long
Dim Final As String
For Index = 1 To Len(Value)
If Mid(Value, Index, 1) Like "[0-9]" Then
Final = Final & Mid(Value, Index, 1)
End If
Next
GetNumbers = Final
End Function
Text2.Text = GetNumbers(Text4)
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.