Visual Basic，读取某些整数

Question

所以我正在编写将从文件中读取天气数据的代码。我现在拥有的是一个函数，如果文件中只有整数而没有标记它，则可以读取它。以下是我的文件示例：

January
2015

           High     Low     precip  Snow    Forecast    Avg. Hi     Avg. Lo
Thu
1/1/2015    40°     14°     0 in    0 in    Cloudy      38°           23°
Fri
1/2/2015    42°     23°     0 in    0 in    Cloudy      38°           23°
Sat
1/3/2015    36°     21°     0.58 in 0 in    Cloudy      38°           23°

我必须阅读高/低温度和平均高/低温度。如果只有我需要的数字并且没有标签，那么我可以在文件中读取的功能如下：

Public Sub getNext4Ints(ByRef int1 As Integer, ByRef int2 As Integer, ByRef int3 As Integer, ByRef int4 As Integer)

    int1 = getNextInteger()

    int2 = getNextInteger()

    int3 = getNextInteger()

    int4 = getNextInteger()

End Sub

Public Function getNextInteger() As Integer

    Dim charInt As String
    Dim chr As String
    Static index As Integer = -1

    index += 1
    chr = numDat(index)

    While Asc(chr) < 48 Or Asc(chr) > 57
        index += 1
        chr = numDat(index)
    End While

    charInt = chr

    While Asc(chr) >= 48 And Asc(chr) <= 57
        index += 1
        chr = numDat(index)
        charInt += chr
    End While

    Return CInt(charInt)

End Function

基本上我只是在阅读我需要的东西并跳过标签，例如日期，降雪，雪和预测时遇到了麻烦。对不起，我是vb的新手，似乎无法解决这个问题。谢谢。