클립보드 문자열 잘라서 그리드뷰로
| p, td, ul, ol, li { font-size:12px; line-height:140%; margin-top:0; margin-bottom:0; } body { font-size:12px; } Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim xt As String = RichTextBox1.Text.Trim RichTextBox1.Text = "" RichTextBox1.Text = xt Dim tmpstr As String = RichTextBox1.Text() ' 문자열 가져옴 If tmpstr <> "" Then Dim rowArray As String() = tmpstr.Split(vbLf) ' 문자열을 잘라서 문자열 배열에 할당 Dim i As Integer For i = 0 To rowArray.Length - 1 Dim colArray As String() = rowArray(i).Split(vbTab) ' 칼럼구분자로 문자열 배열 만듬 If Asc(colArray(0).Chars(0)) = 10 Then tmpstr = colArray(0) colArray(0) = tmpstr.Substring(1) End If DataGridView1.Rows.Add(colArray) 'dgvResult ' DataGridView에 Row 추가 Next End If End Sub
|