حرف و عدد

[morika]

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

[ASKaffash]

با سلام
اگر بانک اطلاعاتی شما SQLServer است با این تابع هر چیز را خواستی حذف نمائید
Replace(YourField,'AaBbCcD','')

[ali_habibi1384]

این یک نمونه سورس.

[vbhamed]

سلام

شما رشته مورد نظر رو از بانك استخراج كنيد و بعد اون رو توي متغير s برنامه زير قرار بدين


Dim s As String, sum As Long, i%

s = "123test57"

For i = 1 To Len(s)
If Asc(Mid$(s, i, 1)) >= 48 And Asc(Mid$(s, i, 1)) <= 57 Then
sum = sum + Val(Mid$(s, i, 1))
End If
Next

MsgBox sum



به عنوان مثال حاصل اين برنامه مجموع 7+5+3+2+1 هست كه ميشه 18