©2024 CJDinfo®

Detalhe Solução

ASP: Carga de Combo a partir de arquivo Texto:

' --------------------------------------------------------------------
' CargaComboTxt     
' Gera Linhas "<option>" para carregar um combo com dados vindos 
' de um arquivo texto. No exemplo o Value será carregado com as três
' primeiras posições da linha e a apresentação com as demais.
' Posiciona sobre o ItemDado:
' --------------------------------------------------------------------
sub CargaComboTxt(ItemDado)
    
    dim oFs, oTx, sLinha, s

on error resume next

Set oFs = Server.CreateObject("Scripting.FileSystemObject")
    Set oTx = oFs.OpenTextFile(NomeArq)
    While not oTx.AtEndOfStream
        sLinha = trim(oTx.ReadLine)
        s = "<option value='" & Left(sLinha, 3) & "'"
        if ItemDado <> "" then
            if ItemDado = Left(sLinha, 3) then
                s = s & " selected"
            end if
        end if
        s = s & ">" & Trim(mid(sLinha, 4)) & chr(13)
        Response.write s
    Wend
    oTx.close
    set oTx = Nothing
    set oFs = Nothing
end sub

¤ Links Relacionados:
- Veja todas as soluções do site

Gostou? Compartilhe ou comente:

Retornar