Portapapeles a grid vb 2005

[doomkel]

Hola,

Tengo un problema con el clipboard... Lo que intento hacer es subir los datos de el portapapeles a una tabla de una base de datos por medio de vb 2005, pero el paso que no logro superar es como dar formato a lo que trae el portapapeles. Los datos que trae son de una tabla de una pagina de internet, y si los copio a excel si lo divide en columnas, se me ocurre poner los datos del portapapeles a un grid y asi ya poder trabajarlos, pero no logro dividir el portapapeles en lineas y columnas.

Se me ocurrio tambien pasarlo a un archivo de texto y de ahi subirlo, pero no se por que caracter esta dividido

No puedo dar con la solucion, ayudenme por favor!!

Los datos que trae son algo asi:

EAN SKU Descripción Pzas
7506174111120 1481082 CINTURON LEKS E1621925 1
7506174113551 1480740 CINTURON LEKS E1A11908 2

muchas gracias

[eledgarr]

Yo hice algo muy parecido el caracter que divide cada columna del archivo excel en el txt es el tabulador y puedes obtener un array de esos elementos por cada linea leida del txt aplicando un split por ejemplo:

linea_leida.Split(Chr(9)) y asi te crea tu array de elementos

pruebalo y si tienes alguna duda comentas

[doomkel]

si, muchas gracias eledgarr, no use el chr(10) pero si encontre como esta dividido el clipboard para hacer una matriz y ponerla en el grid esta es la solucion

Sub portagrid()
Dim rows As Integer = 0
Dim cols As Integer = 0

Dim s As String = Clipboard.GetText
Dim lines() As String = s.Split(vbLf)



For Each line As String In lines

dgData.Rows.Add()
Dim sCells() As String = line.Split(vbTab)

For cols = 0 To sCells.Length - 1

dgData.Item(cols, rows).Value = sCells(cols).ToString

Next

rows += 1


Next


End Sub

[eledgarr]

Con esto se ahorra uno el txt vaya que bien:

Dim s As String = Clipboard.GetText
Dim lines() As String = s.Split(vbLf)

y vbTab en lugar de Chr(9) se ve más elegante

pues aprendi algo nuevo y me ahorraste muchas lineas para abrir el txt copiar el portapapeles, leer el txt y cerrar el txt, gracias

[eledgarr]

Con esto se ahorra uno el txt vaya que bien:

Dim s As String = Clipboard.GetText
Dim lines() As String = s.Split(vbLf)

y vbTab en lugar de Chr(9) se ve más elegante

pues aprendi algo nuevo y me ahorraste muchas lineas para abrir el txt copiar el portapapeles, leer el txt y cerrar el txt, gracias