增加 自绘窗口_Accessible定位 功能

bsliu

表达式如何写？

cuijialu

感谢了! 以后应该会用到

易之徒

由于发布太过于匆促，导致有些边界条件没返回好或某些情况没考虑，现在修改后再贴出最新的代码。

1. .版本 2
   
2. 
   
3. .子程序 自绘窗口_Accessible定位, 逻辑型, 公开, 是否成功定位
   
4. .参数 原Accessible, 类_Accessible, , 传入即将要定位的Accessible根节点
   
5. .参数 表达式, 文本型, , ">"进入下一节点，"#"根据序号进入节点，"?"根据条件进入节点，"&"且，"=="恒等于，"="包含于。n控件名称，s控件状态，t控件类型，id控件ID，v控件值。|例子“#4>#2>?n==ABC&t=EDF>#2”，意思为从根节点开始首先进入第4个节点再进入第2个节点再判断控件名称为ABC且控件类型内容含有EDF的节点再进入第2个节点
   
6. .参数 定位后Accessible, 类_Accessible, 参考, 返回定位后Accessible
   
7. .局部变量 子表达式, 文本型, , "0"
   
8. .局部变量 i, 整数型
   
9. .局部变量 command, 文本型
   
10. .局部变量 opertor, 文本型
    
11. .局部变量 childcount, 整数型
    
12. .局部变量 Accessibles, 类_Accessible, , "0"
    
13. .局部变量 j, 整数型
    
14. .局部变量 found, 逻辑型
    
15. .局部变量 Accessible, 类_Accessible
    
16. 
    
17. Accessible ＝ 原Accessible
    
18. .计次循环首 (文本_分割文本 (表达式, “>”, , 子表达式), i)
    
19.     opertor ＝ 取文本左边 (子表达式 [i], 1)
    
20.     command ＝ 取文本右边 (子表达式 [i], 取文本长度 (子表达式 [i]) － 1)
    
21.     childcount ＝ Accessible.取子元素总数 ()
    
22.     .判断开始 (opertor ＝ “#”)
    
23.         .如果 (取绝对值 (到整数 (command)) ＞ childcount)
    
24.             返回 (假)
    
25.         .否则
    
26.             .如果 (到整数 (command) ＞ 0)
    
27.                 .如果真 (Accessible.取子元素 (到整数 (command), Accessible) ＝ 假)
    
28.                     返回 (假)
    
29.                 .如果真结束
    
30. 
    
31.             .否则
    
32.                 .如果 (到整数 (command) ＜ 0)
    
33.                     .如果真 (Accessible.取子元素 (childcount ＋ 到整数 (command) ＋ 1, Accessible) ＝ 假)
    
34.                         返回 (假)
    
35.                     .如果真结束
    
36. 
    
37.                 .否则
    
38.                     返回 (假)
    
39.                 .如果结束
    
40. 
    
41.             .如果结束
    
42. 
    
43.         .如果结束
    
44. 
    
45.     .判断 (opertor ＝ “?”)
    
46.         childcount ＝ Accessible.枚举子元素 (Accessibles)
    
47.         found ＝ 假
    
48.         .计次循环首 (childcount, j)
    
49.             .如果真 (内部_解析命令 (command, Accessibles [j]))
    
50.                 Accessible ＝ Accessibles [j]
    
51.                 found ＝ 真
    
52.                 跳出循环 ()
    
53.             .如果真结束
    
54. 
    
55.         .计次循环尾 ()
    
56.         .如果真 (found ＝ 假)
    
57.             返回 (假)
    
58.         .如果真结束
    
59. 
    
60.     .默认
    
61. 
    
62.     .判断结束
    
63. 
    
64. .计次循环尾 ()
    
65. 定位后Accessible ＝ Accessible
    
66. 返回 (真)
    
67. 
    
68. .子程序 内部_解析命令, 逻辑型
    
69. .参数 command, 文本型
    
70. .参数 Accessible, 类_Accessible
    
71. .局部变量 k, 整数型
    
72. .局部变量 equal, 文本型, , "0"
    
73. .局部变量 contain, 文本型, , "0"
    
74. .局部变量 详细信息, 精易_详细信息
    
75. .局部变量 child_commands, 文本型, , "0"
    
76. 
    
77. 详细信息 ＝ 自绘窗口_格式化信息 (Accessible)
    
78. child_commands ＝ 分割文本 (command, “&”, )
    
79. .计次循环首 (取数组成员数 (child_commands), k)
    
80.     .判断开始 (寻找文本 (child_commands [k], “==”, , 假) ≠ -1)
    
81.         equal ＝ 分割文本 (child_commands [k], “==”, )
    
82.         .判断开始 (equal [1] ＝ “n”)
    
83.             .如果真 (详细信息.控件名称 ≠ equal [2])
    
84.                 返回 (假)
    
85.             .如果真结束
    
86. 
    
87.         .判断 (equal [1] ＝ “s”)
    
88.             .如果真 (详细信息.控件状态 ≠ equal [2])
    
89.                 返回 (假)
    
90.             .如果真结束
    
91. 
    
92.         .判断 (equal [1] ＝ “t”)
    
93.             .如果真 (详细信息.控件类型 ≠ equal [2])
    
94.                 返回 (假)
    
95.             .如果真结束
    
96. 
    
97.         .判断 (equal [1] ＝ “id”)
    
98.             .如果真 (详细信息.控件ID ≠ equal [2])
    
99.                 返回 (假)
    
100.             .如果真结束
     
101. 
     
102.         .判断 (equal [1] ＝ “v”)
     
103.             .如果真 (详细信息.控件值 ≠ equal [2])
     
104.                 返回 (假)
     
105.             .如果真结束
     
106. 
     
107.         .默认
     
108.             返回 (假)
     
109.         .判断结束
     
110. 
     
111.     .判断 (寻找文本 (child_commands [k], “=”, , 假) ≠ -1)
     
112.         contain ＝ 分割文本 (child_commands [k], “=”, )
     
113.         .判断开始 (contain [1] ＝ “n”)
     
114.             .如果真 (寻找文本 (详细信息.控件名称, contain [2], , 假) ＝ -1)
     
115.                 返回 (假)
     
116.             .如果真结束
     
117. 
     
118.         .判断 (contain [1] ＝ “s”)
     
119.             .如果真 (寻找文本 (详细信息.控件状态, contain [2], , 假) ＝ -1)
     
120.                 返回 (假)
     
121.             .如果真结束
     
122. 
     
123.         .判断 (contain [1] ＝ “t”)
     
124.             .如果真 (寻找文本 (详细信息.控件类型, contain [2], , 假) ＝ -1)
     
125.                 返回 (假)
     
126.             .如果真结束
     
127. 
     
128.         .判断 (contain [1] ＝ “id”)
     
129.             .如果真 (寻找文本 (详细信息.控件ID, contain [2], , 假) ＝ -1)
     
130.                 返回 (假)
     
131.             .如果真结束
     
132. 
     
133.         .判断 (contain [1] ＝ “v”)
     
134.             .如果真 (寻找文本 (详细信息.控件值, contain [2], , 假) ＝ -1)
     
135.                 返回 (假)
     
136.             .如果真结束
     
137. 
     
138.         .默认
     
139. 
     
140.         .判断结束
     
141. 
     
142.     .默认
     
143.         返回 (假)
     
144.     .判断结束
     
145. 
     
146. .计次循环尾 ()
     
147. 返回 (真)
     

复制代码

123456789f

自绘窗口_Accessible定位 功能