editor.vbs

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

Function Resumeblank(ByVal Content)
					if Content="" then 
						Resumeblank=Content 
						Exit Function
					end if
					Dim strHtml, strHtml2, Num, Numtemp, Strtemp, i
					strHtml = Replace(Content, "<DIV", "<div")
					strHtml = Replace(strHtml, "</DIV>", "</div>")
					strHtml = Replace(strHtml, "<P", "<p")
					strHtml = Replace(strHtml, "</P>", "</p>")
					strHtml = Replace(strHtml, "<IMG", "<img")
					strHtml = Replace(strHtml, "<FONT", "<font")
					strHtml = Replace(strHtml, "</FONT>", "</FONT>")
					strHtml = Replace(strHtml, "<TABLE", "<table")
					strHtml = Replace(strHtml, "</TABLE>", vbCrLf & "</table>" & vbCrLf)
					strHtml = Replace(strHtml, "<TBODY>", "")
					strHtml = Replace(strHtml, "</TBODY>", "" & vbCrLf)
					strHtml = Replace(strHtml, "<TR", "<tr")
					strHtml = Replace(strHtml, "</TR>", vbCrLf & "</tr>" & vbCrLf)
					strHtml = Replace(strHtml, "<TD", "<td")
					strHtml = Replace(strHtml, "</TD>", "</td>")
					strHtml = Replace(strHtml, "<"&"!--", vbCrLf & "<"&"!--")
					strHtml = Replace(strHtml, "<SELECT", vbCrLf & "<Select")
					strHtml = Replace(strHtml, "</SELECT>", vbCrLf & "</Select>")
					strHtml = Replace(strHtml, "<OPTION", vbCrLf & "  <Option")
					strHtml = Replace(strHtml, "</OPTION>", "</Option>")
					strHtml = Replace(strHtml, "<INPUT", vbCrLf & "  <Input")
					strHtml = Replace(strHtml, "<" & "script", vbCrLf & "<"&"script")
					strHtml = Replace(strHtml, "&amp;", "&")
					strHtml = Replace(strHtml, "{$--", vbCrLf & "<"&"!--$")
					strHtml = Replace(strHtml, "--}", "$--"&">")
					arrContent = Split(strHtml, vbCrLf)
					For i = 0 To UBound(arrContent)
						Numtemp = False
						If InStr(arrContent(i), "<table") > 0 Then
							Numtemp = True
							If Strtemp <> "<table" And Strtemp <> "</table>" Then
								Num = Num + 2
							End If
							Strtemp = "<table"
						ElseIf InStr(arrContent(i), "<tr") > 0 Then
							Numtemp = True
							If Strtemp <> "<tr" And Strtemp <> "</tr>" Then
								Num = Num + 2
							End If
							Strtemp = "<tr"
						ElseIf InStr(arrContent(i), "<td") > 0 Then
							Numtemp = True
							If Strtemp <> "<td" And Strtemp <> "</td>" Then
								Num = Num + 2
							End If
							Strtemp = "<td"
						ElseIf InStr(arrContent(i), "</table>") > 0 Then
							Numtemp = True
							If Strtemp <> "</table>" And Strtemp <> "<table" Then
								Num = Num - 2
							End If
							Strtemp = "</table>"
						ElseIf InStr(arrContent(i), "</tr>") > 0 Then
							Numtemp = True
							If Strtemp <> "</tr>" And Strtemp <> "<tr" Then
								Num = Num - 2
							End If
							Strtemp = "</tr>"
						ElseIf InStr(arrContent(i), "</td>") > 0 Then
							Numtemp = True
							If Strtemp <> "</td>" And Strtemp <> "<td" Then
								Num = Num - 2
							End If
							Strtemp = "</td>"
						ElseIf InStr(arrContent(i), "<"&"!--") > 0 Then
							Numtemp = True
						End If
				
						If Num < 0 Then Num = 0
						If Trim(arrContent(i)) <> "" Then
							If i = 0 Then
								strHtml2 = String(Num, " ") & arrContent(i)
							ElseIf Numtemp = True Then
								strHtml2 = strHtml2 & vbCrLf & String(Num, " ") & arrContent(i)
							Else
								strHtml2 = strHtml2 & vbCrLf & arrContent(i)
							End If
						End If
					Next
			Resumeblank = strHtml2
	End Function