سلام به همگی کاربران سایت ویدیو لرن

شاید برای شما پیش اومده باشه که خواسته باشید یک رشته متنی رو  که درونه رشته متن  اعداد استفاده شده رو از این رشته استخراج کنید ...

کد اول نمایش اعداد با مسیج باکس :

"Dim mytext AsString="123a123

()Dim myChars()AsChar= mytext.ToCharArray

ForEach ch As Char In myChars

If Char.IsDigit(ch)Then

( MessageBox.Show(ch

EndIf

Next

کد دوم همراه با تایع ورودی : 

PrivateSharedFunction Num(ByVal value AsString)As Integer 

Dim returnVal AsString=String.Empty

("+Dim collection As MatchCollection = Regex.Matches(value,"d

()ForEach m As Match In collection returnVal += m.ToString

Next

(Return Convert.ToInt32(returnVa

EndFunction 

امیدوارم این نمونه کد ها برای شما مفید واقع شده باشد

موفق باشید .

یا علی