求助！文档操作

Question

图片中是要处理的文本文档的一部分，想要进行的操作是将channel一行下面的数字串解析，冒号前的数字为序号，不是待处理的内容，即1：后面为8个数据，下一行是从第9个数据开始，后面的数字是固定格式，每个字符串占用8个字符，现在是在操作某个公式后计算得出了需要处理的字符串的编号，如处理的是从第5个数据开始至第50个数据相加累计求和的操作（即从第一行开始的第五个数=9开始直至第七行=914之间的数相加），现在不知道怎么做，请高手指点！！谢谢！！

Answer 1

笨办法：Dim n As Long, lngData() As Long, strLine As String, i As IntegerOpen App.Path & "/Nbsstd.txt" For Input As #1
Redim lngData(LOF(1) - 1)
Do Until EOF(1)
    Line Input #1, strLine
    If InStr(strLine, ":") Then
        For i = 0 To 7
            lngData(n + i) = Val(Mid(strLine, i * 8 + 7, 8))
        Next i        n = n + 8
    End If
Loop
Redim Preserve lngData(n - 1)
----------------------------------------------------
Dim lngSum As Long, i As Integer
For i = 5 To 50
    lngSum = lngSam + lngData(i)
Next i