Autor Tema: Imprimir Una Matrix 20x8 En Un Archivo (Leído 1049 veces)

ahmolina · « **en:** Lunes 26 de Enero de 2004, 18:26 »

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 &#34;c:&#092;Borrar&#092;Archivo.txt&#34; 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.

SoloCodigo

Autor Tema: Imprimir Una Matrix 20x8 En Un Archivo (Leído 1049 veces)

ahmolina

Imprimir Una Matrix 20x8 En Un Archivo

Brroz

Re: Imprimir Una Matrix 20x8 En Un Archivo