文本框固定行数间隔的问题.

这个数据是哪里来的？
是原来就是在text1里，要重新改格式吗？

例子：
Private Sub Command1_Click()
Dim aa() As String
Dim bb(13) As String
Dim cc As String
Text2 = ""
j = 0
aa = Split(Text1, vbCrLf)
For i = 0 To UBound(aa)
If Trim(aa(i)) <> "" Then
bb(j) = aa(i)
j = j + 1
Else
cc = Join(bb, vbCrLf)
Text2 = Text2 & cc
j = 0
Erase bb
End If
Next

End Sub

啧啧啧，分真多。。哈哈
俺用C/C++/JAVA/PERL实现都可以，LZ想用哪种？

用循环写啊
外围循环是总共有多少组，里面嵌套的循环次数为13