Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Leer archivo de texto delimitado por comas o |

13/02/2007 - 12:19 por Ira | Informe spam
Ayuda Hacer una pregunta
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 debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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?






Preguntas similares

 

Busqueda sugerida :