vb 计算textbox 空行数

来源：百度知道 编辑：UC知道 时间：2024/06/03 19:12:47
怎样计算textbox 中 内容为空的行数?
0871love ,我要把一行内只有空格或Tab 符的也当作是空行

Private Sub Command1_Click()
Dim S As String
S = Text1.Text
Print "空行数有" & UBound(Split(S, vbCrLf & vbCrLf)) + IIf(Right(S, 1) = vbLf, 1, 0)
End Sub

Dim re
Set re = CreateObject("vbscript.RegExp")
re.IgnoreCase = True
re.Global = True
re.Pattern = "\n[\f\t\v ]*\r"
MsgBox re.Execute(Text1.Text).Count

'这样就能满足我的要求。
Private Sub Command1_Click()
Dim S As String
S = Text1.Text
s=replace(s,chr(32),"")
s=replace(s,chr(9),"")
Print "空行数有" & UBound(Split(S, vbCrLf & vbCrLf)) + IIf(Right(S, 1) = vbLf, 1, 0)
End Sub

两个ASCII码13之间字符数为1时就是空行