「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 矢木浩人