جدا کردن کلمه ها از کارکتر "-"

[skh1300]

با سلام و خسته نباشی از همه دوستان
عید غدیر بر همگی مبارک
من یه جمله مثل "علی - علی رضا - حسن - حمید - رضا - کریم- مجید" حالا می خوام کلمهایی که بین کارکتر "-"رو بیرون بکشم و در یک کمبو قرار بدم یعنی جمله پس از انجام عملیات به شکل زیر در کمبو باکس نمایش بدم
علی
علی رضا
حسن
حمید
رضا
کریم
مجید
با تشکر از همه دوستان

[Ali_Prodes]

با سلام

یک کمبو باکس و یک کامند باتن بر روی فرم قرار داده و کدهای زیر را به پروژتون اضافه کنید



Private Sub Command1_Click()
Dim i As Integer
Dim str_Array() As String
str_Array() = Split("علي - علي رضا - حسن - حميد - رضا - کريم- مجيد", "-")

For i = LBound(str_Array) To UBound(str_Array)
Combo1.AddItem Trim$(str_Array(i))
Next
Combo1.ListIndex = Combo1.ListCount - 1

End Sub

[skh1300]

با سلام

یک کمبو باکس و یک کامند باتن بر روی فرم قرار داده و کدهای زیر را به پروژتون اضافه کنید



Private Sub Command1_Click()

Dim i As Integer
Dim str_Array() As String

str_Array() = Split("علي - علي رضا - حسن - حميد - رضا - کريم- مجيد", "-")


For i = LBound(str_Array) To UBound(str_Array)
Combo1.AddItem Trim$(str_Array(i))
Next

Combo1.ListIndex = Combo1.ListCount - 1

End Sub

ممنون از جوابی که دادی کامل و عالی بود
فقط میشه یکم در مورد دستوراش توضیح بدی

[Ali_Prodes]

با سلام



1: Dim i As Integer
2: Dim str_Array() As String

3: str_Array() = Split("علي - علي رضا - حسن - حميد - رضا - کريم- مجيد", "-")

4: For i = LBound(str_Array) To UBound(str_Array)
5: Combo1.AddItem Trim$(str_Array(i))
6: Combo1.ListIndex = Combo1.ListCount - 1
7: Next



در خط اول يک متغيير از نوع عدد صحيح و در خط دوم يک متغيير رشته اي که آرايه هم مي باشد تعريف مي کنيم

در خط سوم با استفاده از تابع دروني وي بي متن مورد نظر را بخش بخش مي کنيم که با معرفي متن مان و کارکتري که بخش کردن با پيدا کردن آن کاراکتر در متن انجام مي شود "-" کار را پي ميگيريم

در خط چهارم حلقه ما از کران پايين آرايه شروع مي شود و تا زماني که به کران بالاي آرايه برسد درون حلقه ما با هر بار اجراي حلقه به مقادير موجود در آرايه دسترسي پيدا کرده و آنرا به کمبو باکس اضافه مي کنيم

[pcdownload.bloghaa.com]

یه روش دیگه هم برای این کار کد زیر است :

Dim x As String
a = 1
x = "new-hello-timm-pip"
x = "-" + x + "-"
Do While InStr(a + 1, x, "-")
b = a
a = InStr(a + 1, x, "-")
k = Mid(x, b + 1, a - b - 1)
Combo1.AddItem k
Loop