[Resolvido] Comparar com item do Array

[Public2004 79]

Estou fazendo uma listagem de pastas e subpastas com FSO, mas só posso exibir as pastas que façam parte de um determinado array.

Como fazer esssa comparação?

 

Att.

[xanburzum 169]

recupere os itens do array e faça uma comparação com os dados da pasta, atraves de um If simples

[Public2004 79]

Deixa eu explicar melhor: Tenho uma função recursiva para listar pastas e subpastas e na verdade todas as pastas serão listadas, mas as que estão especificadas no Array serão exibidas/tratadas de forma diferenciada. Se fosse listar apenas as que estão no Array, este simples "if" resolveria, mas não e o caso.

 

Att.

[xanburzum 169]

e como seria essa forma diferenciada

[hargon 64]

Utilize a função Filter para verificar se a pasta existe no Array.

 

Essa função retorna um Array somente com as palavras buscadas. Nesse caso, basta você verificar o retorno. Se o novo array possui algum valor, é pq a pasta existe, se não possui é pq não existe.

 

 

VBScript Filter Function

[Public2004 79]

Valew pessoal! Esse "Filter" funcionou certinho.

 

Att.

[hargon 64]

Que bom que resolveu Public2004.

 

Abraço.

[xanburzum 169]

opa legal amigo..

 

depois se quiser coloca o code, para futuras buscas de outros users

[Public2004 79]

Sem problema. Claro que aqui utilizo de forma mais elaborada, mas 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
%>

Espero que seja útil para outras pessoas.

 

Att