قرار دادن تمام آیتم های یک لیست در کنار هم

[Kazem Forghani 2,928]

سلام ،

دوستان شاید کمی سوالم مبتدیانه باشه.

تصور کنید یک لیست دارم که تعدادش مشخص کنید. می خوام محتوای هر آیتم رو در یک رشته قرار بدم.

 

لیست:

- سلام

- ایران

- آفرین

- انجمن

- برنامه نویسی

 

خروجی:

سلامایرانآفرینانجمنبرنامه نویسی

 

با تشکر

[مهدی ایزدی 9,203]

سلام مهندس

خدمت شما :

Sub Globals
	Dim l As List
	Dim st As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	l.Initialize
	l.Add("سلام")
	l.Add("خوبی")
	l.Add("چه خبر")
	l.Add("کجایی")
	l.Add("انجمن")
	l.Add("برنامه نویسی")
	l.Add("بیسیک")
End Sub


Sub Button1_Click
	For i = 0 To l.Size-1
		st = st & l.Get(i)
		Log(st)
	Next
	ToastMessageShow(st,True)
End Sub