Question

Sub Test()
    Dim osCurrentTerminal As Terminal
        Set osCurrentTerminal = ThisFrame.SelectedView.control
    Dim osCurrentScreen As screen
        Set osCurrentScreen = osCurrentTerminal.screen
    Dim FoundPoint As ScreenPoint

    With osCurrentScreen
        .SearchText("LookingForThisWord", 1, 1, FindOptions_Forward) = FoundPoint
        .DisplayText ("hello")

    End With
End Sub

关于以上代码：

我收到438运行时错误。有人可以告诉我如何使用.SearchText查找单词吗？我已经非常仔细地阅读了《 Reflection VBA指南》，我想我缺少一些基本知识（我不是经过培训的编码人员）。

Attachmate.Reflection.Objects.Emulation.OpenSystems库>屏幕对象是本指南中要查看的部分。

它说：

object.SearchText( _
   ByVal text As String, _
   ByVal startRow As Long, _
   ByVal startColumn As Long, _
   ByVal findOption As FindOptions _
) As _ScreenPoint

参数 textText 字符串进行搜索。搜索的 startRowStarting 行。有效范围是1到行数。搜索的 startColumnStarting 列。有效范围是1到列数。 findOptionSpecify 搜索方向。返回值

找到的文本的坐标；如果找不到文本，则为null。

我试图知道找到的单词的坐标，以便我可以知道该行的其他内容（这是单词的数字列表，数字是我将发送给主机的最终信息）

非常感谢您的帮助

Attachmate中的SearchText，如何在终端屏幕上使用查找文本？

0 个答案: