Im vorliegenden Abschnitt erfahren Sie, wie Sie die verschiedenen Kennungen der Methode CallScript
verwenden müssen, um Daten von einem Script zum anderen zu übertragen. In dem Beispiel kommen zwei unterschiedliche Functional Test-Scripts zum Einsatz:
TheCaller
: Über dieses Script wird ein anderes Script aufgerufen, und es werden Parameter übergeben.
TheCalled
: Dieses Script empfängt die genannten Parameter und gibt sie über die System.Console
aus.
Das Script TheCaller
arbeitet mit zwei verschiedenen Versionen der Methode CallScript
:
Ohne zusätzliche Parameter: Hierbei handelt es sich um die standardmäßige Verwendung der Methode CallScript
, über die das angegebene Script ausgeführt wird.
CallScript("TheCalled");
Mit zusätzlichen Objektbereichparametern: Hierbei wird ein Bereich mit Objekten verwendet, um unterschiedliche Objekttypparameter an das aufgerufene Script zu übergeben.
Dim ObjdataToPass as Object()
...
CallScript("TheCalled",ObjdataToPass)
Das Script TheCaller
wurde wie folgt aufgezeichnet:
Public Class TheCaller Inherits TheCallerHelper
' Script Name : TheCaller
' Generated : Dec 17, 2005 8:47:45 PM
' Description : Functional Test Script
' since 2005/12/17
' author Administrator
Public Function TestMain (ByVal args() As Object)
CallScript("TheCalled")
Dim DataToPass(3)As
String
DataToPass(0) = "This"
DataToPass(1) = "is"
DataToPass(2) = "really"
DataToPass(3) = "cool!"
CallScript("TheCalled",DataToPass)
Dim ObjdataToPass(3)As Object
ObjdataToPass(0) = new String( _
"Thought the previous was cool?")
ObjdataToPass(1) = "Take this one!"
ObjdataToPass(2) = new Float(0.02)
ObjdataToPass(3) = new Integer(4711)
CallScript("TheCalled",ObjdataToPass)
End Function
End Class
Das Script "TheCalled" verwendet eine einfache Schleife, um die empfangenen Parameter an System.Console
zu übergeben:
Public Class TheCalled Inherits TheCalledHelper ' Script Name : TheCalled ' Generated : Dec 17, 2005 8:48:12 PM ' Description : Functional Test Script ' since 2005/12/17 ' author Administrator Public Function TestMain (ByVal args() As Object) If args.Length < 1 Then System.Console.WriteLine _ ("There were "+args.Length+" args. Less than expected!") Return Else System.Console.WriteLine( "There were: "+args.Length+" args") End If Dim I As Integer For I = 0 To args.Length - 1 System.Console.WriteLine( " arg["+I+"] = " _ + args(I) .ToString()) Next End Function End Class
Nutzungsbedingungen | Feedback
(C) Copyright IBM Corporation 2002, 2004. Alle Rechte vorbehalten.