Filtrar uma região

A algum tempo atrás bati de frente com o probema de remover uma área específica de uma string ( eu estava trabalhando com e-mail, eprecisava remover as tags de header ).
Bom, tá ae a solução do problema ...

s1 = caractere inicial da busca
s2 = caractere final da busca
var = variavel a ser pesquisada
target = substituir tudo q esta entre s1 e s2 ( inclusive ) por isto.

 

<%
function clear(s1,s2,var,target)
 PosI = 0
 PosF = 0

 PosI = instr(1,var,s1)

 PosF = instr(1,var,s2)
 if PosF > 0 then
  PosF  = PosF + (len(s2)-1)
  trash =  mid(var,PosI,PosF)
  clear = replace(var,trash,target)
 else
  clear = var
 end if
end function
%>

Esta matéria foi postada originalmente no ASP4Developers por Ismael Nobre (site), que na época era "Analista.
Quer me contratar ?
Cel. 96420687". Hoje, vai saber...