我需要一个带有字符串索引的数组,如下所示:
Dim Array ("A") as integer' <-- I need an array like this
Dim StringArray() as string = {"A","B","C","A","A","B","D"}
For each Letter in StringArray
Array(Letter) += 1
next我想要但不起作用的结果:
Array(A) = 3
Array(B) = 2
Array(C) = 1
Array(D) = 1我也尝试了List的,但不起作用:
Dim Array As New List(Of Object)
Dim StringArray() as string = {"A","B","C","A","A","B","D"}
For each Letter in StringArray
Array(Letter) += 1
next在VB .Net中有没有这样计算字符串的方法?
发布于 2016-08-11 01:55:49
您可以使用Dictionary(Of TKey, TValue),其中字母是键,值将存储总计:
Dim dict = New Dictionary(Of Char, Integer)
dict.Add("A"c, 0)
dict.Add("B"c, 0)
dict.Add("C"c, 0)
dict.Add("D"c, 0)
Dim stringArray() As Char = {"A"c, "B"c, "C"c, "A"c, "A"c, "B"c, "D"c}
For Each letter In stringArray
dict.Item(letter) += 1
Next

https://stackoverflow.com/questions/38880370
复制相似问题