如何计算变量

Question

Dim sum as string
sum = a,b,d,a,d,c...

我想计算变量

编码像这样的东西

if sum =  "a" then
  count(sum)
elseif sum = "b" then 
  count(sum)
  ....
end if

预期产出

a = 2
b = 1
c = 1
d = 2

如何在vb6中执行此操作

Answer 1

如果这些项目是单个字符，那么您可以用空白字符串替换它们并计算长度差异：

CountA = Len(sum) - Len(Replace(sum, "a", ""))

你也可以循环计算出现次数。

如果字符串更长，则需要使用Split（）函数，然后依次检查每个项目：

Dim dict as New Dictionary

sumList = Split(sum, ",")
For Each sumItem in sumList
  If dict.Exists(sumItem) then
      dict(sumItem) = dict(sumItem)  + 1
  else
      dict.Add(sumItem,1) 
  end if

Next

' loop through the dictionary for the output.

您应该能够轻松地将其转换为处理所有可能的值。