Мне удалось решить эту проблему с помощью функции.
Function FormatDocs(str as String) as String
Dim rtn as String = ""
Dim strElements = str.Split(",")
For i as Integer = 0 to UBound(strElements)
rtn = rtn + ParseCode(strElements(i), "D")
If i <> UBound(strElements) Then
rtn = rtn + ", "
End If
Next
Return rtn
End Function
ParseCode
была существующей у нас функцией, которая разбивает одну строку ID::Description
на ::
и возвращает Description
.
Определение этой функции выглядит следующим образом:
Function ParseCode(codeValue As String, returnType As String) As String
Dim rtn As String = ""
If Len(codeValue) Then
Dim codeElements = codeValue.Split(":")
If returnType = "C" Then
rtn =codeElements(0)
Else
rtn =rtn + codeElements(2)
End If
End If
Return rtn
End Function