Nesse vídeo demonstraremos a utilização da função StripTags, que serve para buscar o conteúdo informado em uma tag (por exemplo de um XML).

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe460
Realiza a busca de valores dentro de uma tag (XML)
@type Function
@author Atilio
@since 31/03/2023
@obs 
    Função StripTags
    Parâmetros
        Valor a ser Analisado
        Define se irá limpar valores antes de retornar
    Retorno
        Retorna a string encontrada dentro das tags

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe460()
    Local aArea     := FWGetArea()
    Local cOriginal := ""
    Local cNovo     := ""

    //Monta uma string com tags e depois remove e exibe
    cOriginal := "<nome>daniel atilio</nome>"
    cNovo     := StripTags(cOriginal, .F.)
    FWAlertInfo("O resultado é: " + cNovo, "Teste StripTags")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++