通过词条(entries)获取HTML成员接口（纯代码）

stillness

1.
2.

  

窗口程序集名	保 留	保 留	备 注

子程序名	返回值类型	公开	备 注
_CheckEntries_被单击

变量名	类 型	静态	数组	备 注
element	对象

element ＝ GetElementByEnteries (AxWeb.取文档对象 (), “糯米517吃货节，地道美食5.17元起”)
如果真 (element.是否为空 ())
信息框 (“没有找到词条对应的成员”, #信息图标, , )
返回 ()
element.写属性 (“outerHTML”, “搞什么推销，智障儿童吗？”)
信息框 (“找到词条对应成员，并辱骂了对方”, #信息图标, , )

子程序名	返回值类型	公开	备 注
GetElementByEnteries	对象
参数名	类 型	参考	可空	数组	备 注
document	对象
enteries	文本型

变量名	类 型	静态	数组	备 注
len	整数型
all	对象
element	对象
i	整数型
str	文本型

如果真 (document.是否为空 ())
返回 (document)
all ＝ document.读对象型属性 (“all”, )
如果真 (all.是否为空 ())
返回 (document)
len ＝ all.读数值属性 (“length”, )
如果真 (len ≤ 0)
返回 (document)
变量循环首 (0, len － 1, 1, i)
element ＝ all.读对象型属性 (“item”, i)
如果真 (element.是否为空 ())
到循环尾 ()
str ＝ GetEnteriesValue (element.读文本属性 (“outerHTML”, ))
如果真 (str ≠ “” 且 寻找文本 (str, enteries, , 假) ＞ -1)
返回 (element)

变量循环尾 ()
返回 (document)

子程序名	返回值类型	公开	备 注
GetEnteriesValue	文本型
参数名	类 型	参考	可空	数组	备 注
outerHTML	文本型

变量名	类 型	静态	数组	备 注
regex	对象
matchs	对象
match	对象
retVal	文本型

regex.创建 (“VBScript.RegExp”, )
如果真 (regex.是否为空 ())
返回 (“”)
regex.写属性 (“Pattern”, “>(.*?)<”)
regex.写属性 (“Global”, 真)
regex.写属性 (“Multiline”, 真)
matchs ＝ regex.对象型方法 (“Execute”, outerHTML)
如果真 (matchs.是否为空 () 或 matchs.读数值属性 (“Count”, ) ≤ 0)
返回 (“”)
match ＝ matchs.读对象型属性 (“Item”, 0)
match ＝ match.读对象型属性 (“SubMatches”, )
retVal ＝ match.文本方法 (“item”, 0)
返回 (retVal)

i支持库列表	支持库注释
HtmlView	超文本浏览框支持库

.版本 2<br /> .支持库 HtmlView<br /> <br /> .程序集 <br /> <br /> .子程序 _CheckEntries_被单击<br /> .局部变量 element, 对象<br /> <br /> element ＝ GetElementByEnteries (AxWeb.取文档对象 (), “糯米517吃货节，地道美食5.17元起”)<br /> .如果真 (element.是否为空 ())<br />     信息框 (“没有找到词条对应的成员”, #信息图标, , )<br />     返回 ()<br /> .如果真结束<br /> element.写属性 (“outerHTML”, “搞什么推销，智障儿童吗？”)<br /> 信息框 (“找到词条对应成员，并辱骂了对方”, #信息图标, , )<br /> <br /> .子程序 GetElementByEnteries, 对象<br /> .参数 document, 对象<br /> .参数 enteries, 文本型<br /> .局部变量 len, 整数型<br /> .局部变量 all, 对象<br /> .局部变量 element, 对象<br /> .局部变量 i, 整数型<br /> .局部变量 str, 文本型<br /> <br /> .如果真 (document.是否为空 ())<br />     返回 (document)<br /> .如果真结束<br /> all ＝ document.读对象型属性 (“all”, )<br /> .如果真 (all.是否为空 ())<br />     返回 (document)<br /> .如果真结束<br /> len ＝ all.读数值属性 (“length”, )<br /> .如果真 (len ≤ 0)<br />     返回 (document)<br /> .如果真结束<br /> .变量循环首 (0, len － 1, 1, i)<br />     element ＝ all.读对象型属性 (“item”, i)<br />     .如果真 (element.是否为空 ())<br />         到循环尾 ()<br />     .如果真结束<br />     str ＝ GetEnteriesValue (element.读文本属性 (“outerHTML”, ))<br />     .如果真 (str ≠ “” 且 寻找文本 (str, enteries, , 假) ＞ -1)<br />         返回 (element)<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> 返回 (document)<br /> <br /> .子程序 GetEnteriesValue, 文本型<br /> .参数 outerHTML, 文本型<br /> .局部变量 regex, 对象<br /> .局部变量 matchs, 对象<br /> .局部变量 match, 对象<br /> .局部变量 retVal, 文本型<br /> <br /> regex.创建 (“VBScript.RegExp”, )<br /> .如果真 (regex.是否为空 ())<br />     返回 (“”)<br /> .如果真结束<br /> regex.写属性 (“Pattern”, “>(.*?)<”)<br /> regex.写属性 (“Global”, 真)<br /> regex.写属性 (“Multiline”, 真)<br /> matchs ＝ regex.对象型方法 (“Execute”, outerHTML)<br /> .如果真 (matchs.是否为空 () 或 matchs.读数值属性 (“Count”, ) ≤ 0)<br />     返回 (“”)<br /> .如果真结束<br /> match ＝ matchs.读对象型属性 (“Item”, 0)<br /> match ＝ match.读对象型属性 (“SubMatches”, )<br /> retVal ＝ match.文本方法 (“item”, 0)<br /> 返回 (retVal)

源代码: GetElementByEnteries.rar (1.97 KB, 下载次数: 16)

2015-5-14 22:48 上传

点击文件名下载附件

dszbox471

不错不错，好东西，谢谢分享哦！~

伤痕哥哥

谢谢楼主分享

邪意邪神

沙发