مشکل در جدا کردن رشته

[arsalansalar]

با سلام
من برای split کردن یک متن از کد زیر استفاده می کنم.

Dim s AsString = TextBox1.Text
Dim arr() AsString = Split(s, "*")
For i AsInteger = 0 To UBound(arr)
t11.Text = arr(i)
Next

اما مشکلی که دارم این است. فرض کنید اطلاعاتی به شکل زیر وارد کنیم:


a
*
b
این کد حرف b را بر می گرداند.برای اینکه فقط حرف a برگردد چه تغییری باید در آن دهیم؟

[amirsajjadi]

با سلام خدمت دوست خوبم
مشکل شما از برنامتونه :

Dim s AsString = TextBox1.Text
Dim arr() AsString = Split(s, "*")
For i AsInteger = 0 To UBound(arr)
tl1.Text = arr(i)
Next

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

Dim s AsString = TextBox1.Text
Dim arr() AsString = Split(s, "*")
For i AsInteger = 0 To UBound(arr)
tl1.Text += arr(i)
Next