Script para limpiar newsletter CNA

Reemplazar(busca, reemplaza = "",modo="g") {
  Send ^h{Del}
  SendRaw %busca%
  Send {Tab}{Del}
  SendRaw %reemplaza%
  Send !%modo%
  Send !a{Esc}{Esc}
  ; MsgBox %busca%
}

#.::
Reemplazar("\n", "","x")
Reemplazar("\r", "","x")
Reemplazar("<li>", "\n<li>","x")
Reemplazar("</li>", "</li>\n","x")
Reemplazar("<ul>", "\n<ul>","x")
Reemplazar("</ul>", "</ul>\n","x")
Reemplazar("<tr", "\n<tr","x")
Reemplazar("</tr>", "</tr>\n","x")

Reemplazar(" class=['""][a-z0-9\-_;:&,# ]*[""']","")
Reemplazar(" style=['""][a-z0-9\-\._;:%&,\(\)# ]*[""']","")
Reemplazar(" height=""[0-9]+""","")
Reemplazar(" width=""[0-9]+""","")
Reemplazar(" lang=""[a-zA-Z\-]+""","")

Reemplazar("</span></div><div><span>"," ","n")

Reemplazar("<li><div><div>(<a.+</a>)</div><div><div><div>Fecha\(s\):&nbsp;</div><div><div><span>([0-9 /]+)</span>[div/<>]+<([ap])","<h3>\2 :: \1</h3><\3")
Reemplazar("<div><div>Información.+</p></div></div></div></div><div>")
Reemplazar("Leer más</a></div></div></li>","Leer más</a><hr />","n")
Reemplazar(" $")
Reemplazar("<[/]*span>")
Reemplazar("<td><a href=""/user/[0-9]+"" title=""Ver el perfil de usuario."">.+</a></td> ")
Reemplazar("<td>([A-Z][a-záéíóúñ])([a-z áéíóúñ]+)</td>","<td><img src=""http://www.cnargentina.com.ar/newsletter/banderas/\1.gif"" alt=""\1\2"" title=""\1\2"">")

Reemplazar(" [ ]+"," ")

Reemplazar("^(<h3>[0-9/: ]+<a href="")/node/([0-9]+)""","\1http://cnargentina.com.ar/node/\2?utm_source=phplist&utm_medium=email&utm_campaign=%A_YYYY%%A_MM%%A_DD%&utm_content=dest-title""")
Reemplazar("<li><div><div><a href=""/node/([0-9]+)"">(.+)</a></div></div></li>","<li><a href=""http://cnargentina.com.ar/node/\1?utm_source=phplist&utm_medium=email&utm_campaign=%A_YYYY%%A_MM%%A_DD%&utm_content=novedades"">\2</li>")
Reemplazar("<td><a href=""/node/([0-9]+)"">","<td><a href=""http://cnargentina.com.ar/node/\1?utm_source=phplist&utm_medium=email&utm_campaign=%A_YYYY%%A_MM%%A_DD%&utm_content=agenda"">")

Reemplazar("Ar.gif","ar.gif","n")
Reemplazar("Br.gif","br.gif","n")
Reemplazar("Ur.gif","uy.gif","n")
Reemplazar("Mé.gif","mx.gif","n")
Reemplazar("Es.gif","es.gif","n")
Reemplazar("Pe.gif","pe.gif","n")
Reemplazar("Pa.gif","py.gif","n")
Reemplazar("Bo.gif","bo.gif","n")
Reemplazar("Ja.gif","jp.gif","n")
Reemplazar("Ve.gif","ve.gif","n")
Reemplazar("Ch.gif","cl.gif","n")

Reemplazar(" alt="".+"" title="".+"" "," align=right ")

Send ^a!w{Left}{Left}{Down}{Down}{Right}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Enter}