Как посчитать переменную

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.

Вы сможете легко преобразовать это для обработки всех возможных значений.