نحوه پارامتری کردن یک رشته

[amirreza619]

سلام دوستان . من یه رشته دارم :
salam//dostan//chetooooooryn//han
من میخام بصورت زیر هر پارامتر به یه متغیر داده شه :
p1 = salam
p2 = dostan
p3 = chetooooooryn
p4 = han

البته p1 رو کردم ( به زور :افسرده: )
راه ساده تری بگین که بدون دردسر اینارو اوکی کنم !

[Mr'Jamshidy]

Private Sub Form_Load()
Dim tmp As String
Dim i As Integer
Dim P() As String

tmp = "salam//dostan//chetooooooryn//han"

P = Split(tmp, "//")

MsgBox "Number Of Indexes: " & CStr((UBound(P) - LBound(P)) + 1)
For i = LBound(P) To UBound(P)
MsgBox "Index " & CStr(i) & ": " & P(i)
Next
End Sub

[the king]

سلام دوستان . من یه رشته دارم :
salam//dostan//chetooooooryn//han
من میخام بصورت زیر هر پارامتر به یه متغیر داده شه :
p1 = salam
p2 = dostan
p3 = chetooooooryn
p4 = han

البته p1 رو کردم ( به زور :افسرده: )
راه ساده تری بگین که بدون دردسر اینارو اوکی کنم !


Dim text As String
Dim params() As String
Dim p1 As String, p2 As String, p3 As String, p4 As String
text = "salam//dostan//chetooooooryn//han"
params = Split(text, "//")
p1 = params(0)
p2 = params(1)
p3 = params(2)
p4 = params(3)

[amirreza619]

ممنون :متعجب: فکر نمیکردم این وقت شب بیدار باشین :قلب: ، خیلی ممنون

[amirreza619]

و چجوری کنم وقتی رشته ای بصورت زیره :
par1//para2
دیگه سراغ پارامتر های 3 و 4 نره ؟! ( چون اینجوری ارور میده ) ( منم که اولمه از این کارا میکنم ) :گریه:

[Hashemvp]

دوست عزیز اگه ب کد های اقای جمشیدی دقت کنی
راحت متوجه میشی چطور استفاده کنی
برای کاری هم ک شما میخوای اول باید متوجه بشی چ تعداد هستن بعد داخل متغیر ها بریزیش
ک برای بدست اوردن تعداد پارامتر ها هم از این تیکه کد داخل کد های اقای جمشیدی میتونی راحت بدستش بیاری

CStr((UBound(P) - LBound(P)) + 1)

موفق باشی