Tempo de leitura: 1 minuto
A função ArrTokStr em ADVPL tranforma um array em uma string a partir de um delimitador informado. Ela é uma das funções de manipulação de string em ADVPL.
Sintaxe:
ArrTokStr(aArray,cDelim)
Parâmetro(s):
Retorno:
Exemplo da função ArrTokStr em ADVPL:
#include 'protheus.ch'
/*{Protheus.doc} User Function fArToStr
-Esse programa tem por finalidade mostrar a função de manipulação de array ArrTokStr em ADVPL/TLPP
@type Function
@author Adilio Costa
@since 29/09/2015
@version 1.0
@Participe de nossas comunidades no WhatsApp:
-Comunidade Protheus Backoffice:https://chat.whatsapp.com/KMUIAjwZ6EZ6eAHsLkPTyb
-Comunidade Protheus-RH:https://chat.whatsapp.com/L5dUyAna6xU4ylG5DUgfOW
-Comunidade Protheus-Programação:https://chat.whatsapp.com/LsD6z0apdqKHlOz67bcaEn
-Comunidade Protheus-Framework:https://chat.whatsapp.com/BzUFpjaSnTC3vtsfa77jmG
*/
User Function fArToStr()
Local QLinha := Chr(10)+Chr(13)
Local aArea := FWGetArea()
Local aInfo := {}
Local cDados := ""
//Adiciona informações no Array
aAdd(aInfo, {"Data de Hoje", Date()})
aAdd(aInfo, {"Site", "https://protheusadvpl.com.br"})
//Transforma o Array em uma String
cDados := ArrTokStr(aInfo, "//")
//Mostra o resultado
FWAlertInfo("Dados da conversão do Array em String: " + QLinha + cDados, "Função ArrTokStr")
FWRestArea(aArea)
Return
No código ADVPL acima nós passamos para a função ArrTokStr o array aInfo com o delimitador “//” e a função retornou uma string com cada elemento do array separado por “//” {“Data de Hoje”,29/09/25}//{“Site”,”https://protheusadvpl.com.br”}, conforme a imagem abaixo:
É isso aí, finalizamos mais um post aqui no Blog ProtheusAdvpl, caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Até um próximo post. Grande abraço e fica com Deus.
Link(s) de referência:
