پارت بندی در لیبل

[ehsankhan 256]

سلام من یه متن از دیتابیس میگیرم که به این شکل هست

سلام#چطوری#حالت خوبه

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

سلام
چطوری
حالت خوبه

 

برای همین از این کد استقاده کردم

 

Dim value As String = cur.GetString("matn")


Dim part() As String = Regex.Split("#",value)
Label1_matn.Text=part(0)&CRLF& part(1)&CRLF& part(2)

مشکل من اینجاست که میخوام خود برنامه از part(0) تا آخرین part(n) را بخونه و نمایش بده

 

[ehsankhan 256]

متن من توی دیتابیس

متن طولانی:#سلام#پایان

میخوام به این شکل باشه

متن طولانی:
سلام
پایان

 اما با این کدی که دادین اینطوری نمایش میده:

متن طولانی:سلام پایان

با این کد درست شد :

 

بجای &" " & اینو  &CRLF&   نوشتم درست شد .

Dim value As String = cur.GetString("matn")
Dim part() As String = Regex.Split("#",value)
For i=0 To part.Length-1
Label1_matn.text=Label1_matn.text &CRLF& part(i)
Next

ممنون از کمکت امین جان

[امین شاهدی 5,777]

با حلقه For این کار رو انجام بده دیگه

 

For i=0 To part.Length-1
labe1.text=labe1.text&" "&part(i)
Next

[msajad 501]

شما با IndexOf تعداد # ها رو بگیر و اون وقت از روش خودت برو

[ehsankhan 256]

شما با IndexOf تعداد # ها رو بگیر و اون وقت از روش خودت برو

 

چطوری ؟

[ehsankhan 256]

اینو زدم نشد !!!!!!!!!1

 

 

Dim value As String = cur.GetString("matn")
Dim part() As String = Regex.Split("#",value)
For i=0 To part.Length
Label1_matn.text=Label1_matn.text&" "∂(i)
Next

[امین شاهدی 5,777]

جلوی part.Length یه 1- بزارین : 

For i=0 To part.Length-1
labe1.text=labe1.text&" "&part(i)
Next

[ehsankhan 256]

 

جلوی part.Length یه 1- بزارین : 

For i=0 To part.Length-1
labe1.text=labe1.text&" "∂(i)
Next

 

 

 

اینم نشد !!!

	Dim value As String = cur.GetString("matn")
	Dim part() As String = Regex.Split("#",value)
	For i=0 To part.Length-1
	Label1_matn.text=Label1_matn.text &" "& part(i)
	Next

[امین شاهدی 5,777]

کد مشکلی نداره که ، چه اروری میده