如何计算字符串中以空格分隔的子字符串的数量

Gop*_*pal 1 vb6 substring count

Dim str as String
str = "30 40 50 60"
Run Code Online (Sandbox Code Playgroud)

我想计算子串的数量.

预期产出: 4

(因为总共有4个值:30,40,50,60)

我怎样才能在VB6中实现这一目标?

Non*_*nym 5

你可以试试这个:

arrStr = Split(str, " ")
strCnt = UBound(arrStr) + 1
msgBox strCnt
Run Code Online (Sandbox Code Playgroud)

当然,如果你已经Option Explicit设置了(你应该......),那么首先声明上面的变量.