تبدیل رشته حاوی عدد به رشته و آرایه حاوی حروف و کلمات

[ROSTAM2]

این تاپیک راه حلی است برای سوال این تاپیک:
سوال: خروجی گرفتن از یک عبارت رشته ای متغیر بصورت یک عبارت رشته ای دیگر (barnamenevis.org)

        Dim strword1, strword2 As String

        strword1 = InputBox.Text

        Dim Spl As String() = Split(strword1, ",")

        Dim Output(Spl.Length - 1) As String

        For i = 0 To Spl.Length - 1

            Output(i) = Choose(Val(Spl(i)) + 1, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

        Next

        strword2 = Join(Output, ",")

        Me.OutputStringBox.Text = strword2

        For Each Letter As String In Output

            Me.OutputListBox.Items.Add(Letter)

        Next

تذکر: در این ویدیو حروف انگلیسی بجای 26 حرف 32 حرفی معرفی شده که ویدیوی تصحیحی لینک شد....
برای مشاهده ویدئوی آموزشی لینک را کلیک کنید

[ROSTAM2]

تصحیح اشتباه در ویدیوی تبدیل رشته حاوی عدد به رشته و آرایه حاوی حروف و کلمات