Split Number

[پرستو پارسایی]

با سلام چطور میتونم این (BETA0012*90_587896584_458*1250*11003201*77850) اعداد و حروف بین ستاره ها رو ببرم تو 5 عدد تکست باکس که ستاره ها نباشن ممنون میشم در صورت اطلاع پاسخ دهید سپاسگزارم

[the king]

با سلام چطور میتونم این (BETA0012*90_587896584_458*1250*11003201*77850) اعداد و حروف بین ستاره ها رو ببرم تو 5 عدد تکست باکس که ستاره ها نباشن ممنون میشم در صورت اطلاع پاسخ دهید سپاسگزارم


Dim s = "(BETA0012*90_587896584_458*1250*11003201*77850)"
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*77850)"
Dim args = s.Trim("(", ")").Split("*")
For i = 1 To 5
Controls.Item("TextBox" & i).Text = args(i - 1)
Next

[پرستو پارسایی]

از پاسخگویی شما سپاسگزارم هر دو روش عالی کار کرد