Question

★★VB 删除空行★★

VB6.0，有TEXT1、COMMAND1。TEXT1的文本：TEST TEST1 TEST2 （注意：这里有3处空行！） 单击COMMAND1之后删除3处空行！那个TEXT1的返回结果为：TESTTEST1TEST2 如何实现？

Answer 1

Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, vbCrLf + vbCrLf, vbCrLf) '清除行与行之间的空行。End Sub