vb html解析类ver1.0

《vb html解析类ver1.0》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、vbhtml解析类ver1.0'*******************************************************************************************'mornhtml.clshtml解析类ver1.0'COPYRIGHTmornwoo'AUTHORMornWoo'完成时间2011年1月6日'版本ver1.020110111,修正了部分错误'*********************************************************************

2、**********************'代码示例1：'dimxxxasnewmornhtml'xxx.htmlfile="c:1.html"'xxx.sub_parsebyfile'代码示例2：'dimxxxasnewmornhtml'xxx.htmltext="完整的html片段"'xxx.sub_parsebytext'可以使用属性'elementcount取得解析后的元素个数'htmltext设置或取得html片段，使用sub_parsebytext方法时必须先给htmltext赋值'htmlfile设置或取得html文件路径

3、，使用sub_parsebyfile方法时必须先给htmlfile赋值'解析完成了后，可以用下列方法访问解析结果'fun_GetElementIndex通过元素名称获取元素索引，这个函数始终返回第一个找到的，当有多个同名元素时，就杯具了'fun_GetPropertyIndex通过元素索引和属性名称获得属性索引'Fun_GetElementName通过元素索引返回元素名称'fun_GetEText返回元素内部的html片段'fun_GetPropertyCount通过元素索引获得此元素的属性个数'fun_GetPropertyName通过元

4、素索引和属性索引获得此元素的属性名称'fun_GetPropertyValue通过元素索引和属性索引获得此元素的属性值'Fun_GetParentName通过元素索引获得元素的上级元素名称'fun_ExistElement通过元素名称和索引名称进行元素查找，查找到匹配项目返回真。'*******************************************************************************************OptionExplicitOptionCompareTextDefIntIDef

5、StrSDefDateDDefLngLDefBoolB'我的htmlelement对象PrivateTypeHtmlElementsNameAsString'元素名称sTextAsString'内部的内容sPropertyName()AsString'属性名称集合sPropertyValue()AsString'属性值集合iPropertyCountAsInteger'属性个数sParentNameAsString'上级元素名称iLevelAsInteger'元素的层级EndTypeDimmvarsHtmlTextAsStringDimmv

6、arsHtmlFileAsStringDimmvarlElementCountAsLongDimudfElement()AsHtmlElement'元素集合DimmiSameAsInteger'类初始化PrivateSubClass_Initialize()ElementCount=0EndSubPublicPropertyLetHtmlText(ByValvDataAsString)mvarsHtmlText=vDataEndPropertyPublicPropertyGetHtmlText()AsStringHtmlText=mvars

7、HtmlTextEndPropertyPublicPropertyLetHtmlFile(ByValvDataAsString)mvarsHtmlFile=vDataEndPropertyPublicPropertyGetHtmlFile()AsStringHtmlFile=mvarsHtmlFileEndPropertyPublicPropertyLetElementCount(ByValvDataAsLong)mvarlElementCount=vDataEndPropertyPublicPropertyGetElementCount(

8、)AsLongElementCount=mvarlElementCountEndPropertyFunctionFun_GetElementName(ByValIndexAsLo