Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Screen Object / GetText3 Method
The starting row position.
The starting column position.
The ending row position.
The ending column position.
A RegionOption enumeration value that specifies how the region is interpreted.
A TextTranslationOption enumeration value that specifies how or whether screen data is translated.
Example
In This Topic
GetText3 Method
In This Topic
Retrieves text from the specified screen region.
Syntax
expression.GetText3( _
   ByVal startRow As Integer, _
   ByVal startColumn As Integer, _
   ByVal endRow As Integer, _
   ByVal endColumn As Integer, _
   ByVal regionOption As RegionOption, _
   ByVal translationOption As TextTranslationOption _
) As String
where expression is a variable that represents a Screen Object

Parameters

startRow
The starting row position.
startColumn
The starting column position.
endRow
The ending row position.
endColumn
The ending column position.
regionOption
A RegionOption enumeration value that specifies how the region is interpreted.
translationOption
A TextTranslationOption enumeration value that specifies how or whether screen data is translated.

Return Value

The screen text from the specified region.
Remarks

For more about using the GetText3 method, see:

Save Screens as Text

Example
This sample gets data on the screen and prints it as XML. To run this sample, Create an open systems session and set the host name IP/Address to Demo:UNIX. Then enter any credentials to log in and at the "demo:" prompt, enter "demodata". Run the macro on the screen that has the "Command" prompt. 
Sub getTextFromScreenAsXml()
 
    Dim maxRow As Integer
    Dim maxCol As Integer
    Dim startPoint As ScreenPoint
    Dim startRow As Integer
    Dim text As String
    
    maxRow = ThisScreen.DisplayRows
    maxCol = ThisScreen.DisplayColumns
 
    Set startPoint = ThisScreen.SearchText("Month ", 1, 1, FindOptions_Forward)
        
    startRow = startPoint.Row
 
    'Get all the text on the screen from the top row to the last row and column
    text = ThisScreen.GetText3(startPoint.Row, 1, maxRow, maxCol, RegionOption_Rectangular, TextTranslationOption_AsXML)
    
    'print xml to Intermediate window
    Debug.Print text
    
End Sub
See Also

Reference

Screen Object
Screen Members

Send Feedback