vb html解析类ver1.0.docVIP

vb html解析类ver1.0 ******************************************************************************************* mornhtml.cls html解析类ver1.0 COPYRIGHT mornwoo AUTHOR Morn Woo 完成时间 2011年1月6日 版本 ver1.0 修正了部分错误 ******************************************************************************************* 代码示例1： dim xxx as new mornhtml xxx.htmlfile=c:\1.html xxx.sub_parsebyfile 代码示例2： dim xxx as new mornhtml xxx.htmltext=完整的html片段 xxx.sub_parsebytext 可以使用属性 elementcount 取得解析后的元素个数 htmltext 设置或取得html片段，使用sub_parsebytext方法时必须先给htmltext赋值 htmlfile 设置或取得html文件路径，使用sub_parsebyfile方法时必须先给htmlfile赋值 解析完成了后，可以用下列方法访问解析结果 fun_GetElementIndex 通过元素名称获取元素索引，这个函数始终返回第一个找到的，当有多个同名元素时，就杯具了 fun_GetPropertyIndex 通过元素索引和属性名称获得属性索引 Fun_GetElementName 通过元素索引返回元素名称 fun_GetEText 返回元素内部的html片段 fun_GetPropertyCount 通过元素索引获得此元素的属性个数 fun_GetPropertyName 通过元素索引和属性索引获得此元素的属性名称 fun_GetPropertyValue 通过元素索引和属性索引获得此元素的属性值 Fun_GetParentName 通过元素索引获得元素的上级元素名称 fun_ExistElement 通过元素名称和索引名称进行元素查找，查找到匹配项目返回真。 ******************************************************************************************* Option Explicit Option Compare Text DefInt I DefStr S DefDate D DefLng L DefBool B 我的htmlelement对象 Private Type HtmlElement sName As String 元素名称 sText As String 内部的内容 sPropertyName() As String 属性名称集合 sPropertyValue() As String 属性值集合 iPropertyCount As Integer 属性个数 sParentName As String 上级元素名称 iLevel As Integer 元素的层级 End Type Dim mvarsHtmlText As String Dim mvarsHtmlFile As String Dim mvarlElementCount As Long Dim udfElement() As HtmlElement 元素集合 Dim miSame As Integer 类初始化 Private Sub Class_Initialize() ElementCount = 0 End Sub Public Property Let HtmlText(ByVal vData As String) mvarsHtmlText = vData End Property Public Property Get HtmlText() As String HtmlText = mvarsHtmlText End Property Public Property Let HtmlFile(ByVal vData As String) mvarsHtmlFile = vData End Property Public Property Get