matriz numeros enteros - VB-MUNDO

visual_v · #1 (**permalink**) 12-01-2007, 09:59:05

Resulta que tengo una matriz de 9 x 9 y en esta matriz quiero introducir numeros pero quiero introducirlos mediante un fichero, algo así como...

#
6,4,0,0,0,8,3,5,0
0,9,2,0,0,0,1,0,0
0,0,0,0,1,0,0,6,2
0,0,7,3,0,5,0,9,4
0,2,0,0,0,6,0,8,3
8,0,0,7,2,0,0,0,0
0,5,3,0,7,0,6,0,0
7,8,6,9,0,2,0,0,0
2,0,9,4,0,3,0,0,5
#

#
1,2,0,0,0,8,3,5,0
0,7,2,0,0,0,1,0,0
0,0,0,0,1,0,0,6,2
0,0,7,3,0,5,0,9,4
0,3,0,0,0,6,0,8,5
8,0,0,7,2,0,0,0,0
0,5,3,0,7,0,6,0,0
7,8,6,9,0,2,0,0,0
2,0,9,4,0,3,0,0,0
#

Las almohadillas indican el principio y el final de cada serie, quiero decir, mi aplicacion ofrece la posibilidad de rellenar la matriz aleatoriamente con distintas series.
Mi pregunta es: ¿cómo puedo cargar este fichero en la aplicacion?
Por cierto, la matriz es de cuadros de texto

GRACIAS !!!

mamer182 · #2 (**permalink**) 15-01-2007, 11:46:14

Espero que esto te sirva:

Private Sub CargarArchivo_Click()
Dim rutaNombreArchivo
Dim fs, F

rutaNombreArchivo = ThisWorkbook.Path + nombreArchivo 'Ruta donde tengas guardadas las matrices, esto es un ejemplo
Set F = fs.OpenTextFile(rutaNombreArchivo, 1)
fila = F.readline 'Lee el archivo línea a línea
.... 'Tratas la fila que lees de la manera oportuna
F.Close
End Sub

Suerte.

visual_v · #3 (**permalink**) 16-01-2007, 21:16:52

Gracias mamer !!

Gracias a tu ayuda conseguí guardar la matriz en el fichero, ahora quisiera recuperarla y mostrarla en el formulario de visual pero no lo consigo, el código que hice es el siguiente:

Código:

Private Sub Abrir_Click()

Dim i As Integer
Dim x As String

If lista.ListIndex = 0 Then
    
    Open "C:\guardar_facil.txt" For Input As #1

    i = 0
    x = Input(1, #1) 'leemos el fichero carácter a carácter
    While i <= 26 '3 primeras cajas
        Text1(i) = x 'vamos añadiendo los caracteres leídos a Text1(i)
        i = i + 1
        x = Input(1, #1) 'leemos el fichero carácter a carácter
    Wend

    Close #1
    
End If

End Sub

¿Donde me equivoco?
Un millón de gracias !!!

mamer182 · #4 (**permalink**) 17-01-2007, 08:43:11

Cita:

Empezado por visual_v

Gracias mamer !!

Gracias a tu ayuda conseguí guardar la matriz en el fichero, ahora quisiera recuperarla y mostrarla en el formulario de visual pero no lo consigo, el código que hice es el siguiente:

Código:

Private Sub Abrir_Click()

Dim i As Integer
Dim x As String

If lista.ListIndex = 0 Then
    
    Open "C:\guardar_facil.txt" For Input As #1

    i = 0
    x = Input(1, #1) 'leemos el fichero carácter a carácter
    While i <= 26 '3 primeras cajas
        Text1(i) = x 'vamos añadiendo los caracteres leídos a Text1(i)
        i = i + 1
        x = Input(1, #1) 'leemos el fichero carácter a carácter
    Wend

    Close #1
    
End If

End Sub

¿Donde me equivoco?
Un millón de gracias !!!

Text1, ¿qué es? ¿Es un control TextBox, una matriz de controles TextBox o un array de String? Para poder ayudarte necesito saberlo.

visual_v · #5 (**permalink**) 17-01-2007, 09:27:42

Es una matriz de TextBox, los TextBox almacenan números pero son tratados como cadenas, no sé si me explico.

Si no me explico por favor hadmelo saber e intentaré explicarme mejor, GRACIAS.

mamer182 · #6 (**permalink**) 17-01-2007, 09:53:54

En ese caso, para "asignar" a cada TextBox la cadena "x", debes acceder a la propiedad "Text" de cada control. Me explico: la asignación sería de la siguiente forma:

Text1(i).Text = x

Espero que te funcione así.

visual_v · #7 (**permalink**) 17-01-2007, 11:05:54

Perfecto, ahora su funcionamiento es perfecto !!!!
Muchisimas gracias mamer !!! Eres un genio