Nefunkční substring ve smyčce – .NET – Fórum – Programujte.com

Tady je muj kód, potřebuju dostat z txt souboru určité "věty", dělám to pomocí substring, ale ten my nefunguje ve smyčce, funguje jenom jeden, ostatní už ne..

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim obj As Integer = 0

        Dim file As New IO.StreamReader("C:\Documents and Settings\nFx\Plocha\LESDK Game\levels\1.txt")



        While Not file.EndOfStream

            Dim str As String = file.ReadLine()

            Dim str8 As String = file.ReadLine()

            Dim rovno As Integer

            Dim carka As Integer

            Dim pozice As String



            rovno = str.IndexOf("=")

            carka = str.IndexOf(",")



            pozice = str.Substring(rovno + 1)



            output.Text += "PositionEntity(obj" & obj & ", Vec3(" & pozice & "))" & System.Environment.NewLine



            output.Text += "PositionEntity(obj" & obj & ", Vec3(" & str8.Substring(9) & "))" & System.Environment.NewLine



            obj += 1

        End While

        file.Close()

    End Sub

startIndex cannot be larger than length of string. Parameter name: startIndex

lebo:
str = riadok[loop*2];
str2 = riadok[loop*2 + 1];

v vb nerobim, co je ta 9 v SubString(9)

Edit: pred vypisanim substringu si daj vypisat dlzku str a str8

To Miro1701 : ta 9 znamena od kteryho charu se to "vystřihne"

To aTTix : a preco prave 9 a preco nepouzijes len str ale aj str2, tym padom ti nacita 2 vety

To Miro1701 : 9 právě proto, že od 9 týho znaku chci vystrihnout tu vetu.. A proc pouzivam dve str ? To protoze potrebuju dve (a potom i více) stringů ze souboru v jiným " psaným formátu"

Tzn. že u každý druhý věty budu chtít aby se mi ta veta vypsala trochu jinak, viz. :

output.Text += "PositionEntity(obj" & obj & ", Vec3(" & pozice & "))" & System.Environment.NewLine







         output.Text += "PositionEntity(obj" & obj & ", Vec3(" & str8.Substring(9) & "))" & System.Environment.NewLine