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

[ROSTAM2]

این تاپیک راه حلی است برای سوال این تاپیک:
سوال: خروجی گرفتن از یک عبارت رشته ای متغیر بصورت یک عبارت رشته ای دیگر (barnamenevis.org) (https://barnamenevis.org/showthread.php?577779-%D8%AE%D8%B1%D9%88%D8%AC%DB%8C-%DA%AF%D8%B1%D9%81%D8%AA%D9%86-%D8%A7%D8%B2-%DB%8C%DA%A9-%D8%B9%D8%A8%D8%A7%D8%B1%D8%AA-%D8%B1%D8%B4%D8%AA%D9%87-%D8%A7%DB%8C-%D9%85%D8%AA%D8%BA%DB%8C%D8%B1-%D8%A8%D8%B5%D9%88%D8%B1%D8%AA-%DB%8C%DA%A9-%D8%B9%D8%A8%D8%A7%D8%B1%D8%AA-%D8%B1%D8%B4%D8%AA%D9%87-%D8%A7%DB%8C-%D8%AF%DB%8C%DA%AF%D8%B1)


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 حرفی معرفی شده که ویدیوی تصحیحی لینک شد....
برای مشاهده ویدئوی آموزشی لینک (https://www.aparat.com/v/8bGpF) را کلیک کنید (https://www.aparat.com/v/8bGpF)

[ROSTAM2]

تصحیح اشتباه در ویدیوی تبدیل رشته حاوی عدد به رشته و آرایه حاوی حروف و کلمات (https://www.aparat.com/v/VztPj)