[firebase-br] OFF-Toppic - Delphi - Função SplitString

Gladiston Santana gladiston em vidy.com.br
Sex Dez 14 11:32:14 -03 2018


Hehe, meio OFF, mas estude a propriedade chamada Commatext no  TStringList.
Quando perceber como utiizá-la, verá uma maneira bem eficiente para
importar e exportar dados com delimitadores sem muito esforço!

[]´s

Em qui, 13 de dez de 2018 às 16:27, Henrique Ribeiro <kikeribeiro em gmail.com>
escreveu:

> Boa tarde colegas,
>
> Desde já, eu agradeço qualquer tipo de ajuda que possam me dar.
> Muito obrigado mesmo.
>
> No Delphi 7 (única versão que tenho) não existe a função "SplitString" que
> existe em versões superiores.
>
> Estou tentando resolver uma situação mas estou meio perdido porque acabo
> gerando resultados inesperados.
>
> É referente a rotina de leitura de uma string com dados de boletos que
> gerei.
> Vou compartilhar com vocês:
>
> Na string abaixo:
>
> ##OK*|*|2*|*|##OK*|*|1*|00000000000000000000000000000000000000000000000*|
>
> https://faturas.iugu.com/41e48012-45f1-47d2-8ad9-c5751e9e8075-ab5f*|41E4801245F147D28AD9C5751E9E8075%%OK*|*|2*|00000000000000000000000000000000000000000000000*|https://faturas.iugu.com/b761961a-fd83-4dd8-976c-e5689c507019-511c*|B761961AFD834DD8976CE5689C507019%%OK*|*|3*|00000000000000000000000000000000000000000000000*|https://faturas.iugu.com/7be4f119-5d2e-41fd-b0d9-42951c0d54f2-88ba*|7BE4F1195D2E41FDB0D942951C0D54F2%%OK*|*|4*|00000000000000000000000000000000000000000000000*|https://faturas.iugu.com/51221b70-0e4d-47b9-a5f5-60676302b145-cbd9*|51221B700E4D47B9A5F560676302B145##
>
> Eu preciso:
> 1- efetuar um Split por ##
> 2 - vai retornar um array com 4 itens
> 2.1 - o primeiro e o último vou descartar, pq estão vazios
> 2.2 - o segundo são os dados da fatura
> 2.3 - o terceiro dos boletos
> 6 - com o de boletos, efetuar outro Split por "$$"
> 7 - se tiver mais de um boleto, como no caso acima, vai gerar um array com
> cada um dos boletos
> 7.1 - tendo mais de um boleto, preciso executar outro Split por "*|" pra
> pegar os itens
>
> Muito obrigado novamente.
> Desejo sucesso e prosperidade a todos vocês.
>
> Att,
> Henrique
>
> Graça a vós e paz da parte daquele que é, e que era, e que há de vir
> (Apocalipse
> 1:4 <https://www.bibliaonline.com.br/acf/ap/1/4+#v4>).
> Pois ainda em bem pouco tempo aquele que há de vir virá, e não
> tardará.  (Hebreus
> 10:37) <https://www.bibliaonline.com.br/acf/hb/10/37+#v37>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas:
> http://www.firebase.com.br/pesquisa_lista.html
>


-- 
A Vidy possui um Sistema de Gestão da Qualidade estruturado e com
Certificação ISO 9001 há mais de 10 anos, mantendo seu foco na Qualidade e
na Melhoria Continua.

Em março de2018 migramos com sucesso para a nova versão da ISO 9001.

Somos a única Empresa Brasileira de Engenharia de Laboratórios com
certificação com o Escopo Completo; desde Projetos, Engenharia, Construção,
Fabricação e Instalação de Laboratórios.



Mais detalhes sobre a lista de discussão lista