Spanish Recuperar datos de un archivo

WOLFMAN

New Member
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

New Member
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

New Member
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.
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…