|  | 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>")
 
 
 |