Baldwin's DNN

'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