CODEWITHSUNDEEP
vb.netdatagridview
noidea
noidea

Reputation: 184

Multiline Textbox to Datagridview

I have a multi-line textbox with this appearance:

A#B
C#
D#E

and I want to populate my datagridview to something like this:

_________
|A|BC|D|E|

I mean, I want to split when there's a "#" , but I don't want multi-line cells in datagridview.

I tried this code:

Dim sup() As String = TextBox1.Text.Split(vbCr, vbLf, vbTab, " "c, "#")
DataGridView1.Rows.Add(sup(0), sup(1), sup(2),sup(3))

but it says it goes outta bounds ... Thanks!

edit: "Index out of range exception" Error.

If i paste the textbox values to microsoft word they come like this: textbox to word

Upvotes: 0

Views: 1218

Answers (2)

noidea
noidea

Reputation: 184

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
    If DataGridView1.RowCount = 1 Then DataGridView1.Rows.Clear()
    Call dgvstuff()
    Timer1.Stop()
End Sub


Sub dgvstuff()
    Dim sup2 = TextBox2.Text.Replace("#", "").Replace(">", " "c)
    Dim sup() = sup2.Split(" "c, "#", vbCrLf, vbTab)

    With DataGridView1
        .Rows(0).Cells(0).Value = sup(1).ToString
        .Rows(0).Cells(1).Value = sup(7).ToString
        .Rows(0).Cells(3).Value = sup(4).ToString
    End With
End Sub

I really don't know why but it works like this. Anyone knows a better/cleaner way? Tks

Upvotes: 0

Jim Ciccone
Jim Ciccone

Reputation: 20

If you are sure you will be splitting your textbox with 3 #'s, you could use something like this after creating 3 columns in your datagridview

Dim myStr As String
Dim substring As String
Dim strArray() As String
Dim columnInt as Integer = 0

myStr = Textbox1.Text 
strArray = myStr.Split("#")

For i = 0 to strArray.Length - 1
Datagridview.Rows(0).Cells(columnInt).Value = strArray(i)
columnInt += 1
next

As I am not quite sure how you want this data to appear exactly, you may also need to declare the count of your columns should it be larger than 3. Add this code before the first For Statement:

For i = 0 to strArray.Length - 1
DataGridView.Columns.Add("YourText","YourText")
Next

Untested but it should get you in the right spot! *Edit: Updated after testing

Upvotes: 1

Related Questions