Impedir repetição e ordenar por data

[Alex_ps 0]

Pessoal,Estou precisando de uma ajuda, por favor!Tenho o seguinte:2005-09-23-voa5.cfm2005-09-23-voa3.cfm2005-09-23-voa1.cfm2005-09-23-voa5.cfm2005-09-23-voa4.cfm2005-09-23-voa3.cfm2005-09-23-voa1.cfm2005-09-22-voa2.cfm2005-09-15-voa5.cfm2005-09-13-voa5.cfm2005-07-27-voa2.cfm2005-07-08-voa2.cfm2005-09-23-voa1.cfm2005-09-13-voa1.cfm2005-08-29-voa2.cfm2005-07-06-voa3.cfm2005-06-01-voa1.cfm2005-09-23-voa5.cfm2005-09-23-voa4.cfm2005-09-22-voa4.cfmEu iria fazer um split de "str" e cada uma destas linhas (vLinha) seria uma variável à ser inserida em uma URL para chamar uma página, em um loop "For ubound(str) to ubound(str) next".Primeiro eu gostaria de que as linhas, ou no caso variáveis, não se repetissem, o que está acontecendo no documento orginal.Depois, se possível, colocá-las em ordem de data.Se ficar muita encrenca, colocar em ordem, só a ajuda com a filtragem já seria de bom tamanho.Muito obrigado,Alex_ps

[Marcelo Barcellos 0]

Esse arquivos estão no seu diretório ? Ou é uma simples lista.De onde você tira essa lista ?

[Alex_ps 0]

Olá Marcelo,Obrigado por responder!O que nós vemos é o resultado de uma página trazida por XLMHttp, em que são exibidos títulos de notícias, e ao clicar em um destes títulos, a gente vê a notícia.Só que os caras dividem as notícias em categorias e algumas das notícias aparecem em 2 categorias.Assim, ao final da limpeza, o "texto" que sobra é o que eu postei.Com base nestas variáveis que serão inseridas outra vez na função que traz o conteudo por XMLHttp, já estou criando os filtros de "título", "reporter", "data", "hora" e número da notícia.Tudo para depois inserir em meu banco de dados.Eu até posso fazer um IF, e inserir no banco somente notícias inéditas, mas creio que é mais rápido eu verificar entre 10, 15 notícias do que em todo o banco com 4 a 5 mil notícias.Espero que tenha ficado claro.Alex_ps

[Marcelo Barcellos 0]

Ok.Vamos utilizar Recordsets desconectados.

varArquivo = Split("2005-09-23-voa5.cfm,2005-09-23-voa3.cfm",",")For i = 0 To Ubound(varArquivo)  For i2 = 0 To Ubound(varArquivo)    if i <> i2 then      if varArquivo(i) = varArquivo(12) then        if IndicesDuplicados = "" then          IndicesDuplicados = i2          else          IndicesDuplicados = IndicesDuplicado & "|" & i2        End if      End if     End if  NextNextDim ORsSet ORs = Server.CreateObject("adodb.recordset")ORs.CursorLocation = 3ORs.CursorType = 1ORs.Fields.Append "ds_file_name", 200,255ORs.Fields.Append "dt_file", 7,8ORs.OpenvarDuplicado = Split(IndicesDuplicados,"|")For i = 0 To ubound(varArquivo)  if Instr(1,i,IndicesDuplicados) = 0 then    ORs.AddNew    ORs("ds_file_name") = varArquivo(i)    ORs("dt_file") = Mid(varArquivo(i),9,2) & "/" & Mid(varArquivo(i),6,2) & "/" & Mid(varArquivo(i),1,4)     ORs.UpdateEnd ifNext'---OrdenandoOrs.Sort = "dt_file Asc"

[Alex_ps 0]

Marcelo,Vou precisar de um tempo para ver o que você fez e entender, já que foi muuuito além do que eu conheço.De qualquer forma, eu tentei simplesmente inserir no meu código, já partindo do split, e no final eu não entendi como, ou melhor, o que ele irá mostrar.'---OrdenandoOrs.Sort = "dt_file Asc"Não sei o que fazer com este trecho acima, já que o simples fato de dar um response.write em Ors.Sort, não está me apresentando nada.Vou analisar melhor e depois eu volto.Muito obrigado pela ajuda!Alex_ps