vb 怎么删除文本框最后一行空行?

vb 怎么删除文本框最后一行空行?

嗯,举个例子:
文本框内容如下:
text1
text2

text3
text4

text5
text6
-----这个最后一行是空的,想删除它.

建Text1, 改Multiline＝True，再建Command1.
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
If Right(Text1.Text, 2) = vbCrLf Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

Private Sub Command1_Click() temp = Split(Text1.Text, vbCrLf) Text1.Text = "" For i = 0 To UBound(temp) - 1 If temp(i) <> "" Then Text1.Text = Text1.Text & temp(i) & vbCrLf Next End Sub

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，谁用谁知道，一般人我还不告诉他。