[请教]关于去除空行

zsy02111 发布于 2013-04-17 20:35， 448 次点击

做一个按钮，一个TEXT框。
简单的说就是按钮去除空行（如果该行不为空就不用退格）
比如：
123

456
按钮作用：
123
456
而不是：123456

2 回复

zsy021112013-04-17 20:55

回复楼主 zsy02111

自己写了下，帮忙看下错在哪里。貌似实现不了。

Private Sub Command6_Click()
S = Split(Text1.Text, vbNewLine)
For i = 0 To UBound(S)
If Len(S(i)) > 0 Then
S(i) = Replace(Text1.Text, vbCrLf, Chr(8))
End If
Next i
End Sub

lowxiong2013-04-17 22:21

Private Sub Command6_Click()
  Dim a As String, b As String
  a = Text1
  Do
    b = a
    a = Replace(a, vbCrLf & vbCrLf, vbCrLf)
  Loop Until a = b
  Text1 = a
End Sub

[ 本帖最后由 lowxiong 于 2013-4-17 22:23 编辑 ]