.txt escrever e ler numeros

[jviana]

Estou com um problema a escrever num .txt

No inicio o numero é "0", é um integer.

Ao fim disto:

   Sub maisnumero()
    Using numeronew As New System.IO.StreamReader(numeroPath, False)
	    numero = numeronew.Read
	    numero = numero + 1
    End Using
    Using morenumero As New StreamWriter(numeroPath, False)
	    morenumero.WriteLine(numero)
	    ToolStripLabel1.Text = "Número de Pautas: " & numero
    End Using
   End Sub

numero é igual a 65534, a minha dúvida é: como isto é possive?

[Andrepereira9]

Boas

Explica lá melhor o que queres fazer

[jviana]

Num ficheiro .txt, abro o ficheiro , copio um numero e volto a guardar o numero +1,

Percebes-te?

[programadorvb6]

olá boa tarde.

Assim :

Sub maisnumero()
		Using numeronew As New System.IO.StreamReader(numeroPath, False)
				numero = numeronew.Read
				numero += 1
		End Using
		Using morenumero As New StreamWriter(numeroPath, False)
				morenumero.WriteLine(numero)
				ToolStripLabel1.Text = "Número de Pautas: " & numero
		End Using
End Sub

Edited May 19, 2012 at 02:51 PM by programadorvb6

[bsccara]

De acordo com a documentação o método Read lê apenas um caracter, retornado como um Int32 e retorna -1, se atingires o fim do stream. O que precisas de usar é o método ReadLine para obter a linha como string e depois usas Convert.ToInt32(string) para converter para um Int32.

[jviana]

Não deu, dá-me um numero parecido com 11600

Cumps. J.Viana

[bsccara]

Mostra o teu código actual.

[jviana]

    Using numeronew As New System.IO.StreamReader(numeroPath, False)
	    Dim inputnumero As String
	    inputnumero = numeronew.ReadLine
	    numero = Convert.ToInt32(inputnumero)
	    numero += numero
    End Using
    Using morenumero As New StreamWriter(numeroPath, False)
	    morenumero.WriteLine(numero)
	    ToolStripLabel1.Text = "Número de Pautas: " & numero
    End Using

    Using numeronew As New System.IO.StreamReader(numeroPath, False)
	    Dim inputnumero As String
	    inputnumero = numeronew.ReadLine
	    numero = Convert.ToInt32(inputnumero)
	    numero += numero
    End Using
    Using morenumero As New StreamWriter(numeroPath, False)
	    morenumero.WriteLine(numero)
	    ToolStripLabel1.Text = "Número de Pautas: " & numero
    End Using

[jviana]

Já consegui, mudei o encoding

e o Código

   Sub maisnumero()
    Using numeronew As New System.IO.StreamReader(numeroPath, False)
	    Dim inputnumero As String
	    inputnumero = numeronew.ReadLine
	    numero = Convert.ToInt32(inputnumero)
	    numero = numero + 1
    End Using
    Using morenumero As New StreamWriter(numeroPath, False)
	    morenumero.WriteLine(numero)
	    ToolStripLabel1.Text = "Número de Pautas: " & numero
    End Using
   End Sub