©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

Retornar