Workbench.LoadActiveData("activeDataName", [sheetName, startRow, endRow, randomCount, readOnly])
| 変数 | 説明 |
|---|---|
| activeDataName | スクリプトで使用する ActiveData 資産の名前。 STRING。 |
| sheetName | 省略可能:使用するシートの名前。ここで指定したシートは、ActiveData 資産で指定したシートを上書きします。デフォルトでは、資産で指定したシートが使用されます。STRING |
| startRow | 省略可能:最初に読み込む ActiveData 資産内の行のインデックスです。INTEGER。 |
| endRow | 省略可能:最後に読み込む ActiveData 資産内の行のインデックスです。INTEGER。 |
| randomCount | 省略可能:資産に関連付けられた ActiveData ファイルのレコードを ActiveData テストで使用するかどうか、およびその方法を決定します。値が 0 または False の場合は、ランダム モードがオフになります。値が -1 または True の場合は、値が StartRow から EndRow のすべての行が ActiveData テストでランダムな順番で使用されます。値が 1 から N (N はテスト データ資産の行数) の場合は、StartRow から EndRow の範囲でのランダムな行数として使用されます。RandomCount パラメータの許容値とともに、さまざまな StartRow 値および EndRow 値を使用する場合の詳細については、「アクティブ データに使用するデータの指定」を参照してください。INTEGER。 |
| readOnly | 省略可能:ActiveData 資産を読み取り/書き込み可能で開くか、読み取り専用で開くかを決定します。読み取り/書き込み可能で ActiveData 資産を開くには、False に設定します。ActiveData 資産を読み取り専用として開くには、True に設定します。読み取り専用に設定すると、スクリプトの ActiveData テストの部分で ActiveData 資産に書き込みを行おうとした場合に実行時エラーが生成されます。デフォルトでは、ActiveData 資産は読み取り/書き込み可能で開かれます。BOOLEAN。 |
Public Sub Main()
AddRandomToPhoneBook( 3 ) 'Reads 3 rows in a random order
End Sub
Public Sub AddRandomToPhoneBook( howMany As Integer )
Dim data As ActiveData = Workbench.LoadActiveData( "PhoneBookData", 1, -1, howMany )
Dim row As ActiveDataRow
With _desktop.BrowserWindow("/BrowserApplication//BrowserWindow")
For Each row In data
Dim FirstName As String = row.GetString("fname")
Dim LastName As String = row.GetString("lname")
Dim PhoneNumber As String = row.GetString("number")
.DomTextField("@id='txtFirstName'").SetText(FirstName)
.DomTextField("@id='txtLastName'").SetText(LastName)
.DomTextField("@id='txtPhoneNumber'").SetText(PhoneNumber)
.DomButton("@id='btnAdd'").Select()
Next
End With
End Sub
Public Sub Main()
AddSomeToPhoneBook( 3, 5 ) 'Reads rows 3, 4 and 5 only
End Sub
Public Sub AddSomeToPhoneBook( firstToAdd As Integer, lastToAdd As Integer )
Dim data As ActiveData = Workbench.LoadActiveData( "PhoneBookData", firstToAdd, lastToAdd )
Dim row As ActiveDataRow
With _desktop.BrowserWindow("/BrowserApplication//BrowserWindow")
For Each row In data
Dim FirstName As String = row.GetString("fname")
Dim LastName As String = row.GetString("lname")
Dim PhoneNumber As String = row.GetString("number")
.DomTextField("@id='txtFirstName'").SetText(FirstName)
.DomTextField("@id='txtLastName'").SetText(LastName)
.DomTextField("@id='txtPhoneNumber'").SetText(PhoneNumber)
.DomButton("@id='btnAdd'").Select()
Next
End With
End Sub
Public Sub Main()
AddAllToPhoneBookReadOnly() 'Opens the data file as read only
End Sub
Public Sub AddAllToPhoneBookReadOnly()
Dim data As ActiveData = Workbench.LoadActiveData( "PhoneBookData", 1, -1, 0, True )
Dim row As ActiveDataRow
With _desktop.BrowserWindow("/BrowserApplication//BrowserWindow")
For Each row In data
Dim FirstName As String = row.GetString("fname")
Dim LastName As String = row.GetString("lname")
Dim PhoneNumber As String = row.GetString("number")
.DomTextField("@id='txtFirstName'").SetText(FirstName)
.DomTextField("@id='txtLastName'").SetText(LastName)
.DomTextField("@id='txtPhoneNumber'").SetText(PhoneNumber)
.DomButton("@id='btnAdd'").Select()
Next
End With
End Sub
Public Sub Main()
AddAllToPhoneBookReadOnly() 'Opens the data file as read only
End Sub
Public Sub AddAllToPhoneBookReadOnly()
Dim data As ActiveData = Workbench.LoadActiveData( "Common.PhoneBookData", 1, -1, 0, True )
Dim row As ActiveDataRow
With _desktop.BrowserWindow("/BrowserApplication//BrowserWindow")
For Each row In data
Dim FirstName As String = row.GetString("fname")
Dim LastName As String = row.GetString("lname")
Dim PhoneNumber As String = row.GetString("number")
.DomTextField("@id='txtFirstName'").SetText(FirstName)
.DomTextField("@id='txtLastName'").SetText(LastName)
.DomTextField("@id='txtPhoneNumber'").SetText(PhoneNumber)
.DomButton("@id='btnAdd'").Select()
Next
End With
End Sub