تجزیه آیتم های لیست باکس

[king ag]

سلام به همه دوستان گرامی
من یک سوال داشتم
الان یک لیست باکس به نام list1 داریم
در list1 گزینه های به صورت زیر اومده:
علی حسن
حسین نقی
...
یعنی د اسم به وسیله یک خط فاصله از هم جدا شده اند
تعدادش هم زیاده(تعدادش که مهم نیست، از این جهت گفتم زیاده که به فکر سرعت برنامه هم باشید)

من چطور میتونم این اسامی را به دو اسم تبدیل و در دو متغیر مختلف ذخیره کنم؟
یعنی مثلا علی بشه a و حسن بشه b
مجددا حسین بشه a و نقی بشه b
و ...
یعنی مثلا به وسیله حلقه for این عمل تکرار بشه
امیدوارم منظورم رو درست رسونده باشم
خیلی ممنون
موفق باشید

[just4froum]

با سلام

ببین این کد به کارت میاد

Dim a() As String, b() As String
Private Sub Command1_Click()
Dim x As Integer, strSplit() As String
ReDim a(1 To List1.ListCount)
ReDim b(1 To List1.ListCount)

For x = 1 To List1.ListCount

strSplit = split(List1.List(x - 1), " ")
a(x) = strSplit(0)
b(x) = strSplit(1)
Next x
End Sub



موفق باشید

[king ag]

خیلی ممنون
یه تغییاتی توش دادم درست شد