问 如何让replace 替换后 进行回车？

Question

比如，我一个text1里有 "123#456#678#"  我想把#替换掉 让其成为：
123
456
678

Answer 1

Option ExplicitPrivate Sub Command1_Click()
  Text1.Text = Replace(Text1.Text, "#", vbCrLf)
End SubPrivate Sub Form_Load()
Text1.Text = "123#456#678#"
End Sub'Text1让多行文本显示为True

Answer 2

如果有空行呢？  如果让text里空行 替换掉？？

Answer 3

换掉空行'请先用我上面的方法替换为多行广西.
Option ExplicitPrivate Sub Command1_Click()
  Dim Arr As Variant
  Dim i As Long
  
  Arr = Split(Text1.Text, vbCrLf)
  
  Text1.Text = ""
  
  For i = 0 To UBound(Arr) - 1
     If Len(Arr(i)) > 0 Then
        Text1.Text = Text1.Text & Arr(i) & vbCrLf
     End If
  Next
  
  Text1.Text = Text1.Text & Arr(UBound(Arr))
End Sub

Answer 4

删除空行 Private Sub Command1_Click()
    Dim s As String
    s = Text1.Text
    Do While InStr(s, vbCrLf & vbCrLf) <> 0
        s = Replace(s, vbCrLf & vbCrLf, vbCrLf)
    Loop
    Text1.Text = s
End Sub

Answer 5

删除空行
Private Sub Command1_Click()
    Dim s As String
    s = Text1.Text
    s = Replace(s, vbCrLf & vbCrLf, vbCrLf)
    s = Replace(s, vbCrLf & vbCrLf, vbCrLf)
    Text1.Text = s
End Sub

Answer 6

FvFlove的回答没得说：你随便试：什么空行之类－－都是个特殊符号而已。
Replace都能给他换了。不过FvFlove 3楼的回答有点那个^_^，
另外：如果LZ说的是把空行仅仅换成回车的话：这样也行
Text1.Text = Replace(Replace(Text1, vbCrLf & vbCrLf, "#"), "#", vbCrLf)
就是说先把他那个空白的空行给他自动取消。
但是说清楚：这样子不能保证最后的结果里面没有空行的。
比如，测试字符串："Text1#" & vbcrlf & "adsf"这个换完就有空行了