InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Screen Object / SearchText Method
Text string to search for.
Starting row for the search. The valid range is 1 through the number of rows.
Starting column for the search. The valid range is 1 through the number of columns.
A FindOptions enumeration value that specifies the search direction.
Example
In This Topic
    SearchText Method
    In This Topic
    Searches for the specified text, starting from the specified screen location.
    Syntax
    expression.SearchText( _
       ByVal text As String, _
       ByVal startRow As Integer, _
       ByVal startColumn As Integer, _
       ByVal findOption As FindOptions _
    ) As ScreenPoint object 
    where expression is a variable that represents a Screen Object

    Parameters

    text
    Text string to search for.
    startRow
    Starting row for the search. The valid range is 1 through the number of rows.
    startColumn
    Starting column for the search. The valid range is 1 through the number of columns.
    findOption
    A FindOptions enumeration value that specifies the search direction.

    Return Value

    A ScreenPoint object that contains the coordinate of the located text or null, if the text is not found.

     

    Remarks

    For more about using the SearchText method, see:

    Navigating Through Open Systems Sessions

    Example

    This sample finds text on the screen and prints the text on that row.

    To run this sample in the InfoConnect demo, create a VT session with the Host IP address set as demo:Unix and log in with any credentials. Then enter "demodata" and run the macro from the screen that contains the "XYZ Company Monthly Sales" table.

    Sub FindTextOnScreen()
        Dim Point As ScreenPoint
       
        'Get the point on the display on which the data table starts
        Set Point = ThisScreen.SearchText("Month ", 1, 1, FindOptions_Forward)
     
        'Increment the row from the header row to first row of data and get the first row
        Debug.Print ThisScreen.GetText(Point.Row, Point.Column, ThisScreen.DisplayColumns)
       
    End Sub
    See Also