Procedure ExtraiString(CorpoTexto, BuscarTexto)

ValorRetornado is string

IF CorpoTexto <> "" AND BuscarTexto <> ""

IF PositionOccurrence(CorpoTexto,BuscarTexto,firstRank,FromBeginning) > 0 AND PositionOccurrence(CorpoTexto,"<",firstRank,FromBeginning) > 0 AND PositionOccurrence(CorpoTexto,">",firstRank,FromBeginning) > 0

PosicaoInicial is int = PositionOccurrence(CorpoTexto,"<"+BuscarTexto+">",firstRank,FromBeginning) + Length(BuscarTexto) + 2

PosicaoFinal is int = PositionOccurrence(CorpoTexto,"</"+BuscarTexto+">",firstRank,FromBeginning)

ValorRetornado = Middle(CorpoTexto,PosicaoInicial,PosicaoFinal - PosicaoInicial)

ELSE
ValorRetornado = ""
END

END

RESULT ValorRetornado