冰峰雪晴

解析AS/400模拟器Pcom获取屏幕字符串函数GetText[vbs]

时间：2016-09-28 ┊ 阅读：8,558 次 ┊ 标签: 开发 , 编程 , 经验

为了实现读取as/400屏幕上字符串操作，ibm提供了方法GetText。这个方法有3个参数，第一个参数为行标，第二个参数为列标，第三个参数为需要截取字符串的长度。我们都知道pcom模拟器屏幕总共有24x80阵列或24x132，我们需要的就是获取这个阵列里的字符串。比如在2行70列开始的10个字符为系统server的名字，我们就可以用serverName=autECLSession.autECLPS.GetText(2, 70, 10)，这样就获得了系统的server名字并放到变量serverName里了。
我自己用时，对其进行了封装，写了个新的方法，这样减少了不少重复代码，用起来也方便。如下：

'Get Text
'参数：行标、列标、字符串长度
Function GetText(intRow, intCol, intLen)
    '这个是等待系统session准备好可以输入，这时才说明系统已经把这屏数据全部显示出来并准备好交互了。如果不等准备好，就直接去截取字符串有可能取得空值哦。
    autECLSession.autECLOIA.WaitForInputReady
    '截取相应字符串并返回到GetText里。
    GetText = autECLSession.autECLPS.GetText(intRow, intCol, intLen)
End Function

本文固定链接: https://www.amkevin.com/194.html｜冰峰雪晴｜转载请注明出处,谢谢