Leer archivo de texto [SOLUCIONADO]

[freegirl]

Hola,

estoy intentando leer un archvio de texto que contiene campos delimitados por un cárcater: "#". La finalidad es llenar un dataset con los campos del archivo de texto.

He probado varias cosas pero no me lee todo el archivo.

¿Alguien tiene alguna idea de como se hace?

Otra solución que me valdría es importar los datos del archivo de texto a una tabla Access. Lo he intentado con el código que hay más abajo, pero me coge cada fila como si fuera 1 sólo campo, y no es así ya que cada fila del txt corresponde a 7 campos:

Try
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;Data Source=c:\prueba.mdb")
Dim cmd As New OleDb.OleDbCommand("SELECT * INTO [import] FROM [Text;Database=c:\;HDR=Yes;FMT=Delimited].[miArchivo.txt]", conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

Catch ex As Exception
MsgBox(ex.ToString)
End Try

¿Hay alguna forma de indicarle que los campos están delimitados por x carácter? Ya que con FMT=Delimited no me sirve.

SAludos

[freegirl]

Bueno ya lo solucioné. Ahora aquí no tengo el código, pero ya pondré la solución.

saludos

[Korku]

Hola freegirl,

Bueno, yo normalmente lo que hago para importar datos de un fichero txt a una tabla es usar el objeto StreamReader ... te doy un ejemplo:

Código:

        Dim path As String = "C:\prueba.txt"
        Dim sr As StreamReader = File.OpenText(path)

        Dim cadenaSQL As SqlCeCommand = conn.CreateCommand
        Dim linea As String

        Do
            Try

                linea = sr.ReadLine()

                If Not linea = "" Or Not linea = Nothing Then

                    cadenaSQL.CommandText = "INSERT INTO prueba(p_codigo,p_nombre) " & _
                    "VALUES " & _
                    "('" & Trim(Mid(linea, 1, 4)) & "'," & _
                    "" & Replace(Trim(Mid(linea, 5, 40)), ",", ".") & "" & _
                    ")"

                    cadenaSQL.ExecuteNonQuery()

                End If

            Catch ex As SqlCeException
                MsgBox(ex.Message)
                Exit Sub
            End Try

        Loop Until linea Is Nothing

        sr.Close()
        cadenaSQL.Dispose()

        sr = Nothing
        cadenaSQL = Nothing

Espero que te sirva de algo,

Saludos

[Korku]

Bueno, demasiado tarde jejeje. Pues nada, me alegro que hayas encontrado la solución :)

Saludos

[ledht]

@freegirl Un favor podrias poner tu codigo???

gracias!°!!

[freegirl]

vete a saber dónde está el código ese jajaj. Es un post del año 2006!!

Y el código que ha posteado korku no te sirve?