Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Comparando itens de um array

Recommended Posts

O exemplo abaixo mostra o mesmo resultado que precisei ou seja, listo vários registros mas alguns deles que fazem parte de um array são exibidos de forma diferenciada. Para o exemplo, crie um arquivo de texto e salve com o nome de "frutas.txt" com o conteúdo abaixo:

 

abacate

goiaba

abacaxi

banana

caju

morango

laranja

tangerina

uva

manga

 

E no ASP, efetuamos a leitura das linhas do arquivo acima e com a utilização do "Filter", comparamos cada linha com o Array, se existir, exibe o texto com outra cor:

 

<%
Dim arrCitricas,objFso,objFile,objStream,lineRow,objFilter,styleFont,itemFilter
Const forReading = 1

Set objFso    = CreateObject("Scripting.FileSystemObject")
Set objFile   = objFso.GetFile(Server.MapPath("frutas.txt"))
Set objStream = objFile.OpenAsTextStream(forReading,false)

arrCitricas   = Array("abacaxi","caju","laranja","tangerina")
While Not objStream.AtEndOfStream
        lineRow   = objStream.Readline
        objFilter = Filter(arrCitricas,lineRow)
        styleFont = "#000"
        For each itemFilter in objFilter
                styleFont = "#f00"
        Next
        Response.Write("<p style='color:"& styleFont &"'>"& lineRow &"</p>")
Wend 

objStream.Close
Set objStream = Nothing
Set objFso    = Nothing
%>

contribuição do nosso amigo Public2004

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.