Leer archivo de texto delimitado por comas o |

13/02/2007 - 12:19 por Ira | Informe spam

Hola,

Me gustaría conocer una forma más elegante de leer un archivo delimitado por
|

Lo he hecho de la siguiente manera pero es un poco chapu.

linea=sr.readline

RegistroNuevo("Codigo") = Trim(Mid(linea, Pos, InStr(Pos, linea, "|") - 1))

Pos = InStr(Pos, linea, "|") + 1

RegistroNuevo("Descripcion") = Trim(Mid(linea, Pos, (InStr(Pos, linea,
Chr(124)) - Pos)))

Pos = InStr(Pos, linea, Chr(124)) + 1

RegistroNuevo("cantidad") = CInt(Mid(linea, Pos, InStr(Pos, linea, "|") -
Pos))

He encontrado en el msdn una forma de hacerlo pero no me sirve (será porque
uso vb .net 2003).
http://msdn2.microsoft.com/es-es/library/cakac7e6(VS.80).aspx

¿Alguna pista?

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Guardar archivo de Excel como texto delimitado por punto y coma

Leer las respuestas

#1 Angel. E. Ruiz. P

13/02/2007 - 14:13 | Informe spam

Amigo el articulo que leiste es para VS 2005

aqui tienes el codigo para 2003

Imports System.IO

Dim txt As StreamReader = New StreamReader("c:\Documents and
Settings\aruiz.INTRAVEN\Escritorio\angel.txt", System.Text.Encoding.ASCII)

Dim lineaArchivo As String

Do

lineaArchivo = txt.ReadLine()

Dim Split As String()

Split = lineaArchivo.Split(";")

Loop Until lineaArchivo Is Nothing

Saludos cordiales,
Ángel Ruiz
MCTS .NET Framework 2.0 Windows Applications
Caracas - Venezuela
"El conocimiento es un bien, que crece a medida que se comparte"

"Ira" escribió en el mensaje
news:

Hola,

Me gustaría conocer una forma más elegante de leer un archivo delimitado
por |

Lo he hecho de la siguiente manera pero es un poco chapu.

linea=sr.readline

RegistroNuevo("Codigo") = Trim(Mid(linea, Pos, InStr(Pos, linea, "|") -
1))

Pos = InStr(Pos, linea, "|") + 1

RegistroNuevo("Descripcion") = Trim(Mid(linea, Pos, (InStr(Pos, linea,
Chr(124)) - Pos)))

Pos = InStr(Pos, linea, Chr(124)) + 1

RegistroNuevo("cantidad") = CInt(Mid(linea, Pos, InStr(Pos, linea, "|") -
Pos))

He encontrado en el msdn una forma de hacerlo pero no me sirve (será
porque uso vb .net 2003).
http://msdn2.microsoft.com/es-es/library/cakac7e6(VS.80).aspx

¿Alguna pista?

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida