[Colaboração] Replace entre caracteres.

Boa tarde!

Não sei se seria o lugar correto mas queria deixar uma pequena colaboração, em meio a pesquisa na internet não achei uma forma para o asp clássico de fazer replace entre duas variáveis definida e tentei estudar um pouco sobre replace e não consegui entender ao certo, então apelei.

Em meio ao texto pode ser que precise remover algo que está entre o determinada parte do conteúdo, ex: Abacaxi <0,1111> desidratado,  para Abacaxi desidratado.

Criei a função abaixo:

FUNCTION REPLACE_ENTRE(VARIAVEL,INICIO,FIM)

TEXTO=VARIAVEL

INICIA=split(TEXTO,INICIO)
IF Ubound(INICIA)>"0" Then
FINALIZA=split(INICIA(1),FIM)
REPLACE_ENTRE=INICIA(0)&""&FINALIZA(1)
ELSE
REPLACE_ENTRE=TEXTO
END IF

END FUNCTION

Para fazer o replace chama ela dessa forma, caso queira pode fazer a alteração dos caracteres para qualquer um que deseja (desde que haja diferença entre elas tipo: [ , ], <,>, sx, xs):

REPLACE_ENTRE("Variavel que deseja fazer replace","caractere que identifica inicio","caractere que identifica o final")

Quero retirar uma parte do texto onde fica entre os caracteres "[" e "]".

Há quem o faça [mas não o aconselha] por isso não o farei.

FUNCTION REPLACE_ENTRE(VARIAVEL,INICIO,FIM)

TEXTO=VARIAVEL

INICIA=split(TEXTO,INICIO)
IF Ubound(INICIA)>"0" Then
FINALIZA=split(INICIA(1),FIM)
REPLACE_ENTRE=INICIA(0)&""&FINALIZA(1)
ELSE
REPLACE_ENTRE=TEXTO
END IF

END FUNCTION

TEXTO="Há quem o faça [mas não o aconselha] por isso não o farei."

TEXTO=REPLACE_ENTRE(TEXTO,"[","]")

Imprimindo a variável ela ficará assim:

Há quem o faça por isso não o farei.

É isso ai