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

答案:3 悬赏:70 手机版

解决时间 2021-03-22 05:43

提问者网友：我一贱你就笑
2021-03-21 06:14

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

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

text3
text4

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

最佳答案

五星知识达人网友：人间朝暮
2021-03-21 07:37

建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

全部回答

1楼网友：等灯
2021-03-21 09:20

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

2楼网友：洎扰庸人
2021-03-21 08:22

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息