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?

Preguntas similare

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?






email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida