ايران ويج

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

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

فرض کنید یه 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 میشه. شما اینو میخواستین؟

ahsan22

hamed_mo

hamed_mo