我的代码又重新改了一下Text1是原始数据Text2是排列后的结果Command1是执行分组的按钮注意:Text1.MultiLine = TrueText1.ScrollBars = 2Text2.MultiLine = TrueText2.ScrollBars = 2要预先设置下面是代码Private Sub Command1_click()Text2.Text = ""Open "c:\a.txt" For Output As #1Print #1, Text1.TextClose #1Dim a As StringDim b() As String, i As IntegerOpen "c:\a.txt" For Input As #1Do While Not EOF(1)Line Input #1, aReDim Preserve b(i) As Stringb(i) = b(i) & ai = i + 1LoopClose #1Dim j As IntegerFor j = 0 To UBound(b) - 5 '5代表每组5条数据Text2.Text = Text2.Text & "第" & j + 1 & "组" & Chr(13) & Chr(10)For i = j To j + 4 '4代表每组4+1条数据Text2.Text = Text2.Text & b(i) & Chr(13) & Chr(10)Next iNext jKill "c:\a.txt"End Sub