 |  |
Excel VBA で 正規表現 を使う時がきた。
これで、下記のように宣言できる。
Dim objRE As New RegExp
参照設定をしない場合は、下記のごとく。
Dim objRE As Object
Set objRE = CreateObject("VBScript.RegExp")
Dim objRE As Object
Set objRE = CreateObject("VBScript.RegExp")
objRE.Pattern = "<[^>]*>"
objRE.Global = True
Dim strHoge as String
strHoge = "hoge"
strHoge = objRE.Replace(strHoge, vbNullString)
Dim objRE As Object
Set objRE = CreateObject("VBScript.RegExp")
objRE.Pattern = "\[.*?\]"
objRE.Global = True
Dim strHoge as String
strHoge = "[123]abc[789]xyz"
strHoge = objRE.Replace(strHoge, vbNullString)
書いてみて思った。
やっていることは、HTML タグ除去と同じだｗ
考えてみれば当然なんだけど
せっかくなので残しておく。
Dim objRE As Object
Set objRE = CreateObject("VBScript.RegExp")
objRE.Pattern = "\[(.*?)\]"
objRE.Global = True
Dim strHoge as String
strHoge = "[123]abc[789]xyz"
strHoge = objRE.execute(strHoge)
If strHoge.Count > 0 Then
Dim index As Integer
For index = 0 To strHoge.Count - 1
MsgBox strHoge(index).SubMatches(0)
Next index
End If
マイナビニュース > パソコン：正規表現を用いてHTTPタグを除去するVBAを記述する
No related posts.
No comments yet.
RSS feed for comments on this post. TrackBack URI
夢茶爺＆空茶爺のPC奮戦備忘録 wordpress themes