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)