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

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

重典

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

阅读量1.7k

点赞数

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

本文链接：https://blog.csdn.net/chsword/article/details/1545887

版权

.net 专栏收录该内容

99 篇文章 1 订阅

订阅专栏

用正则表达式来完成

   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功能
呵呵，太懒了，写字日少