請問,如何去掉一個多行文本框中的空行?

Question

程序運行時,將一列excel中的資料copy到一個文本框中,有一些行是空行,沒有意義,我想去掉它怎麼辦.

Answer 1

dim a 
dim i
dim str
a=split(text1.text)
for i=0 to a.ubound
  if a(i)<>"" then
    if str<>"" then
      str=str & a(i)
    end if
  end if
next

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Dim Arr() As String
    Dim Str As String
    Dim i As Long
    Arr = Split(Text1.Text, vbCrLf)
    For i = LBound(Arr) To UBound(Arr)
        If Len(Arr(i)) > 0 Then
            Str = Str & Arr(i) & vbCrLf
        End If
    Next
    Text1.Text = Str
End Sub

Answer 3

刚刚没用VB代码有误，以下就好
Dim a
Dim i
Dim str
a = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(a)
  If a(i) <> "" Then
    If str <> "" Then
      str = str & vbCrLf & a(i)
    Else
      str = a(i)
    End If
  End If
Next
Text1.Text = str
End Sub

Answer 4

每一行用vbcrlf 来隔开的，就根据两个vbcrlf 把中间的字符取出，然后做判断就可以了！