مشکل با آرایه

سلام.

من یه متن دارم که توش یه کلمه هایی با کاما (,) از هم جدا شدن.

چجوری می تونم این رو آرایه کنم و توش یکی رو حذف کنم.

نکته: وقتی که هیچ ویرگولی نیست، باید کل متن برگردد.

مثلاً hello رو اگر Split کنم، بهم یه آرایه ی خالی میده!

و اگر باشه hello,cruel,world بهم یه آرایه ی 3 تایی بده و بتونم اون cruel رو حذف کنم و دوباره با کاما (,) Join ش کنم ولی 2 تا کاما کنار هم نیاد.


مرسی

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

کد:

---

Private Sub Command1_Click()
Dim str As String
Dim wd() As String

str = "hello,cruel,world "
wd() = Split(str, ",")

For Each y In wd()
MsgBox y
Next

End Sub

---

مرسی با همون String سر همش کردم رفت!
[ببخشید ها! ولی لعنت به این VB6! چرا بعضی ها هنوز گیر می دن که با اون بنویسیم؟]