.net实现自定义UBB代码及规则的基本实现

最新推荐文章于 2022-07-21 09:59:37 发布

重典

最新推荐文章于 2022-07-21 09:59:37 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： .net 文章标签： .net string regex 正则表达式 output function

本文链接：https://blog.youkuaiyun.com/chsword/article/details/1545887

.net 专栏收录该内容

99 篇文章

订阅专栏

用正则表达式来完成

  Function DeLink(ByVal htmlText As String) As String '进行A标签解码
        Dim hrefRegex As New Regex( _
                   "[urls*=s*([^""]+)s*]([sS]*?)[/url]", _
                   RegexOptions.IgnoreCase)
        Dim output As String = ""
        For Each m As Match In hrefRegex.Matches(htmlText)
            htmlText = Replace(htmlText, m.Groups(0).Value, "<a href=""" & m.Groups(1).Value & """>" & m.Groups(2).Value & "</a>")
        Next
        Return htmlText
    End Function

    Function EnLink(ByVal htmlText As String) As String '进行A标签编码
        Dim hrefRegex As New Regex( _
             "<A[^>]*?HREFs*=s*""([^""]+)""[^>]*?>([sS]*?)</A>", _
             RegexOptions.IgnoreCase)
        Dim output As String = ""
        For Each m As Match In hrefRegex.Matches(htmlText)
            htmlText = Replace(htmlText, m.Groups(0).Value, "[url=" & m.Groups(1).Value & "]" & m.Groups(2).Value & "[/url]")
        Next
        Return htmlText
    End Function

类似这样做其它的标签就可以完在基本的UBB功能
呵呵，太懒了，写字日少