InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / IbmScreen Object / SearchText4 Method
The specified text string.
Start row.
Start column.
End row.
End column.
A FindOption enumeration that specifies the search direction.
A TextComparisonOption Enumeration that indicates how text is compared against the text on the host screen.
Example
In This Topic
SearchText4 Method (IbmScreen)
In This Topic
Searches the specified text, starting from the specified screen location and ending at the specified end screen location.
Syntax
expression.SearchText4( _
   ByVal text As String, _
   ByVal startRow As Integer, _
   ByVal startColumn As Integer, _
   ByVal endRow As Integer, _
   ByVal endColumn As Integer, _
   ByVal findOption As FindOption, _
   ByVal textComparison As TextComparisonOption _
) As ScreenPoint object 
where expression is a variable that represents a IbmScreen Object

Parameters

text
The specified text string.
startRow
Start row.
startColumn
Start column.
endRow
End row.
endColumn
End column.
findOption
A FindOption enumeration that specifies the search direction.
textComparison
A TextComparisonOption Enumeration that indicates how text is compared against the text on the host screen.

Return Value

A ScreenPoint object object that contains the screen coordinate where the specified text begins, if found, or null if the text could not be found.
Example
This sample performs a case sensitive search for the "PDF" string on a screen and returns the column and row of the string if it is found. It also searches for a lowercase "pdf" string.
Sub SearchForCaseSensitiveText()
    Dim screenPosition As Attachmate_Reflection_Objects_Emulation_IbmHosts.ScreenPoint
    Dim lowerCaseText As String
    Dim upperCaseText As String
    
    lowerCaseText = "pdf"
    upperCaseText = "PDF"
    
    'look for uppercase text
    Set screenPosition = ThisIbmScreen.SearchText4(upperCaseText, 1, 1, 23, 52, FindOption_Forward, TextComparisonOption_MatchCase)
        
    If IsEmpty(screenPosition) Or (screenPosition Is Nothing) Then
        MsgBox upperCaseText & " Not found"
    Else
        MsgBox upperCaseText & " found at row " & screenPosition.row & " and column " & screenPosition.column
    End If
    
    'Look for lowercase text
    Set screenPosition = ThisIbmScreen.SearchText4(lowerCaseText, 1, 1, 23, 52, FindOption_Forward, TextComparisonOption_MatchCase)
    
    If IsEmpty(screenPosition) Or (screenPosition Is Nothing) Then
        MsgBox lowerCaseText & " Not found"
    Else
        MsgBox lowerCaseText & "found at row " & screenPosition.row & " and column " & screenPosition.column
    End If
    
End Sub
See Also