vb6.0 处理txt 将txt行按倍数进行分组

vb6.0编程

需要将txt文件按照6行一组进行分组，

然后每组比如说：

我爱你中国
伟大的母亲
我为你自豪
我爱你中国
伟大的母亲
我为你自豪

然后进行处理，最终变成比如说：

这是一首简单的小情歌
我爱你中国，
伟大的母亲，
我为你自豪，
我爱你中国，
伟大的母亲，
我为你自豪，
我要选李白

然后放到一个新的txt里面去

留个邮箱吧，把例子给你发过去

我没有太理解。你是这个意思吗？

Private Sub Command1_Click()
Dim a, x As Long
a = Split(Text1.Txt, vbCrLf)
Text1.Txt = ""
For i = LBound(a) To UBound(a)
    If i Mod 6 = 0 Then
        x = x + 1
        Text1.Txt = Text1.Txt + "组 " & x & vbCrLf & a(i) & vbCrLf
    Else
        Text1.Txt = Text1.Txt + a(i) & vbCrLf
    End If
Next i
End Sub

Option Explicit
 
Private Sub Command1_Click()
Dim strLine As String, strTemp() As String
Dim x() As Double, y() As Double, n As Long, i As Long
 
    n = -1
    Open "c:\test\testdata.txt" For Input As #1
    Do Until EOF(1)
        Line Input #1, strLine
        
        If Left(strLine, 1) = "P" Then
            strLine = Mid(strLine, 2)
            Do Until InStr(strLine, "E") Or EOF(1)
                If Right(strLine, 1) = ";" Then strLine = Left(strLine, Len(strLine) - 1)
                strLine = Trim(strLine)
                
                strTemp = Split(strLine, " ")
                For i = 0 To UBound(strTemp) Step 2
                    n = n + 1
                    ReDim Preserve x(n)
                    ReDim Preserve y(n)
                    
                    x(n) = Val(strTemp(i)) * 0.001
                    y(n) = Val(strTemp(i + 1)) * 0.001
                Next i
                
                Line Input #1, strLine
            Loop
            Exit Do
        End If
    Loop
    Close #1
    
    For i = 0 To n
        Debug.Print i, Format(x(i), "0.000"), Format(y(i), "0.000")
    Next i
End Sub