قرار دادن مقادیر یک ارایه در یک متغیر پشت سر هم

[tondar2008]

یک ارایه دارم با 3 تا ایتم میخوام مقادیرشون پشت سر هم در یک متغیر استرینگ قرار بگیره به طوریکه بین هر کدوم از مقادیر علامت"+" و فاصله باشه و اگر ایتمی از ارایه مقدار نداشته باشه این علامت و فاصله رو در نظر نگیره.

مثلا در حالت عادی اینطوری خروجی بده : a=a1 b=a2 c=a3 -> b= +a1 +a2 +a3
در حالتی که ایتمی خالی باشه: a=a1 b= c=a3 -> b= +a1 +a3

البته در واقعیت این ایتمها تقریبا 25 تا هست من برا نمونه 3 تا گفتم

ممنون

[ROSTAM2]

For i=0 to Ubound(MyArray) -1

Next

[tondar2008]

For i=0 to Ubound(MyArray) -1

Next

ممنون ROSTAM2 (http://barnamenevis.org/member.php?248107-ROSTAM2) عزیز از کدی که گذاشتی استفاده کردم البته اونی که من میخواستم نبود ولی این کد رو جای دیگه استفاده کردم.

راه حل این مشکلم ساده بود ولی الکی چند ساعتمونو گرفت

از ورودی های مقادیر ارایه باید یه if میگرفتم اگر مقادیر موجود بود میزارم داخل ارایه(با همون علامت و فاصله) اگر نبود خالی میزاشتم موقع کنار هم گذاشتنشون خود vb مقادیر خالی رو قرار نمیده و در اخر اون کدی میشه که من میخوام


Dim a(2) As String
Dim b As String
Dim m1 As String = 10
Dim m2 As String = 20
Dim m3 As String = 30
If m1 = 10 Then
a(0) = " +a1"
End If
If m2 = 20 Then
a(1) = " +a2"
End If
If m3 = 30 Then
a(2) = " +a3"
End If
b = a(0) & a(1) & a(2)
MsgBox(b)

بازم تشکر از توجهتون