正規表現転換機

 

 

  '詳細情報
            Dim information As String = myDB.GetDataStrType(m_dr, "information")
            information = myFunc.GetUrlSQL(information)

            '電話番号を自動リングにする。
            Dim myRegex As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("0[0-9]{1,3}-[0-9]{2,4}-[0-9]{4}")
            information = myRegex.Replace(information, New MatchEvaluator(AddressOf RepTel))

            'メールアドレスを自動リングにする。
            myRegex = New System.Text.RegularExpressions.Regex("[A-Za-z0-9_/-][A-Za-z0-9_/./-]*@([A-Za-z0-9_/-]+/.)+(com|jp)")
            information = myRegex.Replace(information, New MatchEvaluator(AddressOf RepMailAddr))

            'HTTPを自動リングにする。
            'myRegex = New System.Text.RegularExpressions.Regex("http(s)?://([/w-]+/.)+[/w-]+(/[/w- ./?%&=]*)?")
            myRegex = New System.Text.RegularExpressions.Regex("http(s)?://([/w-]+/.)+[/w-]+(/[/w-./?%&=]*)?")
            information = myRegex.Replace(information, New MatchEvaluator(AddressOf RepUrl))

 

 

 

 ''' <summary>
    ''' 電話番後変換
    ''' </summary>
    ''' <param name="mt"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function RepTel(ByVal mt As Match) As String
        Return String.Format("<a href= ""tel:{0}"">{0}</a>", mt.Value)
    End Function

    ''' <summary>
    ''' メールアドレス変換
    ''' </summary>
    ''' <param name="mt"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function RepMailAddr(ByVal mt As Match) As String
        Return String.Format("<a href= ""mailto:{0}"">{0}</a>", mt.Value)
    End Function

    ''' <summary>
    ''' URLを変換
    ''' </summary>
    ''' <param name="mt"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function RepUrl(ByVal mt As Match) As String
        Return String.Format("<a href= ""{0}"">{0}</a>", mt.Value)
    End Function