需要删除额外线条的视觉基本功能

Question

我需要删除额外线条的visual basic函数。和截图一样。 enter image description here

Answer 1

Dim s As String
s = "That long string..."
While (s <> s.Replace(VbNewLine + VbNewLine, VbNewLine)
s = s.Replace(VbNewLine + VbNewLine, VbNewLine);
Loop

Answer 2

不太清楚你在问什么。

Public Function RemoveEmptyLines(ByVal Value As String) As String
    RemoveEmptyLines = Replace(Value, vbLf & vbCr, vbNullString)
End Function