SeleniumBasic UtilsClass　便利機能の利用

2023年3月24日2023年8月6日

リファレンス

便利機能関数クラスの解説です。直接SelectBasicで扱うブラウザ操作とは関係ない関数群になります。

オブジェクト設定

・変数宣言

Dim Utils As New Utils

文法

Utils.[メソッド]

メソッド・プロパティ

メソッド

スクロールできます

Name	解説	ShortExample
IsMatch	正規表現による部分一致検索で一致した場合、Trueを返す。	Debug.Print "IsMatch: " & Utils.IsMatch(str, "hoge*")
Match	正規表現による部分一致検索で一致した場合、検索値を返す。	Debug.Print "Match: " & Utils.Match(str, "hoge", 0)
Matches	正規表現による部分一致検索で一致した場合、検索値をリストで返す。	Set List = Utils.Matches(str, "hoge")
Replace	VBAのReplace関数と同じ使い方	Debug.Print "Replace: " & Utils.Replace(str, "hoge", "")
SendKeysNat	Windows の SendKeys メソッドと同様の使い方
TakeScreenShot	デスクトップのスクリーンショット撮影	Set img = Utils.TakeScreenshot()

※Short Exampleは、動作確認ができたコードを記載しています。

Example

Use_UtilsCls_Match

Private Sub Use_UtilsCls_Match()
    Dim Utils As New Utils
    Dim List As New List
    Dim str As String
    str = "hogeagesagehogehoge"
    
    Debug.Print "IsMatch: " & Utils.IsMatch(str, "hoge*")
    Debug.Print "Match: " & Utils.Match(str, "hoge", 0)
    Debug.Print "Replace: " & Utils.Replace(str, "hoge", "")
    
    Set List = Utils.Matches(str, "hoge")
    Debug.Print "List1: " & List.Item(1)
    Debug.Print "List2: " & List.Item(2)
    Debug.Print "List3: " & List.Item(3)
End Sub

Use_UtilsCls_other

Private Sub Use_UtilsCls_other()
    Dim Keys As New Keys
    Dim driver As New ChromeDriver
    Dim Utils As New Selenium.Utils
        
    driver.Get "https://en.wikipedia.org/wiki/Main_Page"
    Dim img As Selenium.Image
    Set img = Utils.TakeScreenshot()
'    img.Copy
    img.ToExcel
    Stop
    driver.Quit
End Sub