vb去除空行和空格的简单示例

这篇文章主要为大家详细介绍了vb去除空行和空格的简单示例，具有一定的参考价值，可以用来参考一下。

感兴趣vb去除空行和空格的简单示例的小伙伴，下面一起跟随四海网的小编罗X来看看吧。

'四海网 www.q1010.com
Public Function TrimBlank(ByVal sTxt As String) As String  '去除空行
    Do While InStr(sTxt, vbCrLf & vbCrLf) <> 0
        sTxt = Replace(sTxt, vbCrLf & vbCrLf, vbCrLf)
    Loop
    TrimBlank = sTxt
End Function

 

Private Sub Command1_Click()
Do While InStr(Text1.Text, " " + vbCrLf) > 0
Text1.Text = Replace(Text1.Text, " " + vbCrLf, vbCrLf) '清除换行符前的空格。
Loop
Text1.Text = Replace(Text1.Text, vbCrLf + vbCrLf, vbCrLf) '清除行与行之间的空行。
If InStr(Text1.Text, vbCrLf) = 1 Then Text1.Text = Replace(Text1.Text, vbCrLf, "", 1, 1)'清除为首的空行。
End Sub

 

 

Text1.SelStart = 0      '全选代码
Text1.SelLength = Len(Text1)

本文来自：http://www.q1010.com/188/14293-0.html

注：关于vb去除空行和空格的简单示例的内容就先介绍到这里，更多相关文章的可以留意四海网的其他信息。

关键词：