整理这样的文本需要如何来写呢?

现有一个文本
300行数据

我想保存其中任意一行以下的数据该如何编写呢?

比如保存第145行以下的数据到新的文本该如何分界提取出这个145行以下的数据保存呢?

或者找到145行的数据删除到前145行的数据保存剩下的也可以

关键是怎么来确定上下呢? --------------------编程问答--------------------     Dim strLine    As String

    Dim strValue() As String

    Dim LineCount  As Integer  '行数

    LineCount = 0

    Open "D:\My Projects\Temp\test.txt" For Input As #1

        Do While Not EOF(1)

            LineCount = LineCount + 1

            Line Input #1, strLine

            If LineCount > 145 Then



                '||……

                '||向另外文件中写一条

                '||……

            End If

        Loop

    Close #1

--------------------编程问答--------------------



Sub NewText()

    Dim Arr, k%, Str$



    Open Arr.Path & "\Test.txt" For Input As #1

    Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf): Reset

    For k = 0 To 144

        Arr(k) = ""

    Next

    For k = 145 To UBound(Arr)

        Arr(k) = Arr(k) & "↗"

    Next

    Str = Replace(Join(Arr, ""), "↗", vbCrLf)

    Open Arr.Path & "\Test01.txt" For Output As #1

    Print #1, Str: Reset

End Sub

--------------------编程问答--------------------

引用 2 楼 alzeng 的回复:

VB code

Sub NewText()
    Dim Arr, k%, Str$

    Open Arr.Path & "\Test.txt" For Input As #1
    Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf): Reset
    For k = 0 To 144
   ……

。。。。。。。。。。。。。。來頂的

补充：VB ,  API