Nesse vídeo demonstraremos a utilização da função WhatSepare, que serve para descobrir um separador que se repete dentro de uma string (como um ponto e vírgula ou um asterisco).

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe531
Função que busca qual é o separador usado em uma string (, ou / ou \ ou | ou * ou # ou ;)
@type Function
@author Atilio
@since 07/04/2023
@obs 

    Função WhatSepare
    Parâmetros
        Recebe o texto a ser analisado
    Retorno
        Retorna qual o caractere encontrado como separador no texto

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

User Function zExe531()
    Local aArea      := FWGetArea()
    Local cTexto     := ""
    Local cSeparador := ""

    //Define o texto
    cTexto := "Daniel;Atilio;Terminal de Informação;"
    cSeparador := WhatSepare(cTexto)

    //Exibe o resultado
    FWAlertInfo("Para o texto '" + cTexto + "' o separador encontrado foi '" + cSeparador + "'", "Teste WhatSepare")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheus