Fso + Array Multidimensional

[pLatik 0]

aí galera...

 

tenho um script que lê um ficheiro txt e está ordenado pela seguinte ordem:

 

ano dia mes evento

2009 2 4 ir ao shopping

2208 2 4 estudar mais asp

2007 3 6 etc...

 

 

aquilo que estou querendo é ordenar por ordem descendente, mostrando os ultimos eventos inseridos que mais se aproximem da data corrente e limitando os registros mostrados a 3. meu código de seguida:

 

Set objFile  = CreateObject("Scripting.FileSystemObject")
	Set strFile  = objFile.OpenTextFile(server.mappath("mondocal\event.txt"), 1, FALSE)
	Set objEvent = CreateObject("Scripting.Dictionary")
	set fso = Server.CreateObject("Scripting.FileSystemObject") 
	set txt = fso.createTextFile(server.mapPath("calendario.asp"))
	'*** Loop through file and store events ***
	Do While strFile.AtEndOfStream <> True
		strLine = strFile.ReadLine
		If Left(strLine,1) <> "'" Then
			objEvent.Add strFile.Line, strLine 
		End If
	Loop
	
	strFile.Close	



For Each i In objEvent
redim strLine(i, 3)

strLine = Split(objEvent(i),VbTab)
						   



next 



redim  strEvent(i, 3)

'redim strLine(i, 3)

	for n = 0 to ubound(strLine) -3

				if strLine(n) = CStr(year(date)) and strLine(n) <> "Every" then
		strEvent(i,3)= strEvent(i,3)& strLine(0)& "/" & strLine(1) & "/" & strLine(2) &"-" & strLine(3) & "<p>"

			
					end if
					
	txt.writeLine strEvent(i,3)

	Next

[Salgado 4]

Ao invés de usar array multidimensional para isso, dê uma pesquisada por RecordSet Desconectado aqui mesmo no fórum.