vbScript чтение файла из определенной строки

Question

Привет всем, у меня есть сомнения, о том, как читать файл .txt , начинающийся с определенной строки, я получил номер строки, которую хочу начать читать, и яЯ пытаюсь прочитать его, но всегда начинаю с первой строки

И требуется несколько минут, чтобы добраться до нужной мне строки

Вот мой код

'Call F_CMN_GRL_FindObjects(17,15)

strProperty = F_CMN_GRL_GlobalMain(6,17,15,0,"all items" )

strLine = split(strProperty,",")
    Print strLine(0)
strValor = split(strLine(0)," ") 
    Print strValue(1)

numberLine = strValue(1)
Call readFromLine(numberLine)
Function readFromLine(numberLine)

    numberLineEnd =numberLine + 7
    print numberLine
    print numberLineEnd
'   Option Explicit

    Dim oFso : Set oFso = CreateObject("Scripting.FileSystemObject")
    Dim oFile : Set oFile = oFso.OpenTextFile("C:\myFile.txt", 1)
'   Dim myArray()
'   ReDim myArray(0)

    'numberLine it's the number line from I want to start to read and I want to read until numberLineEnd            
    For i = numberLine to numberLineEnd step 1
        strLine = oFile.ReadLine

        print strLine
    Next
        'i = i + 1
        'numberLine = numberLine + 1
End Function 

Answer 1

Я решил это, сделав это так:

Dim i 
    Do While (i <= numeroLineaFin)
        If (i => numeroLinea) and (i<=numeroLineaFin) Then
'           If i <= numeroLineaFin Then
'               tmpstr = tmpstr & oFile.readline & VbCrLf
                tmpstr = oFile.readline
                print tmpstr
'           else
'            oFile.SkipLine
'           End If
        else
            oFile.SkipLine
        end if
        i = i + 1
    Loop