Tempo de leitura: 1 minuto
A função StrTokArr em ADVPL quebra uma String passada como parâmetro. Essa quebra é feita baseada no separador informado, que pode ser um ou mais caracteres. Ao final ela retorna um array, onde cada porção da string separada é um elemento desse array. StrTokArr é uma das funções de manipulação de string em ADVPL.
Sintaxe:
StrTokArr(cString,cSep)
Parâmetro(s):
Retorno:
Exemplo da função StrTokArr ADVPL:
#include 'protheus.ch'
/*{Protheus.doc} User Function fStrTokA
(Essa função tem por finalidade mostrar a função de Manipulação de String StrTokArr em ADVPL)
@type Function
@author Adilio Costa
@since 16/08/2024
@version 1.0
@Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@Conheça os Cursos do Portal ProtheusAdvpl:
https://hotmart.com/pt-br/club/portal-protheusadvpl
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
*/
User Function fStrTokA()
Local cStr := "ADVPL I;ADVPL II;ADVPL III;TLPP"
Local cSep := ";"
Local aDados := StrTokArr(cStr,cSep)
Local nI
Local cInfo := ""
For nI := 1 To Len(aDados)
cInfo +="Elemento "+cValToChar(nI)+":"+aDados[nI]+Chr(10)+Chr(13)
Next nI
If(Len(aDados)>0)
MsgInfo(cInfo,"Exemplo da Função StrToKArr")
EndIf
Return
No código ADVPL acima passamos a variável cStr com seus conteúdos separados por “;” e informamos ela e a variável cSep para a função StrToKArr e a mesma quebrou o conteúdo de cStr utilizando o separador de cSep e assim retornou um array aDados com cada elemento de cStr:
É isso aí, finalizamos aqui o post aqui do 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(s):
