IndexOutOfRangeException - чтение через файл

Question

Итак, я пытаюсь прочитать файл, и у меня есть индексный набор в качестве счетчика, поэтому я могу перейти от символа к символу в файле, чтобы найти индекс, в котором находятся ° s. Я продолжаю получать IndexOutOfRangeException, хотя я не знаю, что не так.

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 

Я получаю сообщение об ошибке в индексе в chr = numDat (index). Любая помощь будет оценена, спасибо!

Редактировать: Я забыл упомянуть, что numDat - это строка, которая уже была прочитана во всем файле.

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

Answer 1

Вы можете найти все вхождения ° как это:

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