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

[arsalansalar]

من در یک صفحه فرمم اطلاعات که شامل نام و شرح یک متن هست توسط کاربر گرفته می شود.
نحوه ورود متن به این شکل است که ابتدا 3 خط از متن نوشته می شود سپس 3 تا space زده می شود و بعد از آن ادامه متن نوشته می شود.
حال می خواهم در صفحه ای که قرار است متن نماسش داده شود فقط متنونی برگردد که قبل از space هستند.اگر دوستان لطف کنند راهنمایی ککند ممنون می شوم.

[eyes_shut_number1]

dim ar() as string
ar=textbox1.text.split(" ")
'متن مورد نظر در ar(0) میباشد

[arsalansalar]

dim ar() as string
ar=textbox1.text.split(" ")
'متن مورد نظر در ar(0) میباشد

یعنی در داخل(" ") 3 تا space بگذارم؟

[arsalansalar]

دوست عزیزم من برای bind کردن اطلاعاتم به دیتا گرید از کد زیر استفاده می کنم.
این دستوری که شما نوشته اید را چگونه به کار ببرم که فقط کلمات قبل از space فیلد text را در دیتا گرید نمایش دهد.


Sub BindDataGrid()
Dim con As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
con = New OleDbConnection(String.Format("provider = microsoft.jet.oledb.4.0 ; data source = {0}", Server.MapPath("~") + "\App_Data\web.mdb"))
da = New OleDbDataAdapter("Select name,text From data Order By id desc", con)
ds = New DataSet
da.Fill(ds)
DataGrid1.DataSource = ds
DataGrid1.DataBind()
End Sub

[eyes_shut_number1]

Sub BindDataGrid()
Dim con As OleDb.OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
con = New OleDbConnection(String.Format("provider = microsoft.jet.oledb.4.0 ; data source = {0}", Server.MapPath("~") + "\App_Data\web.mdb"))
da = New OleDbDataAdapter("Select name,text From data Order By id desc", con)
ds = New DataSet
da.Fill(ds)
For i AsInteger = 0 To ds.Tables(0).Rows.Count - 1
Dim str AsString = ds.Tables(0).Rows(i)("text")
Dim ar() AsString = str.Split(" ")
ds.Tables(0).Rows(i)("text") = ar(0)
Next
DataGrid1.DataSource = ds
EndSub

[arsalansalar]

دوست عزیزم یک دنیا ممنون.