Function Resumeblank(ByVal Content) if Content="" then Resumeblank=Content Exit Function end if Dim strHtml, strHtml2, Num, Numtemp, Strtemp, i strHtml = Replace(strHtml, "", "") strHtml = Replace(Content, "", "") strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "", "

") strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "", vbCrLf & "" & vbCrLf) strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "", "" & vbCrLf) strHtml = Replace(strHtml, "", vbCrLf & "" & vbCrLf) strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "<"&"!--", vbCrLf & "<"&"!--") strHtml = Replace(strHtml, "", vbCrLf & "") strHtml = Replace(strHtml, "", "") strHtml = Replace(strHtml, "") arrContent = Split(strHtml, vbCrLf) For i = 0 To UBound(arrContent) Numtemp = False If InStr(arrContent(i), " 0 Then Numtemp = True If Strtemp <> " "" Then Num = Num + 2 End If Strtemp = " 0 Then Numtemp = True If Strtemp <> " "" Then Num = Num + 2 End If Strtemp = " 0 Then Numtemp = True If Strtemp <> " "" Then Num = Num + 2 End If Strtemp = "") > 0 Then Numtemp = True If Strtemp <> "" And Strtemp <> "") > 0 Then Numtemp = True If Strtemp <> "" And Strtemp <> "") > 0 Then Numtemp = True If Strtemp <> "" And Strtemp <> " 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 function FormatHtml(Content) FormatHtml=Content Exit Function Dim regEx, Matches, Match, TempStr Set regEx = New RegExp regEx.Pattern = "(background=|SIZE=|color=|bgColor=|colSpan=|align=|width=|height=|cellSpacing=|cellPadding=|border=|class=| id=|target=)[^( |)>]*" regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(Content) For Each Match In Matches If Instr(Match.Value,"""")=0 Then If Instr(Match.Value,"class=")<>0 then TempStr=Replace(Match.Value,"class=","class=""")&"""" If Instr(Match.Value,"target=")<>0 then TempStr=Replace(Match.Value,"target=","target=""")&"""" If Instr(Match.Value," id=")<>0 then TempStr=Replace(Match.Value," id="," id=""")&"""" If Instr(Match.Value,"border=")<>0 then TempStr=Replace(Match.Value,"border=","border=""")&"""" If Instr(Match.Value,"cellPadding=")<>0 then TempStr=Replace(Match.Value,"cellPadding=","cellpadding=""")&"""" If Instr(Match.Value,"cellSpacing=")<>0 then TempStr=Replace(Match.Value,"cellSpacing=","cellspacing=""")&"""" If Instr(Match.Value,"width=")<>0 and Instr(Match.Value,"%")=0 then TempStr=Replace(Match.Value,"width=","width=""")&"""" If Instr(Match.Value,"height=")<>0 and Instr(Match.Value,"%")=0 then TempStr=Replace(Match.Value,"height=","height=""")&"""" If Instr(Match.Value,"align=")<>0 then TempStr=Replace(Match.Value,"align=","align=""")&"""" If Instr(Match.Value,"colSpan=")<>0 then TempStr=Replace(Match.Value,"colSpan=","colSpan=""")&"""" If Instr(Match.Value,"bgColor=")<>0 then TempStr=Replace(Match.Value,"bgColor=","bgColor=""")&"""" If Instr(Match.Value,"color=")<>0 then TempStr=Replace(Match.Value,"color=","color=""")&"""" If Instr(Match.Value,"SIZE=")<>0 then TempStr=Replace(Match.Value,"SIZE=","size=""")&"""" If Instr(Match.Value,"background=")<>0 then TempStr=Replace(Match.Value,"background=","background=""")&"""" 'If Instr(Match.Value,"http-equiv=")<>0 then TempStr=Replace(Match.Value,"http-equiv=","http-equiv=""")&"""" ' If Instr(Match.Value,"rel=")<>0 then TempStr=Replace(Match.Value,"rel=","rel=""")&"""" 'If Instr(Match.Value,"type=")<>0 then TempStr=Replace(Match.Value,"type=","type=""")&"""" If Instr(Match.value,"%")=0 Then Content=Replace(Content,Match.value,TempStr) End If Next FormatHtml=Content End Function function ReplaceScriptToImg(Content) Dim regEx,Match, Matches,strTemp Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = "(\)" Set Matches = regEx.Execute(Content) For Each Match In Matches strTemp = Replace(Match.Value, "<", "[!") strTemp = Replace(strTemp, ">", "!]") strTemp = Replace(strTemp, "'", "â€?) strTemp = "#" & strTemp & "#" Content = Replace(Content, Match.Value, strTemp) Next ReplaceScriptToImg=content 'ReplaceScriptToImg=Replace(content,"""","[") End function function ReplaceImgToScript(Content) Dim regEx,Matches,Match,strTemp2,Match2,strTemp Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = "\" Set Matches = regEx.Execute(Content) For Each Match In Matches regEx.Pattern = "\#\[(.*?)\]\#" Set strTemp = regEx.Execute(Match.Value) For Each Match2 In strTemp strTemp2 = Replace(Match2.Value, "&", "&") strTemp2 = Replace(strTemp2, "#", "") strTemp2 = Replace(strTemp2,"&13;&10;",vbCrLf) strTemp2 = Replace(strTemp2,"&9;",vbTab) strTemp2 = Replace(strTemp2,"â€?,"'") strTemp2 = Replace(strTemp2, "[!", "<") strTemp2 = Replace(strTemp2, "!]", ">") Content = Replace(Content, Match.Value, strTemp2) Next Next Content = Replace(Content, " ", "") Content = Replace(Content, "", "") Content = Replace(Content, "" & vbcrlf &"" & vbcrlf &"国产一级在线现免费观看|日本又粗又黄jo视频图片|欧美偷窥清纯综合图区|欧美LexiLore黑人|色婷婷五月综合亚洲小说
<bdo id="maqld"><ruby id="maqld"><menu id="maqld"></menu></ruby></bdo>
    1. <s id="maqld"></s>

      <strike id="maqld"></strike>

    2. <label id="maqld"></label><s id="maqld"><sub id="maqld"></sub></s>
        <label id="maqld"></label>
    3. <bdo id="maqld"><ruby id="maqld"><menu id="maqld"></menu></ruby></bdo>
      1. <s id="maqld"></s>

        <strike id="maqld"></strike>

      2. <label id="maqld"></label><s id="maqld"><sub id="maqld"></sub></s>
          <label id="maqld"></label>
      3. ", "") 'Content = Replace(Content, "