正規表現

Posted by muchag | Excel VBA | 2015-09-09 (水) 13:00:25

Excel VBA で 正規表現 を使う時がきた。

【環境】
Excel:2010
準備
参照設定

[ツール]-[参照設定]
Microsoft VBScript Regular Expressions 5.5
にチェック。

これで、下記のように宣言できる。

  1. Dim objRE As New RegExp

参照設定をしない場合は、下記のごとく。

  1. Dim objRE As Object
  2. Set objRE = CreateObject("VBScript.RegExp")
置換
HTML タグ除去
  1. Dim objRE As Object
  2. Set objRE = CreateObject("VBScript.RegExp")
  3. objRE.Pattern = "<[^>]*>"
  4. objRE.Global = True
  5.  
  6. Dim strHoge as String
  7. strHoge = "<p>hoge</p>"
  8. strHoge = objRE.Replace(strHoge, vbNullString)
参考サイト

マイナビニュース > パソコン:正規表現を用いてHTTPタグを除去するVBAを記述する

Excel VBA | 2015-09-09 (水) 13:00:25 |

コメントはまだありません »

No comments yet.

RSS feed for comments on this post. TrackBack URI

Leave a comment