Private Sub bttnGo_Click(sender As System.Object, e As System.EventArgs) _
  Handles bttnGo.Click
        Dim input As String = "hier"
        Dim replace As String = "<a href=" + Chr(34) + "$1" + Chr(34) + "" & _
          "target=" + Chr(34) + "_blank" + Chr(34) + ">$2</a>"
        Dim pattern As String = "\+)\"+chr( _
        34)+"]([^\[]+)\[/url\]"
        Dim reg As New Regex(pattern, RegexOptions.IgnoreCase)
 
        txtOutput.Text = reg.Replace(input, replace)
    End Sub

[url=http://meinLink]hier[/url]

<a href="http://meinLink" target="_blank">hier</a>

EDV-Systeme verarbeiten, womit sie gef?ttert werden. Kommt Mist rein, kommt Mist raus.

Beitrag wurde zuletzt am 22.12.11 um 09:05:57 editiert.