نوشته شده توسط
پرستو پارسایی
با سلام چطور میتونم این (BETA0012*90_587896584_458*1250*11003201*77850) اعداد و حروف بین ستاره ها رو ببرم تو 5 عدد تکست باکس که ستاره ها نباشن ممنون میشم در صورت اطلاع پاسخ دهید سپاسگزارم
Dim s = "(BETA0012*90_587896584_458*1250*11003201*7785 0)"
Dim args = s.Trim("(", ")").Split("*")
TextBox1.Text = args(0)
TextBox2.Text = args(1)
TextBox3.Text = args(2)
TextBox4.Text = args(3)
TextBox5.Text = args(4)
Dim s = "(BETA0012*90_587896584_458*1250*11003201*7785 0)"
Dim args = s.Trim("(", ")").Split("*")
For i = 1 To 5
Controls.Item("TextBox" & i).Text = args(i - 1)
Next