[Resolvido] Gravar Arquivo TXT

[Zé Luiz - Dainet 0]

Olá Bom Dia a todos do fórum,

 

gostaria de desejar um Feliz Ano Novo para todos, pois não tive tempo antes, pois estava a maior correria aqui na empresa.

 

vamos ao assunto:

 

estou pegando os "Cookies" e gravando num TXT.

só que quando outro usuario entra no site, com outro ip, ele não grava na proxima linha.

como eu faço para grava a nova informação na proxima linha do TXT.

 

Segue o cod abaixo.

 

<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("D:\web\LocalUser\thefirm\banco\" & cdata & ".txt",true)
fname.WriteLine(cdata & "," & cip & "," & cpagina & cpagina2)
fname.Close
set fname=nothing
set fs=nothing
%>

 

Grato.

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

 

--

José Luiz R. Souza Junior

Senior Consulting & Designer

http://thefirm.com.br

junior@thefirm.com.br

 

---

 

Yahoo MSN: hackz_neo

MSN: junior@thefirm.com.br

ICQ: 452-830-778

Skype: the.firm.brasil

[wills 0]

cara, não testei mas, que já tentou fazendo um looping?

[Zé Luiz - Dainet 0]

não quero ler a proxima linha, mais sim, gravar na proxima!!!!

[Zé Luiz - Dainet 0]

Problema resolvido:

 

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject") 
set f=fs.CreateTextFile("c:\test.txt",true)
f.WriteLine("Hello World!")
f.WriteBlankLines(2)
f.WriteLine("How are you today?")
f.close
set f=nothing
set fs=nothing
%>

mais estou com um novo problema.

 

ao inves dele gravar na proxima linha uma nova...

ele apaga o que tinha, pula uma linha e grava o novo!!!

 

pq me ajudem!!!

[Mário Monteiro 179]

basicamente é como abre o arquivo

 

<%
Dim mFile,mFileSystem

 Set mFileSystem = server.createobject("Scripting.FileSystemObject")
  if mFileSystem.FileExists("arquivo.txt") = false then
	set mFile = mFileSystem.CreateTextFile ("arquivo.txt")
	mFile.WriteLine("Criou")
	mFile.Close
	set mFile=nothing
  end if

  set mFile = mFileSystem.OpenTextFile(("arquivo.txt"), 8)

  mFile.WriteLine("Adicionou")
  mFile.close
  set mFile=nothing
  set mFileSystem=nothing
%>

ai estou testando se o arquvio existe

 

se garantir quer existe ja pode eliminar toda a primeira parte do codigo

[Zé Luiz - Dainet 0]

Muito obrigado, eu tb nesse meio tempo consegui um.

mais o seu funciona tb, esta arquivado comigo.

 

obrigado a todos do forum!!!!

 

Segue o código que eu consegui tb:

 

<%
cdata = Replace(Date ,"/","-")

TheDate = Date
TheTime = Time
IPAddress = Request.ServerVariables("REMOTE_ADDR")
Browser = Request.ServerVariables("HTTP_USER_AGENT")

Set FSObj=Server.CreateObject("Scripting.FileSystemObject")

If Not FSObj.FileExists("D:\web\LocalUser\thefirm\banco\" & cdata & ".txt") Then
  FSObj.CreateTextFile("D:\web\LocalUser\thefirm\banco\" & cdata & ".txt")
End If

Set TSObj = FSObj.OpenTextFile ("D:\web\LocalUser\thefirm\banco\" & cdata & ".txt", 8)
TSObj.WriteLine(TheDate & "," & TheTime & "," & IPAddress & "," & Browser)
TSObj.Close
%>

[Mário Monteiro 179]

perfeito entao

 

Abraços