Question

vb 删除文本空格行

Answer 1

dim tmpStr
dim resStr as String'处理后的字符串

tmpStr=split(text1.text,vbcrlf)

for i=lbound(tmpStr) to ubound(tmpStr)
    if Trim(tmpStr(i))<>"" then
        resStr=resStr & tmpStr(i) & vbCrLf
        end if
next

print resStr'显示处理后的字符串

假设 字符串都在 text1.text 中

这种处理只适用于一般的简单情况，还会出现其他情况，如果你遇见了就追问。

Answer 2

Private Sub CommandButton1_Click()
Dim str As String '处理完后放回textbox的字符串
Dim arr() As String
arr = Split(TextBox1.Value, vbCrLf) '通过换行符分割textbox内的文本
 
For i = 0 To UBound(arr)
    If Trim(arr(i)) <> "" Then
        str = str & arr(i) & vbCrLf '循环遍历，如果改行不是空行，则讲数组内文本拼接到输出用字符串变量
    End If
Next i
 
TextBox1.Value = str '讲新字符串放回textbox

End Sub

Answer 3

Dim tmpStr() As String

tmpStr = Split(TextBox1.Text, vbCrLf)

TextBox1.Text = ""

For i = 0 To UBound(tmpStr)

If tmpStr(i) <> "" Then

TextBox1.Text = TextBox29.Text & tmpStr(i) & vbCrLf

End If

Next