Domingo, 6 de Outubro de 2024
Busca no site:
Ok
Home
Links
Soluções
Utilitários
Publicações
Curiosidades
Produtos
Diversões
Apps Android
Contato
Mapa do Site
Sobre Nós
©2024 CJDinfo®
Detalhe Solução
ASP: Separa Strings Concatenadas com Caractere
:
' +-----------------------------------------------------------------+ ' | SeparaCampos Separa os Campos strings, aninhados com o | ' | separador dado, na Matriz unidimensional dada. | ' +-----------------------------------------------------------------+ function SeparaCampos(StrDados, Separador, Matriz) dim i, n, PosAtu n = 0 PosAtu = 1 ' Se existir dados de entrada: if StrDados <> "" then do ' Redimensiona a Matriz de Saída: n = n + 1 Redim Preserve Matriz(n) ' Carrega Próximo Campo: i = InStr(PosAtu, StrDados, Separador) if i = 0 then ' Se último Campo: Matriz(n) = Mid(StrDados, PosAtu) exit do else ' Se campo intermediário: Matriz(n) = Mid(StrDados, PosAtu, (i - PosAtu)) PosAtu = i + Len(Separador) end if loop end if SeparaCampos = n end function
¤ Links Relacionados:
- Veja todas as soluções do site
Gostou? Compartilhe ou comente:
Nome:
Email:
Comentário:
Retornar