بيرون كشيدن اعداد از داخل متن

[y.saied]

سلام دوستان
با چه روشي ميتونم، اعداد داخل يك تكست باكس يا متغير رو از متن جدا كنم؟
مثلاً در متن: سرزمين 15 : ايران

[xxnagin]

سلام
جدا کردن حروف ، عدد و علائم (http://barnamenevis.org/showthread.php?384289-جدا-کردن-حروف-،-عدد-و-علائم)

[erfan_urchin]

بفرمایید با این کد میتونید این کارو بکنید
Private Sub button1_Click(sender As Object, e As EventArgs)
Dim s As String = textBox1.Text
For i As Integer = 0 To s.Length - 1
If Convert.ToInt16(s(i)) <= "9"C AndAlso Convert.ToInt16(s(i)) >= "0"C Then
textBox2.Text += s(i)
End If
Next
End Sub

[erfan_urchin]

کدهای بالا رو تو C#‎‎ نوشتم (چون زبون برنامه نویسیم سی شارپه) و تو سایت converter تبدیلش کردم حالا نمیدونم درست تبدیل کرده یا نه. به خاطر همین کد رو به زبون C#‎‎ براتون آپلود کردم که اگه کدهای بالا صحیح نبودن بتونین کدهای درست رو ببینید (البته به زبون C#‎‎ :لبخند:)
بفرمایید:

[erfan_urchin]

سعید فهمیدم چیکار کنی
بیا اینو بنویس مشکلت حله
Private Sub button1_Click(sender As Object, e As EventArgs)
Dim s As String = textBox1.Text
For i As Integer = 0 To s.Length - 1
If Convert.ToInt16(s(i)) <= 57 AndAlso Convert.ToInt16(s(i)) >= 48 Then
textBox2.Text += s(i)
End If
Next
End Sub

[erfan_urchin]

این توضیحم بدم که عدد های اسکی 0 تا 9 ، از 48 تا 57 هستش بخاطر همین من نوشتم اگه کاراکتری که داری میخونیش عدد اسکیش بین 48 تا 57 بود (یعنی یکی از اعداد 0 تا 9 بود) اونو بریزش تو تکست باکس 2
حالا من عدد اسکی رو رفتم از تو اینترنت سرچ کردم ، اما خود ویژوال استودیو یه قابلیتی داره اونم اینه که میتونی بهش بگی که عدد اسکی چه کاراکتری رو میخوای. مثلا تو C# اگه بخوای بگی عدد اسکی 9 باید اینجوری بنویسی '9' یعنی داخل سینگل کوتیشن میزاریش اما من نمیدونستم تو VB چجوری باید اینکارو کرد بخاطر همین خود عدد اسکی هاشو دادم
موفق باشی

[damanpak]

سلام دوستان
با چه روشي ميتونم، اعداد داخل يك تكست باكس يا متغير رو از متن جدا كنم؟
مثلاً در متن: سرزمين 15 : ايران
سلام به عزیزان
جناب y.saied شما در تاریخ 20 فروردین این سوال رو پرسیده بودی و من و چنتا دیگه از دوستان جواب دادیم نمیدونم چرا دوباره همین سوال رو پرسیدین
جواب سوالتون در این پست موجوده (http://barnamenevis.org/showthread.php?392501-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88%DB%8C-%DA%A9%D8%A7%D8%B1%D8%A7%DA%A9%D8%AA%D8%B1-%D8%AE%D8%A7%D8%B5&p=1740871&viewfull=1#post1740871)

[مهرداد صفا]

با سلام .
به این صورت:

Dim text As String = "سرزمین 15 : ایران"
MsgBox(text.Where(Function(x) IsNumeric(x)).ToArray)

[tooraj_azizi_1035]

Dim test As String = "%2459348?:"
Dim match As Match = Regex.Match(test, "\d+")

If match.Success Then
Dim result As String = match.Value
' Do something with result
End If

[shahryari]

سلام
این هم یک روش دیگه
For Each c As Char In TextBox1.Text
If IsNumeric(c) = True Then
TextBox2.Text &= c.ToString
End If
Next