Parameter an die Methode "callScript" übergeben

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:

CallScript("TheCalled");

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.