Jak wczytać linijki z notatnika do tablicy?

kosmita90he

2015-09-19T13:09:13+02:00

Rejestracja: dni
Ostatnio: dni
Postów: 95

W jaki sposób mogę wczytać zawartość Notatnika:

1 - http://link
2 - http://nextlink
3 - http://kolejny
4 - http://nastepnylink

Chce aby z każdej linijki usuwała się liczba + " - " i odpowiednio wpisywał się do tablicy sam link
tablica(liczba - 1) = link

Kopiuj

        Dim tablica(100) As String
        Dim arrLines() As String = TextBox2.Text.Split(CChar(vbLf))
        Dim intValue As Integer
        For Each line As String In arrLines
            If line.Contains(CStr(intValue) + (" - ")) Then
            tablica(intValue - 1) = line.Replace(CStr(intValue) + (" - "), "")
            End If
        Next

Próbowałem cośtakiego...ale IntValue jest zerem...i to nie działa dobrze...a mi chodziło o to że jeśli jest liczba + " - " to......

@kAzek

Tumeg

2015-09-19T13:27:43+02:00

Rejestracja: dni
Ostatnio: dni
Postów: 687

Najpierw szukasz, gdzie jest pierwsze "h" - http://www.dotnetperls.com/indexof-vbnet
Teraz bierzesz część stringa od znalezionego miejsca do jego końca -http://www.dotnetperls.com/substring-vbnet

kAzek

2015-09-19T13:49:10+02:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: Gorlice

Kopiuj

        Dim arrLines() As String = TextBox1.Text.Split(vbNewLine)
        Dim pattern As String = "^[\x0A\x0D]?\d+\x20-\x20" '[\x0A\x0D]? aby czasem nie zostal vbLf lub vbCr
        For i As Integer = 0 To arrLines.Length - 1
            arrLines(i) = Regex.Replace(arrLines(i), pattern, "")
        Next
        TextBox2.Text = String.Join(vbNewLine, arrLines)

EDIT
@kosmita90he zmieniłem pattern tak będzie dokładniejszy (obowiązkowo spacja po myślniku)