جدا کردن حروف

برنامه ی زیر حروف متن وارد شده را جدا کرده و برمی گرداند.

در این برنامه به یک دکمه با نام command1 و یک کادر متن با نام text1 نیاز دارید .

Private Sub Command1_Click() ReDim m(Val(Len(Text1.Text))) As String Cls For i = 1 To Len(Text1.Text) m(i) = Mid(Text1.Text, i, 1) Print m(i) Next MsgBox " My Email: mojtaba.shirvani@yahoo.com " End Sub

خواندن اطلاعات JSON از فایل - اندروید استودیو...