Contador Txt

[PhoEniXFirE]

Estou com um script desenvolvido por meu colega, Rafael, q é um contador, na verdade ele soma sempre + 1, a cada vez q este script é aberto.

Aí vai o script:

<%
meucont = Server.MapPath( "contador.txt" )
Set Sys = Server.CreateObject( "Scripting.FileSystemObject" )
Set Txt = Sys.OpenTextFile( meucont, 1 )
Contador = Fix( Txt.ReadAll )
Txt.Close
Contador = Contador + 1
Set Txt = Sys.OpenTextFile( meucont, 2 )
Txt.Write( Contador )
Txt.Close
Response.Write( Contador )
Set Sys = NOTHING
%>

O acontece é q estou precisando colocar no arquivo CONTADOR.TXT, n apenas o nº a ser somado, tenho q colocar antes dele N=. Um exemplo: n=14, desta forma, obvio, o script n funciona devido terem outros caracteres n numericos, o caso o n e o =, gostaria de saber se alguém saberia como modificar este script para somar o nº, n levando em consideração o n= ? Poderia ser somando apartir do caractere ln 1, col 3 .

Quem puder me ajudar fico grato.

Abraços

[dnlmosilva]

<%

meucont = Server.MapPath( "contador.txt" )

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

Set Txt = Sys.OpenTextFile( meucont, 1 )

Contador = Fix( Txt.ReadAll )

Txt.Close

'Modificando script para retirar o n= do numero

Contador = cint(right(Contador,len(Contador)-2)) + 1

Contador = "n=" & Contador

Set Txt = Sys.OpenTextFile( meucont, 2 )

Txt.Write( Contador )

Txt.Close

Response.Write( Contador )

Set Sys = NOTHING

%>

O que eu fiz foi retirar os 2 primeiros caracteres da string contador (no caso 'n=') e converter o resto em número inteiro para que pudesse ser somado com 1.

Depois disso volter a acrescentar o 'n=' ao número novo para que pudesse ser salvo no arquivo texto...

Abraços Daniel

[PhoEniXFirE]

<%

meucont = Server.MapPath( "contador.txt" )

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

Set Txt = Sys.OpenTextFile( meucont, 1 )

Contador = Fix( Txt.ReadAll )

Txt.Close

'Modificando script para retirar o n= do numero

Contador = cint(right(Contador,len(Contador)-2)) + 1

Contador = "n=" & Contador

Set Txt = Sys.OpenTextFile( meucont, 2 )

Txt.Write( Contador )

Txt.Close

Response.Write( Contador )

Set Sys = NOTHING

%>

O que eu fiz foi retirar os 2 primeiros caracteres da string contador (no caso 'n=') e converter o resto em número inteiro para que pudesse ser somado com 1.

Depois disso volter a acrescentar o 'n=' ao número novo para que pudesse ser salvo no arquivo texto...

Abraços Daniel

E daniel, eu entendi o q você me disse, mas código modificado n funcionou aqui?

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: '[string: "n=8"]'

/contador.asp, line 5

Este é o erro acima.

O q aconteceu?

[cyberalexxx]

qual é a linha 5??

você já deu um response.write na variavel contador???

não existem espaços em branco a direira do texto??? se tiver use um trim na variavel contador.

[PhoEniXFirE]

qual é a linha 5??

você já deu um response.write na variavel contador???

não existem espaços em branco a direira do texto??? se tiver use um trim na variavel contador.

Contador = Fix( Txt.ReadAll )

A response.write foi dada no final do ASP.

O arquivo contador.txt, esta exatamente assim n=8 sem espaços.

[cyberalexxx]

Tente mudar para a linha 5 para:

contador = txt.Readline

[cyberalexxx]

Acho que voce não pode usar o Fix pois existem letras no arquivo ai ele não consegue converter

[PhoEniXFirE]

Tente mudar para a linha 5 para:

contador = txt.Readline

valeu cara, ffuncionou beleza!!

valeu mesmo!!

[dark0]

Bom.. duvida resolvida?

To fechando o tópico então..

PhoEniXFirE desculpe não ter dado atenção à este tópico, mas não tive muito tempo.

Abraços, e até mais!