PDA

View Full Version : حرف و عدد



morika
یک شنبه 29 اردیبهشت 1387, 17:30 عصر
با عزض سلام
توی کنترل ADO فیلدی دارم که توش هم عدد هست هم حرف
می خواستم کدی به من بدید که فقط رقم هاشو باهم جمع کنه و حرفاشو نادیده بگیره
ممنون

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

ali_habibi1384
یک شنبه 29 اردیبهشت 1387, 21:04 عصر
این یک نمونه سورس.

vbhamed
دوشنبه 30 اردیبهشت 1387, 10:39 صبح
سلام

شما رشته مورد نظر رو از بانك استخراج كنيد و بعد اون رو توي متغير 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