春先のことだったのですが、タイプライブラリから読み取ってラッパークラスを作るプログラムの生成しようと調べ回っていました。それから数ヶ月、放置していたのですが、昨日、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

スポンサード リンク

この記事のカテゴリ

  • ⇒ OLEサポートやりますよ
  • ⇒ OLEサポートやりますよ
  • ⇒ OLEサポートやりますよ