Visual Basic - Cargar txt sin delimitador en datagridview

Life is soft - evento anual de software empresarial
   
Vista:

Cargar txt sin delimitador en datagridview

Publicado por Pedro (1 intervención) el 16/05/2013 22:14:00
saludos, tengo un archivo en txt que me remite una empresa, el caso es que dicho archivo no posee delimitadores, he tratado de crar una interfaz para cargarlo a una grilla sin exito, quisiera saber como hacerlo. Realice esta funcion pero el primer registro aparece en la cabecera del datagird no se pq, ademas quisiera saber como añadir el archvio mediante un openfiledialog. Estoy usando Net Framework 4Agradezco su respuesta
adjunto mi codigo

Public Function GetDataText() As DataTable

Try
' Establecemos la conexión con el archivo de texto,
' especificando en el parámetro Data Source la ruta
' completa de la carpeta que contiene el archivo,
' sin el nombre de éste.
'
Using cnn As New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Carpeta;" & _
"Extended Properties='TEXT;HDR=Yes'")

Dim cmd As OleDbCommand = cnn.CreateCommand()

' Aquí es donde se especifica el nombre del archivo de texto.
'
cmd.CommandText = "SELECT * FROM [W7195#txt]"

Dim da As New OleDbDataAdapter(cmd)
Dim dt As New DataTable()

da.Fill(dt)

Return dt

End Using

Catch
Throw

End Try

End Function


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
DataGridView1.DataSource = GetDataText()

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

End Sub

y estas son 4 filas de mi archivo de texto

0710100238670401210529 CUSACANI MAMANI HUGO WILLY 0650000081400000000272232600000002722326001001280920120000000025000000027223260000000000000067534900000000000000000000000000016500027223261004201302000000001
0710100520709643635511 GARATE BARREDA FELICIANO 0650000079320000000188765600000001853020001001280920120000000025000000018530200000000000000018829000000000000000000000000000010000018530201004201302000000001
0710100494206043248236 HERNANDEZ SANGAY JOSE LUIS 0650000079520000000130816000000001305040004048100520130000000005510600000311890000017121000000000000000000000000000000000000679600000400001004201302000000001
0710100492884903891888 HUALLPA GUTIERREZ WILFREDO FEL0650000079600000000134285600000001342856001001280920120000000025000000013428560000000000000032672800000000000000000000000000008000013428561004201302000000001
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder