نمونه کد برای تابع split

[shahabbasic]

به یک نمونه کد کوچیک که کار تابع split رو نشون بده احتیاج دارم (شکل کلی نه)

[سید حمید حق پرست]

سلام
ابع Split : آرايه ای از تعداد مشخصیرشته برمی گرداند که اين رشته ها توسط يک کاراکتر جداکننده ( delimiter ) از درونيک رشته استخراج شده اند .
فرمت کلی آن بصورت زير است :


Split(expression[, delimiter[, limit[, compare]]])
Expression : رشته اصلی
Delimiter : اين پارامتر اختياری استو کاراکتر جداسازی را نشان می دهد . در صورتيکه اين پارامتر وارد نشود کاراکترفاصله ( “ “ ) برای جداسازی استفاده می شود . در صورتيکه طول اين کاراکتر صفر باشديک آرايه تک عضوی که شامل کل expression است برگردانده می شود .
Limit : تعدادرشته های موجود در آرايه را نشان می دهد . در صورتيکه اين پارامتر داده نشود کليهرشته های جداشده در آرايه خروجی قرار می گيرند .
Compare : نوع جستجو را نشان میدهد . اگر اين پارامتر 0 داده شود جستجوی متنی انجام می شود و اگر 1 داده شودجستجوی باينری انجام می شود .

موفق باشید

یا علی (ع)

[just4froum]

این هم یک نمونه کد :
Dim matn As String
matn = "Salam Bar Shoma"

Dim s() As String
Dim x As Long

s = Split(matn, " ")

For x = 0 To UBound(s)
MsgBox s(x)
Next x

[SlowCode]

لطفا وظیفه UBound رو توضیح بدید.

[just4froum]

Ubound طول آرایه را مشخص می کند و Lbound مشخص می کند که آرایه از کجا شروع شده.
به عنوان مثال

Dim MyArr(12 to 20,13 to 14)

ubound(MyArr) = 20
ubound(MyArr,2) = 14
lbound(MyArr) = 12
Lbound(MyArr,2) = 13

[_behnam_]

البته فقط واسه تیکه کردن و قراردادن درون آرایه نیست!!
میتونید مستقیم یه قسمت رو جدا کنید و توی متغیر قرار بدید:

Dim X,Data as string
Data="Behnam-eslamirad-busher"
X=split(Data,"-")(1)
msgbox x