Элемент словаря заполняется неправильно

Question

Я сошел с ума по этому поводу. У меня есть список, который доступен "на лету", как показано ниже. Я хочу иметь возможность создать массив или коллекцию, чтобы я мог использовать их в дальнейшем в al oop.

Xob::SISBTXTRPR-5298 
Xob::SISBTXTRPR-5326 
Xob::SISBTXTRPR-5327 
Xob::SISBTXTRPR-5328
Yob::SISBTXTRPR-3999
Yob::SISBTXTRPR-4000

Я попытался создать элемент словаря, как показано ниже, но результат не тот Я ожидаю, что

While i <= iPuntedIssuesCount 
    If sRemovedStoriesForTaskTracker.Exists(Trim(JSONObj("contents")("puntedIssues")(i)("assigneeName"))) Then
        sRemovedStoriesForTaskTracker(Trim(JSONObj("contents")("puntedIssues")(i)("assigneeName"))) = sRemovedStoriesForTaskTracker(Trim(JSONObj("contents")("puntedIssues")(i)("assigneeName"))) & " + " & JSONObj("contents")("puntedIssues")(i)("key") 
    Else
        sRemovedStoriesForTaskTracker.Add key:=Trim(JSONObj("contents")("puntedIssues")(i)("assigneeName")), Item:=JSONObj("contents")("puntedIssues")(i)("key")
    End If
    i = i + 1
Wend

sRemovedStoriesForTaskTracker - это элемент словаря. Вывод в элементах словаря, который я получаю, выглядит следующим образом:

Xob::SISBTXTRPR-5298 + SISBTXTRPR-5326 + SISBTXTRPR-5327 + SISBTXTRPR-5328. 

Я хочу, чтобы словарь заполнялся следующим образом

Xob::SISBTXTRPR-5298 
Xob::SISBTXTRPR-5326 
Xob::SISBTXTRPR-5327 
Xob::SISBTXTRPR-5328

Answer 1

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

В любом В этом случае ваш опубликованный код значительно выиграет от использования нескольких переменных, как отметил @Damian. Он такой плотный, что трудно понять.

While i <= iPuntedIssuesCount

    Set d = JSONObj("contents")("puntedIssues")(i)
    k = Trim(d("assigneeName"))
    v = d("key")

    If dictRemoved.Exists(k) Then
        dictRemoved(k) = dictRemoved(k) & " + " & v 
    Else
        dictRemoved.Add k, v
    End If
    i = i + 1

Wend