Resultados 1 al 2 de 2

Tema: leer archivo de texto desde VB.net

  1. #1 leer archivo de texto desde VB.net 
    Iniciado
    Fecha de ingreso
    Jun 2010
    Mensajes
    26
    Descargas
    17
    Uploads
    0
    Jovenes, alguien podria ayudarme con esto:

    1.Tengo archivo de texto donde tengo la siguiente información
    [ABECEDARIO]
    abcdefghi....

    [NUMEROS]
    123456789

    [SIGNOS]
    -*!"$%&/()

    2.necesito leer primero los encabezados ([ABECEDARIO],[NUMEROS] y [SIGNOS])
    y meterlos en una listview

    3.Seleccionar desde la listview (dando clic) sobre el item y que vaya
    a leer nuevamente el archivo de texto.
    y desplegar el detalle.

    Lo que me precisa entender es leer el encabezado y detalle (distinguirlos)
    ya que con la lectura del archivo no tengo problemas

    saludos cordiales


    pd. este es actualmente mi codigo

    Option Explicit On

    Public Class Form1
    Private Sub Form1_Load( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load

    Try
    Dim SRuta As String = "c:\archivo.text"
    Dim sContenido As String = vbNullString
    Dim sListaEncabezados As String = vbNullString
    With My.Computer.FileSystem
    ' verifica si existe el path
    If .FileExists(SRuta) Then

    sContenido = .ReadAllText(SRuta)

    MsgBox(sContenido.ToString, MsgBoxStyle.Information, "Datos")
    Else
    MsgBox("Ruta Inválida", vbCritical, "Error")
    End If
    End With
    ' errores
    Catch ex As Exception
    MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
    End Try
    End Sub
    End Class
    Citar  
     

  2. #2  
    Avanzado
    Fecha de ingreso
    Feb 2002
    Mensajes
    161
    Descargas
    15
    Uploads
    0
    Espero te sirva

    Código:
    dim sDato as String
    Dim Valor as integer
    valor=0: scontenido=scontenido+vbcrlf
    do while scontenido<>""
     sdato=mid(scontenido,1,instr(scontenido,vbcrlf)-2)
     'msgbox "_"+sdato+"_"
     if valor =1 then
      'Aqui quedarian las instrucciones para el abecedario
     elseif valor=2 then
      'Aqui quedarian las instrucciones para los numeros
     elseif valor=3 then
      'aqui quedarian las instrucciones para los signos
     else
      'Este puede que no se utiliza pero es mejor evitar cualquier error 
     end if
     selec case sdato
      case  "[ABECEDARIO]"
       Valor=1
      case "[NUMEROS]"
        Valor=2
      case "[SIGNOS]"
        valor=3
      case else
       'que hara cuando no coincida con la cabezera
     end select  
     scontenido=mid(scontenido,instr(scontenido,vbcrlf)+2)
     'msgbox "_"+scontenido+"_"
    loop

    Los msgbox es para ver que no haya tomado los siguientes caracteres vbcr o vblf si asi fuera donde va el mas menos dos incremanda o decrementa el numero como sea necesario.

    Saludos. feliz codificacion.

    pd. este codigo aun se puede simplificar mas para no estar comparando linea con linea todo el archivo.

    pd2. creo que no habra mucha dificultad para pasar de vb6 a net
    Programo en Visual Basic 6
    'Por si se me olvido agregar el lenguaje...
    Citar  
     

Temas similares

  1. Cómo leer desde/hasta en un fichero de texto. en VB.NET
    Por Arg0s en el foro PROGRAMACION DESKTOP
    Respuestas: 0
    Último mensaje: 06-11-2013, 20:48
  2. Respuestas: 0
    Último mensaje: 06-10-2009, 21:21
  3. Respuestas: 1
    Último mensaje: 17-03-2008, 11:36
  4. leer archivo texto
    Por oRa en el foro INGENIERIA INVERSA
    Respuestas: 10
    Último mensaje: 25-01-2006, 15:13
  5. leer mensajes de texto de un movil desde la web?
    Por claudio34ar en el foro TELEFONÍA MOVIL
    Respuestas: 1
    Último mensaje: 13-01-2006, 21:31

Marcadores

Marcadores

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •