حرف و عدد

[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