none
Ordenar alfabeticamente un archivo.txt con Visual Basic

    Pregunta

  • Estoy creando un programa que en si es una Agenda la cual solo guarda los nombres, teléfono y dirección... y los datos que se ingresen se guardan en un archivo de texto.

    Pero necesito ordenar por medio de un boton todos estos registros, y que se muestren en el mismo archivo de texto

    Espero ser claro.... Y que alguien me conteste lo mas pronto posible

    miércoles, 21 de septiembre de 2016 0:47

Respuestas

  • Hola Alejandro29115,

    ¿Vas a ordenar por algún campo en específico ? Si es así, cuál es el separador entre elementos ...

    Si solo quieres ordenar por cada fila puedes hacer uso de la función OrderBy(..)

        Private Sub btnOrdernar_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Try
                Dim ruta As String = "C:\.....\file.txt"
                Dim lineas = File.ReadAllLines(ruta).ToList().OrderBy(Function(x) x)
                File.WriteAllLines(ruta, lineas)
    
                MessageBox.Show("Archivo ordenado!")
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    • Marcado como respuesta Alejandro29115 miércoles, 21 de septiembre de 2016 1:43
    miércoles, 21 de septiembre de 2016 1:35

Todas las respuestas

  • Hola Alejandro29115,

    ¿Vas a ordenar por algún campo en específico ? Si es así, cuál es el separador entre elementos ...

    Si solo quieres ordenar por cada fila puedes hacer uso de la función OrderBy(..)

        Private Sub btnOrdernar_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Try
                Dim ruta As String = "C:\.....\file.txt"
                Dim lineas = File.ReadAllLines(ruta).ToList().OrderBy(Function(x) x)
                File.WriteAllLines(ruta, lineas)
    
                MessageBox.Show("Archivo ordenado!")
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    • Marcado como respuesta Alejandro29115 miércoles, 21 de septiembre de 2016 1:43
    miércoles, 21 de septiembre de 2016 1:35
  • Hola!!

    Necesito ordenarlos de acuerdo a los nombres

     
    miércoles, 21 de septiembre de 2016 1:40