12,504
回編集
差分
ナビゲーションに移動
検索に移動
ページの作成:「==Excel VBA 正規表現を使う== [Excel VBA]{{category 正規表現}}{{category VBAソース片}} [http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja…」
==Excel VBA 正規表現を使う==
[Excel VBA]{{category 正規表現}}{{category VBAソース片}}
[http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/vsobjRegExp.asp MSDN Visual Basic Scripting Edition RegExp オブジェクト]
===基本的な使い方===
Dim reg As Object
Dim matches As Object
Dim match As Object
Dim value As String '解析する文字列
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "^[ ]+([0-9A-Z@]+).*[ ]FOUND[ ].*"
'reg.Global = True '/g オプションを指定する
Set matches = reg.Execute(value)
If matches.Count > 0 Then
' 一致情報のコレクション
For Each match In matches
Debug.Print match.FirstIndex
Debug.Print match.Value
Next
Set match = matches(0)
' 一致グループ
Debug.Print match.SubMatches(0)
End If
==="(...)"に一致する箇所を抜き出して配列に格納===
Dim reg As Object
Dim matches As Object
Dim match As Object
Dim indexes() As String
Dim i As Integer
i = 0
ReDim indexes(i)
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "([0-9]{1,3})"
reg.Global = True
Set matches = reg.Execute(value)
If matches.Count > 0 Then
' 一致情報のコレクション
For Each match In matches
ReDim Preserve indexes(i)
indexes(i) = match.SubMatches(0)
i = i + 1
Next
End If
[Excel VBA]{{category 正規表現}}{{category VBAソース片}}
[http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/vsobjRegExp.asp MSDN Visual Basic Scripting Edition RegExp オブジェクト]
===基本的な使い方===
Dim reg As Object
Dim matches As Object
Dim match As Object
Dim value As String '解析する文字列
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "^[ ]+([0-9A-Z@]+).*[ ]FOUND[ ].*"
'reg.Global = True '/g オプションを指定する
Set matches = reg.Execute(value)
If matches.Count > 0 Then
' 一致情報のコレクション
For Each match In matches
Debug.Print match.FirstIndex
Debug.Print match.Value
Next
Set match = matches(0)
' 一致グループ
Debug.Print match.SubMatches(0)
End If
==="(...)"に一致する箇所を抜き出して配列に格納===
Dim reg As Object
Dim matches As Object
Dim match As Object
Dim indexes() As String
Dim i As Integer
i = 0
ReDim indexes(i)
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "([0-9]{1,3})"
reg.Global = True
Set matches = reg.Execute(value)
If matches.Count > 0 Then
' 一致情報のコレクション
For Each match In matches
ReDim Preserve indexes(i)
indexes(i) = match.SubMatches(0)
i = i + 1
Next
End If
© 2006 矢木浩人
