计算字符串前后空格的数量

Question

我正在Excel VBA中逐行读取文件.

我有一些字符串,例如,

"             ooo"
"         ooo                   "

我想找到字符串前面的空格数.如果我使用Trim,它会从字符串的后面和前面删除空格.

Answer 1

你可以使用LTrim和RTrim函数. - 我认为这比循环字符串和进行字符比较更快.

Public Function NumberOfLeadingSpaces(ByVal theString As String) As Long
    NumberOfLeadingSpaces = Len(theString) - Len(LTrim(theString))
End Function

Public Function NumberOfTrailingSpaces(ByVal theString As String) As Long
    NumberOfTrailingSpaces = Len(theString) - Len(RTrim(theString))
End Function