'writes out a comma separated value list with the loop and String.SubString

Private Function BuildTagsList(ByVal tagToken As TagsToken, ByVal separateRule As String) As String

Dim tagsArray As String() = tagToken.TagsList.Split(separateRule)

Dim tag As String

Dim tagsTemplate As String = String.Empty

For Each tag In tagsArray

    tagsTemplate += String.Format(LocalizationByKey("TagsList", True), Utility.TagsViewLink(), tag)

    tagsTemplate += ", "

Next

Return tagsTemplate.Substring(0, tagsTemplate.LastIndexOf(", "))

End Function

' writes out a comma separated value list with the String.Join

Private Function BuildTagsList(ByVal tagToken As TagsToken, ByVal separateRule As String) As String

Dim tagsArray As String() = tagToken.TagsList.Split(separateRule)

Dim tags As String() = New String(tagsArray.Length - 1) {}

Dim i As Integer = 0

For Each tag As String In tagsArray

    tags(i) = String.Format(LocalizationByKey("TagsList", True), Utility.TagsViewLink(), tag)

    i += 1

Next

Return String.Join(", ", tags)

End Function

'writes out a comma separated value list with the TrimEnd

Private Function BuildTagsList(ByVal tagToken As TagsToken, ByVal separateRule As String) As String

Dim tagsArray As String() = tagToken.TagsList.Split(separateRule)

Dim tagsTemplate As String = String.Empty

For Each tag As String In tagsArray

    tagsTemplate += String.Format(LocalizationByKey("TagsList", True), Utility.TagsViewLink(), tag)

    tagsTemplate += ", "

Next

'注意这是Char数组, 如果是单个分隔符你可以直接使用tagsTemplate.TrimEnd(","c)

Dim trim_str As Char() = {","c, " "c}

Return tagsTemplate.TrimEnd(trim_str)

End Function