Quebra um texto transformando em um array (com opção de considerar colunas vazias)

Exemplo da Rotina:

aDados := Separa([Texto], [Caracter de Quebra], [Considera espaços em branco])

Exemplo 1- Separando considerando espaços em branco:

cExpressao := "Daniel;Atilio;Terminal; ;Bauru;Teste;;"
aDad1  := Separa(cExpressao, ';', .T.) //Array com 8 Colunas Daniel, Atilio, Terminal, "", Bauru, Teste, "", ""

Exemplo 2- Separando sem considerar espaços em branco:

cExpressao := "Daniel;Atilio;Terminal; ;Bauru;Teste;;"
aDad2  := Separa(cExpressao, ';', .F.) //Array Com 6 Colunas Daniel, Atilio, Terminal, "", Bauru, Teste

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;