mantener los últimos charaters en listbox VB.NET

visual-studio-2010 sorting

Question

Estoy tratando de cargar un archivo .txt en un richtextbox (Point_BOX), luego borro todos menos los últimos 5 caracteres en un listbox (Point_LIST). He buscado en línea y hasta ahora la única forma en que puedo hacer que funcione es eliminar los primeros 75 caracteres de la línea (las líneas en el archivo .txt deben tener 80 caracteres, pero a veces es más / menos).

    Point_BOX.Clear()
    Point_LIST.Items.Clear()
    OpenPointDialog.ShowDialog()
    FileName = OpenPointDialog.FileName
    Dim sr As IO.StreamReader = IO.File.OpenText(FileName)
    Dim line As String = ""
    Point_BOX.Text = sr.ReadToEnd
    For i As Integer = 0 To sr.Peek = -1
        line = sr.ReadLine()
        Dim allText As String = sr.ReadToEnd()
        Point_BOX.Text = Point_BOX.Text & line & vbNewLine
    Next
    sr.Close()

    ''Clean up report
    Point_LIST.Items.AddRange(Point_BOX.Lines)
    Dim ir As Integer = Point_LIST.Items.Count
    Dim xr As Integer
    For xr = 0 To ir - 2
        Point_LIST.Items(xr) = Point_LIST.Items(xr).substring(75)
    Next xr

Esto funciona si no hay líneas que tienen menos de 80 caracteres, pero a veces el informe puede tener algunas palabras sueltas en una línea. Pensé en hacer otro ciclo que verifica cuántos personajes hay en una línea y si es menor que 80, pasar a la siguiente línea pero no puedo ayudar, pero creo que hay una mejor manera. Al revés de "substring (75)" (string (5)?)

Answer 1

Pruebe algo como esto en su lugar:

    Point_BOX.Clear()
    Point_LIST.Items.Clear()
    If OpenPointDialog.ShowDialog = DialogResult.OK Then
        FileName = OpenPointDialog.FileName
        Point_BOX.Lines = System.IO.File.ReadAllLines(FileName)
        For Each line As String In Point_BOX.Lines
            Point_LIST.Items.Add(Microsoft.VisualBasic.Strings.Right(line, 5))
        Next
    End If

Answer 2

prueba este Microsoft.VisualBasic.Right (String, 5)