none
Como saco datos de un archivo de Texto? | [VB.NET] RRS feed

  • Pregunta

  • >Hello, World!_

    Tengo la Siguiente Pregunta:

    ¿Como saco datos desde un Archivo de Texto?

    Me Explico:

    Quiero que mi Aplicacion sace Textos desde un Archivo de Texto.

    Ejemplo: En un Archivo de Texto dice

    Nombre: Alejandro

    Edad: 19

    Ubicacion: Chile

    Que Saque esos Datos y los muestre en Varios TextBox por Separado

    He intentado con este Codigo pero no lo logro Adaptar

    Public Sub DATOS()
            Try
                Dim NOMBRE As String = InfoDATA(CONTADOR)
                NOMBRE = NOMBRE.Remove(0, NOMBRE.LastIndexOf("\") + 1)
                NOMBRE = NOMBRE.Replace(".WorCODE", "")
                Me.Text = NOMBRE.ToUpper & " | Micro DataBaseAppNameUltraPROv3000"
                For Each LINEA In File.ReadAllText(RUTADestino)
                    If TextBox4.Text.StartsWith("Nombre:") Then
                        TextBox1.Text = TextBox4.Text.Split(":")(1)
                    ElseIf TextBox4.Text.StartsWith("Edad:") Then
                        TextBox2.Text = TextBox4.Text.Split(":")(1)
                    ElseIf TextBox4.Text.StartsWith("Ubicacion:") Then
                        Dim OBSERVACIONES As String = My.Computer.FileSystem.ReadAllText(InfoDATA(CONTADOR).ToString.ToLower)
                        OBSERVACIONES = OBSERVACIONES.Remove(0, OBSERVACIONES.IndexOf("Ubicacion:") + 10)
                        TextBox3.Text = OBSERVACIONES
                    End If
                Next
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub

    El Codigo lo saque de una Antigua APP de mi micro-empresa. Pero no yo no fui el encargado de programarlo.

    Lo que entiendo del Codigo es que saca el Simbolo ":" para cortar, De esa manera saca los datos y los indexea

    Este Codigo tambien es necesario para que Funcione Correctamete el de Arriba.

        Public Sub CARGAR()
            InfoDATA = New ArrayList
            For Each FICHA In Directory.GetFiles(DIRCommons)
                InfoDATA.Add(FICHA)
                FICHA = FICHA.Replace(DIRCommons, "")
                FICHA = FICHA.Replace(".txt", "")
            Next
            DATOS()
        End Sub
    Es una Guerra personal contra el Programa que estoy Creando xD
    martes, 5 de diciembre de 2017 18:51

Respuestas

  • No deberías complicarte demasiado, si el archivo contiene los campos en filas recupera, de cada fila, la "segunda parte". 

    Dim Lines = System.IO.File.ReadAllLines("Path")
    
    TextBox1.Text = Lines(0).Split(":"c)(1).Trim()
    TextBox2.Text = Lines(1).Split(":"c)(1).Trim()
    TextBox3.Text = Lines(2).Split(":"c)(1).Trim()


     
    • Marcado como respuesta ElCris009 martes, 5 de diciembre de 2017 19:39
    martes, 5 de diciembre de 2017 19:09

Todas las respuestas

  • No deberías complicarte demasiado, si el archivo contiene los campos en filas recupera, de cada fila, la "segunda parte". 

    Dim Lines = System.IO.File.ReadAllLines("Path")
    
    TextBox1.Text = Lines(0).Split(":"c)(1).Trim()
    TextBox2.Text = Lines(1).Split(":"c)(1).Trim()
    TextBox3.Text = Lines(2).Split(":"c)(1).Trim()


     
    • Marcado como respuesta ElCris009 martes, 5 de diciembre de 2017 19:39
    martes, 5 de diciembre de 2017 19:09
  • No puedo Creer que la Solucion era tan Simple...

    Muchisimas gracias bro! :D

    martes, 5 de diciembre de 2017 19:41