تابعی مشابه Split

[hossein71]

همون طور که می دونید وقتی متغیری را مساوی تابع split قرار می دیم،متغیر تبدیل به آرایه می شود.حالا من هم می خوام تابعی بنویسم که اگر متغیری را با آن مساوی قرار دادیم. متغیر را تبدیل به آرایه بکنه.اگر کمکم کنید خیلی ممنون میشم.

[vbhamed]

سلام

Private Function MySplit(s$) As String()

MySplit = Split(s, ",")

End Function

Private Sub Form_Load()

Dim s() As String

s = MySplit("a,b,c")

End Sub

[hossein71]

اگر در مورد کد بالا توضیحاتی بدید خیلی ممنون میشم.

[hossein71]

مشکلم حل نشد چیکار کنم؟

[vbhamed]

سلام

در كد بالا تابع MySplite از نوع آرايه اي با بعد نا مشخص تعريف شده كه بعدا بعد مي گيره
آرايه S هم از نوعي با تعداد عناصر نامشخص تعريف شده كه با فراخواني تابع عناصرش مشخص ميشه

[hossein71]

ضمن تشکر از جناب vbhamed
میشه کاری کرد که بدون تعریف بعد همین کارو انجام داد(dim s as string)؟چون تابع Split هم به همین گونه است.

[vbhamed]

ضمن تشکر از جناب vbhamed
میشه کاری کرد که بدون تعریف بعد همین کارو انجام داد(dim s as string)؟چون تابع Split هم به همین گونه است.

سلام
نه نميشه بدون بعد چون تابع Split هم اين گونه نيست !
فقط مي تونيد به صورت زير بنويسيد كه Variant تعريف ميشه


Private Function MySplit(s$)

MySplit = Split(s, ",")

End Function

Private Sub Form_Load()

Dim s

s = MySplit("a,b,c")

End Sub