Split Number

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

نقل قول:

---

نوشته شده توسط پرستو پارسایی

با سلام چطور میتونم این (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

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