「Excel VBA 正規表現を使う」の版間の差分
ナビゲーションに移動
検索に移動
(ページの作成:「==Excel VBA 正規表現を使う== [Excel VBA]{{category 正規表現}}{{category VBAソース片}} [http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja…」) |
|||
| 1行目: | 1行目: | ||
==Excel VBA 正規表現を使う== | ==Excel VBA 正規表現を使う== | ||
| − | [Excel VBA]{{category 正規表現}}{{category 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 オブジェクト] | + | [[http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/vsobjRegExp.asp MSDN Visual Basic Scripting Edition RegExp オブジェクト]] |
===基本的な使い方=== | ===基本的な使い方=== | ||
| 15行目: | 15行目: | ||
Set matches = reg.Execute(value) | Set matches = reg.Execute(value) | ||
| − | If matches.Count | + | If matches.Count > 0 Then |
' 一致情報のコレクション | ' 一致情報のコレクション | ||
For Each match In matches | For Each match In matches | ||
| 42行目: | 42行目: | ||
Set matches = reg.Execute(value) | Set matches = reg.Execute(value) | ||
| − | If matches.Count | + | If matches.Count > 0 Then |
' 一致情報のコレクション | ' 一致情報のコレクション | ||
For Each match In matches | For Each match In matches | ||
2020年2月15日 (土) 08:02時点における版
Excel VBA 正規表現を使う
Excel VBAテンプレート:Category 正規表現テンプレート:Category VBAソース片
[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 矢木浩人
