Sub Main
            Dim Result As Integer
            Dim MyText as Variant
            Dim strFilename as String
            Dim intFileNum as Integer
            Dim strZeile as String
            Dim strLine as string
            strFileName= "c:\Button_Text"
            intFileNum = FreeFile()
            'Script Name: read_and_write
            StartJavaApplication Class:=
            """C:\Program Files\IBM\Rational\SDP\6.0\FTSamples\ClassicsJavaB.jar""",
            JvmKey:="Java", JvmOpts:="-jar"
            Window SetContext, "Caption=ClassicsCD", ""
            Result = SQAGetPropertyAsString("Type=PushButton;Name=Place Order", "Text", MyText)
            Open strFilename For Output AS # intFileNum
            Print #intFileNum,MyText
            ' The Value of the Pushbutton property text will be save in c:\Button_Text
            Close # intFileNum
            'Open the file to read the content
            If strLine = myText then
            SQALogMessage sqaPass, "The Button Text is correct: " + MyText, ""
            else
            SQALogMessage sqaFail, " Expected Pusch-button-Text = " + strLine,
            "The Button Text is incorrect"
            end if
            End Sub
            

            import resources.read_and_writeHelper;
            import java.io.*;
            import javax.swing.JOptionPane;
            public class read_and_write extends read_and_writeHelper
            {
            /* Before you can use this script you must create a c:\Expected.txt file
            * Write the value inside this file and save it.
            * Description   : Functional Test Script
            * @author Andreas Franke
            public void testMain(Object[] args)
            {
            FileWriter f1;
            BufferedReader f2;
            String line;
            startApp("ClassicsJavaB");
            String strProperty_Text=(String)placeOrder().getProperty("Text");
            // Read the property Text from the Pushbutton
            try
            {
            f1 = new FileWriter("c:\\Button_Text.txt");
            // create a an outputfile
            f1.write(strProperty_Text);
            // write the result from strProperty_Text in this file
            f1.close();
            }
            catch (IOException e)
            {
            System.out.println("ERROR to create the folder");
            logTestResult("ERROR to create the folder", false);
            // Write an Error-message in the tes-tmanager-
            log
            }
            try
            {
            f2 = new BufferedReader(new FileReader("c:\\Expected.txt"));
            while ((line = f2.readLine()) != null)
            {
            if (line.equalsIgnoreCase(strProperty_Text))
            {
            logTestResult("The Button Text is correct", true);
            }
            else
            {
            logTestResult("The Button Text is incorrect ", false,
            "Expected '"+line+"' but found '"+strProperty_Text+"'");
            JOptionPane.showMessageDialog(null,line,"The Button Text is
            incorrect",JOptionPane.INFORMATION_MESSAGE);
            }
            }
            f2.close();
            }
            catch (IOException e)
            {
            System.out.println("Can`t find File");
            logTestResult("Can`t find File", false);
            }
            }
            }
            

            #Region " Script Header "
            ' Functional Test Script
            ' author Administrator
            Imports Microsoft.VisualBasic
            Imports Rational.Test.Ft
            Imports Rational.Test.Ft.Object.Interfaces
            Public Class read_and_write
            Inherits read_and_writeHelper
            'Script Name   : read_and_write
            'author Andreas Franke
            Public Function TestMain(ByVal args() As Object)
            StartApp("ClassicsJavaB")
            ' Frame: ClassicsCD
            REM PlaceOrder().Click()
            Dim strFilename As String = "c:\Button_Text"
            Dim strExpected As String = "c:\Expected.txt"
            Dim strProperty_text As String
            Dim intFileNum As Integer
            Dim strLine As String
            intFileNum = FreeFile()
            strProperty_text = PlaceOrder.GetProperty("Text")
            MsgBox
            (strProperty_text, MsgBoxStyle.Information, "The Text on the Pushbutton is")
            FileOpen(intFileNum, strFilename, OpenMode.Output)
            Print(intFileNum, strProperty_text)
            ' The Value of the Pushbutton property text will be save in
            'c:\Button_Text
            FileClose(intFileNum)
            FileOpen(intFileNum, strExpected, OpenMode.Input)
            Input(intFileNum, strLine)
            If strProperty_text = strLine Then
            LogTestResult
            ("The Pushbutton Text is correct", True, "Expected Text = Actual Text")
            Else
            LogTestResult
            ("The Pushbutton Text is incorrect!! Expected Text is :
            " + strLine, False, "but found the actual Text : " + strProperty_text)
            MsgBox
            (strProperty_text, MsgBoxStyle.Critical, "The Curent Text is not the expected Text")
            End If
            End Function
            End Class