vb html解析类ver1.0（VB HTML解析类Ver1.0）.doc

vb html解析类ver1.0（VB HTML解析类Ver1.0） “******************************************************************************************* “mornhtml.cls HTML解析类Ver1.0 版权mornwoo 作者Morn Woo “完成时间2011年1月6日 “版本ver1.0修正了部分错误 “******************************************************************************************* “代码示例1： “新mornhtml昏暗的XXX “XXX。HTML文件=“C：\ 1。html” “xxx.sub_parsebyfile “代码示例2： “新mornhtml昏暗的XXX “XXX。超文本标注语言=“完整的HTML片段” “xxx.sub_parsebytext “可以使用属性 “elementcount取得解析后的元素个数 “超文本设置或取得HTML片段，使用sub_parsebytext方法时必须先给超文本标注语言赋值 “文件路径设置或取得HTML HTML文件，HTML文件使用sub_parsebyfile方法时必须先给赋值 “解析完成了后，可以用下列方法访问解析结果 “fun_getelementindex通过元素名称获取元素索引，这个函数始终返回第一个找到的，当有多个同名元素时，就杯具了 “fun_getpropertyindex通过元素索引和属性名称获得属性索引 “fun_getelementname通过元素索引返回元素名称 “fun_getetext返回元素内部的HTML片段 “fun_getpropertycount通过元素索引获得此元素的属性个数 “fun_getpropertyname通过元素索引和属性索引获得此元素的属性名称 “fun_getpropertyvalue通过元素索引和属性索引获得此元素的属性值 “fun_getparentname通过元素索引获得元素的上级元素名称 “fun_existelement通过元素名称和索引名称进行元素查找，查找到匹配项目返回真。 “******************************************************************************************* 明确选择 选择比较文本 我defint defstr S DefDate D deflng L defbool B “我的HtmlElement对象 私有类型的HtmlElement 名为“元素名称字符串 节点作为字符串的内部的内容 spropertyname()作为字符串的属性名称集合 spropertyvalue()作为字符串的属性值集合 ipropertycount为整数的属性个数 sparentname作为字符串的上级元素名称 I级为整数的元素的层级 端式 昏暗的mvarshtmltext作为字符串 昏暗的mvarshtmlfile作为字符串 昏暗的mvarlelementcount长 昏暗的udfelement()作为“元素集合HtmlElement 昏暗的misame为整数 “类初始化 私有子class_initialize() elementcount = 0 端子 公共财产让HtmlText（ByVal数据为字符串） mvarshtmltext =数据 最后的财产 公共财产得到htmltext()作为字符串 超文本标注语言= mvarshtmltext 最后的财产 公共财产让HTML文件（ByVal数据为字符串） mvarshtmlfile =数据 最后的财产 公共财产得到htmlfile()作为字符串 mvarshtmlfile HTML文件= 最后的财产 公共财产让elementcount（ByVal数据为长） mvarlelementcount =数据 最后的财产 公共财产得到elementcount()长 elementcount = mvarlelementcount 最后的财产 功能fun_getelementname（ByVal指数为长）为字符串 如果指数小于0或指数 elementcount然后 fun_getelementname =“” 退出功能 最后如果 fun_getelementname = udfelement（指数）的关系 端功能 功能fun_getetext（ByVal指数为长）为字符串 如果指数小于0或指数 elementcount然后 fun_getetext =“” 退出