تبدیل رشته به کاراکتر

[afshin006 6]

من میخام یک رشته را بگیرم و کاراکتر های آن را تک تک در آرایه بریزم ، لطفا راهنمایی بفرمایید

 

[پژمان نیکروان 6,055]

سلام.

برای جداسازی و ریختن توی لیست:

Dim arr As List
arr.Initialize
Dim str As String="matnTest"
For i=0 To str.Length-1
	arr.Add(str.SubString2(i,i+1))
Next

و برای نمایش دادن تک تک آیتم های لیست:

For ii=0 To arr.Size-1
	Msgbox(arr.Get(ii),"")
Next

که خروجی میشه این:

M

a

t

n

T

e

s

t