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, "" | " Then Num = Num + 2 End If Strtemp = "") > 0 Then Numtemp = True If 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 = "(\ |