Spanish Recuperar datos de un archivo

[WOLFMAN]

Hola a todos, soy nuevo por aqui y tengo una cuantas consultas pero para mantener ordenado el foro las hare por separado.

Tengo un archivo de texto llamado Texto.txt con la siguiente estructura:

001-05-07-10-15
002-05-08-39-40
003-15-18-33-59

Tengo un Label1 en el que quiero que me muestre los tres primeros numero, como numero es decir el 001 seria 1 y cuando pulse un boton quiero que me muestre el siguiente numero el 05 como 5

lo que tengo programado es:

Dim Reader As TextReader
Dim Buffer(100) As Char
Reader.Initialize(File.OpenInput(File.DirRootExternal, "Combinaciones.txt"))
Label1.Text=Reader.Read(Buffer,0,3)


Sub Mas_Click

Dim Reader As TextReader
Dim Buffer(100) As Char
Reader.Initialize(File.OpenInput(File.DirRootExternal, "Combinaciones.txt"))
Label1.Text=Reader.Read(Buffer,5,2)

End Sub

Pero el resultado no es el esperado, al principio me da 3 y cuando pulso el boton Mas me da 2 supongo que son el numero de caracteres.

¿Como puedo hacerlo?

 

[WOLFMAN]

Y otra cosa, una vez que ya tengo el numero correcto como hago para cambiar la imagen del correspondiente ImageView es decir si el numero es 5 que ponga una imagen determinada en control ImageView5.

 

[WOLFMAN]

Bueno me contesto a mi mismo por si a alguien le surge la misma duda:

La primera pregunta lo solucione con:

Dim Reader As TextReader
Dim CC1 As String
Dim CC2 As String
Dim CC3 As Int
Dim i As Int
Dim N1, N2, N3, N4, N5, N6 As Int

Reader.Initialize(File.OpenInput(File.DirRootExter nal, "Combinaciones.txt"))


CC1=Reader.ReadLine
CC2=CC1.SubString2(0,3)
CC3=CC2
N1=CC3

CC2=CC1.SubString2(4,6)
CC3=CC2
N2=CC2


Asi ya tengo almaceado en la variable N1 el numero 1 correspondiente al 001 del ejemplo que puse
y en N2 el numero 5 corespondiente al 05


La segunda pregunta lo soluciones con:

Dim CardViews() As ImageView

CardViews = Array As ImageView(C1, C2, C3, C4, C5, C6, C7)

CardViews(N1).Bitmap = LoadBitmap(File.DirAssets,"Cruz.png")
CardViews(N2).Bitmap = LoadBitmap(File.DirAssets,"Cruz.png")


Seguramente no sea lo mas correcto pero funciona. Ahora tengo otra duda que pondre en otro hilo.