یک برنامه جالب

[ahsan22]

من میخواهم که یک برنامه بنویسید که یک جمله بدم به یک textbox اگر در آن جمله عدد هایی باشد جمع آن عدد ها را بگوید

[hamed_mo]

از کدوم نسخه VB استفاده میکنید؟ اگه .Net استفاده میکنید میشه از Regular Expressions استفاده کنی، خیلی راحته! البته نمیدونم ورژن های قدیمی ترش هم این قابلیت رو دارن یا نه. امیدوارم مفید باشه...
(البته ببخشید انقدر دیر جواب دادم. من تازه عضو شدم و همین الان پست شما رو دیدم)

[hamed_mo]

فرض کنید یه textbox به اسم textbox1 و یه دکمه به اسم button1 داریم. وقتی دکمه را فشار میدیم یه messagebox ظاهر میشه که جمع عددهایی که توی textbox1 (حالا هرجوری) نوشتیم رو میده. برنامش اینه:

کد:

Imports System.Text.RegularExpressions
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim R As Regex = New Regex("\d+")
        Dim MC As MatchCollection = R.Matches(TextBox1.Text)
        Dim Sum As Integer

        For Each M As Match In MC
            Sum += CInt(M.ToString)
        Next
        MsgBox(Sum)
    End Sub
End Class

مثلا اگه متن باشه : ssdfew34sdfsa223sadfgasdg2sa1 نتیجه اعلام شده 260 میشه. شما اینو میخواستین؟