如何分隔字符串并计算字符串中的字符数减去空格

Question

我的代码需要帮助，该代码显示一个输入框，用户输入一个名称，然后代码拆分名称并计算显示以下内容的名称：

Sub ParseName()
    Dim Name As String
    Dim Count As Integer
    Dim Cell As Object
    Dim n As Integer
    
    Count = 0
    Name = InputBox("Enter First Name, Middle Name, and Last Name")
    If Name = "" Then
        For Each Cell In Selection
         n = InStr(1, Cell.Value, Name)
         While n <> 0
            Count = Count + 1
            n = InStr(n + 1, Cell.Value, Name)
      Next Cell
    MsgBox Count & " Occurrences of " & Name
    End If
End Sub

Answer 1

绝对地。您可以拆分名称，但这可能无济于事。 VBA 的拆分不允许您拆分单个字符，AFAIK，因为如果您将它们拆分为特定的分隔符，其他语言可能会这样做。因此，您可以使用 MID 遍历字符以查看每个字母是否为空格。

有一种方法无需任何拆分或循环。您可以只替换空格并获取剩余内容的长度。

Len(Replace(Name, " ", ""))

其中 REPLACE 只是用另一个字符串替换一个字符串，在这种情况下，将所有空格都替换为空，而 LEN 只计算字符串中的字符。

这是使用此方法重写的代码，删除了不必要的代码和变量。我还会更改 Name 变量，因为我相信这是 VBA 中的保留字。它会让你这样做，但你可能会影响一些现有的行为。出于这个特定目的，使用独立函数来获取字符数是一些事情

Sub ParseName()

    Dim fullName As String, charCount As Integer
    
    fullName = InputBox("Enter First Name, Middle Name, and Last Name")
    If fullName <> "" Then
        charCount = Len(Replace(fullName, " ", ""))
        MsgBox fullName & " has " & charCount & " characters"
        End If
    
End Sub

但是请记住，您可能不想计算许多其他字符代码。制表符、换行符、许多空白字符中的任何一个。非字符符号。那种性质的东西。

此外，此代码不会检查字符串是否包含字母，或者用户输入是否包含三个名称，或者是否采用 First Middle Last 格式。