PDA

View Full Version : کپی کردن فقط اعداد داخل textbox به یک textbox دیگر



rezapassword
جمعه 29 آذر 1387, 13:25 عصر
سلام دوستان
ایا کپی کردن فقط اعداد داخل textbox1 به یک textbox2 امکان داره ؟
میشه کدش رو برام بزارید ؟
ممنون

yasser_beiraghi
شنبه 30 آذر 1387, 00:57 صبح
کاش توضيح بيشتر ميدادين .توي textbox شما اعداد جاي خاصي هستند ؟ منظورم اينه که داخل textbox حروف و اعداد به فرمت خاصي ذخيره شدند؟ يه نگاه به substring بندازيد شايد مشکلتونو حل کنه
مثلا:

TextBox2.Text = TextBox1.Text.Substring(0,4)

alicam
شنبه 30 آذر 1387, 02:16 صبح
سلام
اول از دستور remove حرف هایی که تو متن شما هست رو باید حذف کنید و بعدش متن رو کپی کنین که بسته گی داره به متن شما. مثلا اگه میدونید حرف سوم به درد شما نمیخوره باید اینکار رو بکنید

dim string as string=textbox1.text ="11111-1111
string.remove(6,1
textbox2.text=srting

shahrdar
شنبه 30 آذر 1387, 03:32 صبح
کد زير فکر کنم کمکت کنه

مثلاً

Textbox1.text = "Salam234Bye456k56" (يا هرچيزه ديگيه اي)

با اين دستور فقط عداد رو به تکست بکس 2 ميبره که ميشه اين 23445656


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SText As String = ""
For Each T As Char In TextBox1.Text
If IsNumeric(T) Then
SText &= T
End If
Next

TextBox2.Text = SText
End Sub

rezapassword
شنبه 30 آذر 1387, 10:48 صبح
سلام دوستان
ممنون بابت زحمتتون
کد دوست گلم shahrdar جان کار کرد
ممنو