IndexOutOfRangeException - Reading through a file

Question

So I am trying to read through a file and I have index set as a counter so I can move from character to character in the file to find the index where the °s are at. I keep getting IndexOutOfRangeException even though I have no clue what is wrong.

 Dim chr As String
    Dim c1 As String
    Dim c2 As String
    Dim c3 As String
    Static index As Integer = -1
    index += 1
    chr = numDat(index)

    While Asc(chr) <> 176
        index += 1
        chr = numDat(index)
    End While

I am getting the error at the index in chr = numDat(index). Any help will be appreciated, thanks!

Edit: I forgot to mention that numDat is a string that has read in the whole file already.

numDat = My.Computer.FileSystem.ReadAllText(path + fileName)

No idea what this is, but it sure isn't VB6 so your tags are wrong. maybe The Great Pretender VB.Net since it has a `+=` in it? — Bob77, Sep 26 '15 at 01:18
@bob77 I honestly do not know. This is the first time I am taking this class called Advanced Visual Basic. — Jordan Skosnick, Sep 26 '15 at 01:20
Duplicate of [What is IndexOutOfRangeException and how do I fix it?](http://stackoverflow.com/questions/20940979/what-is-indexoutofrangeexception-and-how-do-i-fix-it) — Bjørn-Roger Kringsjå, Sep 26 '15 at 07:36
That's where the confusion comes from, VB.Net is not "VB" but another thing altogether relabeled as such in hopes of market acceptance. — Bob77, Sep 26 '15 at 15:18

score 0 · Accepted Answer · answered Sep 26 '15 at 03:05

0

You can find all occurrences of ° like this:

numDat = My.Computer.FileSystem.ReadAllText(path + fileName)
Dim index As Integer = numDat.IndexOf("°")
While index <> -1
    Debug.Print(index)
    index = numDat.IndexOf("°", index + 1)
End While

answered Sep 26 '15 at 03:05

Idle_Mind

38,363
3
29
40

IndexOutOfRangeException - Reading through a file

1 Answers1