none
Extraer Nombre en un listbox usando split RRS feed

  • Pregunta

  • Hola chicos, soy nuevo aunque siempre me pasaba por aquí para sacar algunos ejemplos, soy un poco nuevo con vb.net y espero que me puedan ayudar con esto que no puedo solucionar. Tengo un archivo de texto(txt) que con tiene los siguientes datos:

    PLAYER LIST
    -----

    00000 - Nombre (Skincolor: 0)
    00001 - Nombre1(Skincolor: 0)
    00002 - Nombre2(Skincolor: 0)
    00003 - Nombre3 (Skincolor: 0)
    00004 - Nombre4 (Skincolor: 0)
    00005 - Nombre5 (Skincolor: 0)
    00006 - Nombre6 (Skincolor: 0)
    00007 - Nombre7 (Skincolor: 0)
    00008 - Nombre8 (Skincolor: 0)
    00009 - Nombre9 (Skincolor: 0)
    00010 - Nombre10 (Skincolor: 0)
    00011 - Nombre11 (Skincolor: 0)

    Lo que no puedo lograr es cargar en un listbox los nombres excluyendo los números y lo que está entre paréntesis!

    Muchas gracias, espero que me puedan ayudar con esto quizas es una cosa facil que por ahora no puedo solucionar jeje!

    martes, 25 de junio de 2019 14:50

Respuestas

  • Hola

    intenta con esto


    Dim c As String = "00000 - Nombre (Skincolor: 0)"
    Dim cad As String() = c.Split("-")
    cad = cad(1).Split("(")
    ListBox1.Items.Add(cad(0).Trim())
    

    martes, 25 de junio de 2019 15:12
  • Hola

    intenta con esto

    Function Leer() As Boolean
    
            Dim FILE_NAME As String = "C:\Lista.txt"
    
            Dim TextLine As String
    
            If System.IO.File.Exists(FILE_NAME) = True Then
    
                Dim objReader As New System.IO.StreamReader(FILE_NAME)
    
                Do While objReader.Peek() <> -1
    
                    Dim cad As String() = objReader.ReadLine.Split("-")
                    cad = cad(1).Split("(")
                    ListBox1.Items.Add(cad(0).Trim())
    
                Loop
    
    
    
            Else
    
                MessageBox.Show("File Does Not Exist")
    
            End If
    
        End Function


    • Marcado como respuesta Lucas Gutierrez miércoles, 26 de junio de 2019 14:53
    miércoles, 26 de junio de 2019 3:41

Todas las respuestas

  • Hola

    intenta con esto


    Dim c As String = "00000 - Nombre (Skincolor: 0)"
    Dim cad As String() = c.Split("-")
    cad = cad(1).Split("(")
    ListBox1.Items.Add(cad(0).Trim())
    

    martes, 25 de junio de 2019 15:12
  • Funciona bien, muchas gracias!, y como lo agrego para cargar desde el archivo txt?, mi rutas es ( "C:\list.txt")

    martes, 25 de junio de 2019 15:33
  • Hola

    intenta con esto

    Function Leer() As Boolean
    
            Dim FILE_NAME As String = "C:\Lista.txt"
    
            Dim TextLine As String
    
            If System.IO.File.Exists(FILE_NAME) = True Then
    
                Dim objReader As New System.IO.StreamReader(FILE_NAME)
    
                Do While objReader.Peek() <> -1
    
                    Dim cad As String() = objReader.ReadLine.Split("-")
                    cad = cad(1).Split("(")
                    ListBox1.Items.Add(cad(0).Trim())
    
                Loop
    
    
    
            Else
    
                MessageBox.Show("File Does Not Exist")
    
            End If
    
        End Function


    • Marcado como respuesta Lucas Gutierrez miércoles, 26 de junio de 2019 14:53
    miércoles, 26 de junio de 2019 3:41
  • Muchas Gracias, Funciona perfecto!
    miércoles, 26 de junio de 2019 15:16