[Resolvido] Contar linhas FSO

[Patrique 0]

Fala ae galera beleza,

 

O meu sistema cria um arquivo txt aonde são gravadas informações do mesmo, essas informações são gravadas em linha de acordo com a ação do usuário no sistema.

 

Então meu txt fica mais ou menos assim

 

Usuário Patrique logou no sistema

Patrique excluiu o usuário Vitor

Patrique saiu do sistema

Patrique inseriu uma nova notícia

Patrique bloqueou Manoela do sistema

 

... e por ae vai... o sistema registra logs de atividades que os usuários fazem.

 

o que eu gostaria era que o sistema fizesse a contagem de linhas, neste exemplo acima forma 5 linha usadas... ou seja... foram registrados 5 logs de atividades.

 

Eu sei que isso é possível de acordo com o fso so que não faço a mínima idéia de onde começar.

 

Se alguém ae tiver alguma função sobre como fazer isso eu ficarei agradecido!

 

Obrigado

[Public2004 79]

Veja se isso te ajuda:

Dim objFso, objFile

Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile= objFso.OpenTextFile(Server.MapPath("seu_arquivo.txt"),1)

accountant = 0

While Not objFile.AtEndOfStream
	objFile.ReadLine
	accountant = accountant + 1
Wend

Response.Write(accountant)

objFile.close
Set objFso = Nothing

Abs.

[hargon 64]

Segue outra forma...

<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(Server.MapPath("txt.txt"), 1)

f.ReadAll
Response.Write "Total:" & f.Line


f.Close
Set f=Nothing
Set fs=Nothing
%>

[Patrique 0]

Olá!!! obrigado aos 2!!!

 

as 2 formas deram certo! muito obrigado!

 

[]'s

Patrique

[hargon 64]

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif