Indeks wykracza poza tablice

[Geddo]

Indeks wykracza poza tablice wywala błąd przy kodzie:

 

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'wczytuje wszystkie linijki
        Dim lines = IO.File.ReadAllLines("gothic.ini", System.Text.Encoding.UTF8)
        'wyciagam poszczegolne linijki i tekst z nich
        Dim line2 = lines(1).Split("="c)(1)
        Dim line3 = lines(2).Split("="c)(1)

        Using writer = New IO.StreamWriter("System\gothic.ini", False, System.Text.Encoding.UTF8)
            'zmieniam linijki
            line2 = "zVidResFullscreenX=" & TextBox1.Text
            line3 = "zVidResFullscreenY=" & TextBox2.Text
            lines(1) = line2
            lines(2) = line3
            writer.Write([string].Join(vbLf, lines))

            'zapisuje 2 linijki
            writer.Write(line2 + ControlChars.Lf)
            writer.Write(line3 + ControlChars.Lf)
        End Using
    End Sub

[matixd3]

Czemu jest Split("="c) ? Chodzi o literke c

 

Pewnie w ktorejs linii nie ma =

[Geddo]

Czemu jest Split("="c) ? Chodzi o literke c

 

Pewnie w ktorejs linii nie ma =

 

to chodzi o c czy = bo z tego gadania nie nic nie rozumiem

[Szymon2727]

#Delete.

 

#Pozdrawiam techników tej strony. Kawał dobrej roboty.

[matixd3]

to chodzi o c czy = bo z tego gadania nie nic nie rozumiem

Po co wstawiles tam literke c?

A error wydaje mi sie jest dlatego ze array zwrocony przez splita ma wielkosc 1 lub mniej a ty chcesz pobrac 2 element tego arraya

[BremLOL]

   Dim line2 = lines(1).Split("="c)(1)
   Dim line3 = lines(2).Split("="c)(1)

Udaję, że nie widziałem takiego błędu

Powinno być to tak:

Dim str = IO.File.ReadAllLines("gothic.ini", System.Text.Encoding.UTF8)
Dim line1 As String
line1 = str(0).Split("=")

System.Console.WriteLine(line(1))