|
2010/05/05(Wed) 00:28:36 編集(投稿者)
■No49433 (pisces さん) に返信 > 使用言語:VB2008 > 正規表現というものを利用した置換を行おうとしているのですが、例えば > ・これはABCです。 > ・これはABCです。 > ・これはABCです。 > というテキストがあった場合、対象キーワードを"ABC"として、それぞれ > ・これは<tag>ABC</tag>です。 > ・これは<tag>ABC</tag>です。 > ・これは<tag>ABC</tag>です。 > というように置換を行いたいのです。
アルファベットだけでよいなら、下記で出来ます。 Dim str = "これはABCです。これはABCです。これはABCです。" TextBox1.Text = System.Text.RegularExpressions.Regex.Replace(str, "[A-zA-z]+", "<tag>$&</tag>") 結果:これは<tag>ABC</tag>です。これは<tag>ABC</tag>です。これは<tag>ABC</tag>です。
または、置換文字列の半角と全角文字を生成する。
Dim str As String = "これはABCです。これはABCです。これはABCです。" Dim word As String = "ABC"
word += StrConv(word, VbStrConv.Wide) TextBox1.Text = System.Text.RegularExpressions.Regex.Replace(str, "[" & word & "]+", "<tag>$&</tag>")
|