Programación General > Visual Basic 6.0 e inferiores

 Imprimir Una Matrix 20x8 En Un Archivo

(1/1)

ahmolina:
Necesito imprimir una matriz que tengo en un arreglo de 10x8 (Matriz(10,8)).
necesito imprimir dicha matriz en un archivo con algun metodo, print, write,
Necesito que cuando se imprima se vea de la forma siguiente:

a1 a2 a3 a4 a5 a6 a7 a8
b1 b2 b2 b4 .. ...  ...   ...
... ...  ...  ...  .. .. . .. .. .
 . . .. .. .. . .. .. .. .. .. .. .
z1 z2 z3 z4 z5 z6 z7 z8 z9

De la manera tradicional, visual lo hace de esta manera:
a1
a2
a3
a4
a5
...
...
...
...
..
z1
z2
z3
z4
z5
z6
z7
z8



espero me puedan ayudar gracias

Brroz:
Hola ahmolina.

Prueba con un código de este estilo:


--- Código: Text --- Private Sub Command1_Click()     On Error GoTo Err_Command1_Click       Dim intCanal As Integer    intCanal = FreeFile     Open "c:\Borrar\Archivo.txt" For Output As intCanal     Dim int1 As Integer    For int1 = 0 To 9        Print #intCanal, Matriz(int1, 0), Matriz(int1, 1) _        , Matriz(int1, 2), Matriz(int1, 3), Matriz(int1, 4) _        , Matriz(int1, 5), Matriz(int1, 6), Matriz(int1, 7)    Next int1 Exit_Command1_Click:    On Local Error Resume Next    Close #intCanal    Exit Sub    Err_Command1_Click:    MsgBox Err.Description, vbCritical    Resume Exit_Command1_Click    End Sub  
En lugar de Print #canal, podrías utilizar Write para dar más consistencia a los datos: se usaría ; como delimitador de valores, y el tipo de datos de cada campo y su formato quedaría reflejado claramente y de forma estándard (textos delimitados por comillas dobles, números con coma como separador decimal , valores especiales entre almoadillas...).

Suerte.

Navegación

[0] Índice de Mensajes