Question

VB 如何删除文本框第一行的空行?

例如文本框1(mutiline=true)内容如下:

Text1

Text2
Text3
Text4

Text5

……

如何删除上面的很多空行?

在知道中看到只替换第一个回车换行符的代码是：Text1.Text = Replace(Text1.Text, vbCrLf, "", 1, 1) 。
不是删除第一行上面的空行，而是所有空行！但要确保删除空行后还是按行排列的呀（文本还是一行一行的）！这一点一定要注意呀！！！

Answer 1

Private Sub Command1_Click()
Do While InStr(Text1.Text, " " + vbCrLf) > 0
Text1.Text = Replace(Text1.Text, " " + vbCrLf, vbCrLf) '清除换行符前的空格。
Loop
Text1.Text = Replace(Text1.Text, vbCrLf + vbCrLf, vbCrLf) '清除行与行之间的空行。
If InStr(Text1.Text, vbCrLf) = 1 Then Text1.Text = Replace(Text1.Text, vbCrLf, "", 1, 1)'清除为首的空行。
End Sub
试试就OK，谁用谁知道，一般人我还不告诉他。

Answer 2

Private Sub Command2_Click()
On Error GoTo err
Dim newxls As New Excel.Application
Dim newbook As New Excel.Workbook
Dim newsheet As New Excel.Worksheet

newxls.Visible = False
Set newbook = newxls.Workbooks.Add()

newbook.Sheets("sheet1").Select
Set newsheet = newbook.Sheets("sheet1")
newxls.Range("a1").Formula = "=" & "clean(" & Text1 & ")" 'Text1为你要过滤的内容
Text2 = newxls.Range("a1").Value 'text2为结果
If err.Number > 0 Then MsgBox err.Description
newxls.Save
Set newxls = Nothing
Set newbook = Nothing
Set newsheet = Nothing
Exit Sub
err:
MsgBox "请安装EXCEL"
End Sub

Answer 3

text1.text=replace(text1.text,chr(10),"")
我测试了啊.所有空行一扫而光,只有粘在一起的字

Answer 4

Text1.Text = Replace(Text1.Text, vbCrLf, "")