春先のことだったのですが、タイプライブラリから読み取ってラッパークラスを作るプログラムの生成しようと調べ回っていました。それから数ヶ月、放置していたのですが、昨日、VBScript.RegExp(WSH付属の正規表現)を使えるところまで進みました。この調子で、IEやOffice (Word/Excelなど)の操作ができるところに持って行きたいと思っています。VBみたいになるかどうかは分かりませんが、プロジェクトエディタ上で参照設定できるようにしたいです。
現在、こんなコードが動きます。RegExpクラスは、VBScript.RegExp用のラッパークラスです。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | #require <com/index.ab> #require "out.ab" 'タイプライブラリから生成させたクラスが入っているファイル #console Imports ActiveBasic Imports ActiveBasic.Windows Imports System Try ThrowIfFailed(CoInitialize(0)) Using re = New RegExp With re .Pattern = ".*@.*" ' メールアドレス「もどき」 .Global = True Do Dim s = Console.ReadLine() If IsNothing(s) Then Exit Do If .Test(s) Then Print "Match!" Else Print "No match" End If Loop End With End Using Catch e As Exception Console.Error.WriteLine(e) Finally CoUninitialize() End Try End |
スポンサード リンク |