Foro de elhacker.net

Programacin => Programacin Visual Basic => Mensaje iniciado por: Xrage87 en 22 Noviembre 2008, 15:19 pm



Título: Rellenar una matrz desde un txt externo
Publicado por: Xrage87 en 22 Noviembre 2008, 15:19 pm
Lo que quiero hacer es rellenar una matriz previamente creada en el programa, desde un archivo txt en el que estaran almacenados los datos. Los datos dentro del txt los puedo poner como ms convenga para hacerlo.

Muchas gracias


Título: Re: Rellenar una matrz desde un txt externo
Publicado por: cassiani en 22 Noviembre 2008, 17:36 pm
Tendrs que determinar como hars la extraccin de las subcadenas para asignarle luego el valor correspondiente a la matriz, por ejemplo, luego de obtener el contenido del archivo, puedes usar el split para separarlo por lneas y asignar los valores resultantes o separarlo por cualquier caracter, como gustes.

El manejo de archivos se ha tratado varias veces, usa el buscador, lo dems es pan comido  :xD


Título: Re: Rellenar una matrz desde un txt externo
Publicado por: BlackZeroX en 22 Noviembre 2008, 23:52 pm
se me ocurre mostrarte el como hacerlo sin tanta bronca e inclusive con tipos aca te van (el Typo de datos Polygon usa matrix je) este es el codigo que uso yo para leer archivos de tipo Mesh (como los .x que genera Studio 3D)

agrega 3 textbox con opcion multilinea=true ejecutalo y ve las acciones

1.- se crean los datos aleatoriamente
2.- se visualisan los datos (los generados aleatoriamente)
3.- se graban los datos en un archivo 'X'.
4.- se descarga de memoria los datos.
5.- se visualisan los datos (oviamente no hay ninguno)
5.- se vuelven a cargar los datos
6.- se visualisan los datos (los que se cargaron en el archivo 'X')

Código
  1. Private Type VECTOR
  2.    Xx As Single
  3.    Yy As Single
  4.    Zz As Single
  5. End Type
  6.  
  7. Private Type VERTEX
  8.    Nor As VECTOR
  9.    Pos As VECTOR
  10. End Type
  11.  
  12. Private Type POLYGON
  13.    Verts(2) As VERTEX
  14. End Type
  15.  
  16. Private polyData() As POLYGON
  17.  
  18.  
  19.  
  20. Private Sub Form_Load()
  21.    randomize
  22.    ReDim polyData(10)
  23.    Dim FILE As Integer: FILE = FreeFile
  24.  
  25.    For i = 0 To 10 Step 1
  26.        For a = 0 To 2 Step 1
  27.            polyData(i).Verts(a).Nor.Xx = a * 1 + b + Int(Rnd(1) * 100)
  28.            polyData(i).Verts(a).Nor.Yy = a * 1 + b + Int(Rnd(1) * 100)
  29.            polyData(i).Verts(a).Nor.Zz = a * 1 + b + Int(Rnd(1) * 100)
  30.            polyData(i).Verts(a).Pos.Xx = a * 1 + b + Int(Rnd(1) * 100)
  31.            polyData(i).Verts(a).Pos.Yy = a * 1 + b + Int(Rnd(1) * 100)
  32.            polyData(i).Verts(a).Pos.Zz = a * 1 + b + Int(Rnd(1) * 100)
  33.        Next a
  34.    Next i
  35.  
  36.    visualisar Text1
  37.    Open "d:\aaa.txt" For Binary As FILE
  38.        Put #FILE, , polyData()
  39.    Close #FILE
  40.    'vasiamos todos los datos
  41.    For i = 0 To 10 Step 1
  42.        For a = 0 To 2 Step 1
  43.            polyData(i).Verts(a).Nor.Xx = 0
  44.            polyData(i).Verts(a).Nor.Yy = 0
  45.            polyData(i).Verts(a).Nor.Zz = 0
  46.            polyData(i).Verts(a).Pos.Xx = 0
  47.            polyData(i).Verts(a).Pos.Yy = 0
  48.            polyData(i).Verts(a).Pos.Zz = 0
  49.        Next a
  50.    Next i
  51.    'Fin
  52.    visualisar Text2
  53.    Open "d:\aaa.txt" For Binary As FILE
  54.        Get #FILE, , polyData
  55.    Close FILE
  56.    visualisar Text3
  57. End Sub
  58. Sub visualisar(textbox As textbox)
  59.    For i = 0 To 10 Step 1
  60.        For a = 0 To 2 Step 1
  61.            textbox = textbox & vbNewLine & polyData(i).Verts(a).Nor.Xx
  62.            textbox = textbox & vbNewLine & polyData(i).Verts(a).Nor.Yy
  63.            textbox = textbox & vbNewLine & polyData(i).Verts(a).Nor.Zz
  64.            textbox = textbox & vbNewLine & polyData(i).Verts(a).Pos.Xx
  65.            textbox = textbox & vbNewLine & polyData(i).Verts(a).Pos.Yy
  66.            textbox = textbox & vbNewLine & polyData(i).Verts(a).Pos.Zz
  67.        Next a
  68.    Next i
  69. End Sub
  70.  

Al ejecutarlo se crea el archivo 'X' y al abrirlo veras algo similar a esto xP:

  B  A  B  B  pB  B  B  A  @  @B  A  A  B  B  B  <B  B  XB  @  hB  B  B  PB  B  B  B  0A  B  tB  B  B  B  B  B  A  xB   @  B  HB  A  $B  dB  4B  A  8B  B  B  tB  B  B  B  B  A  B  ?  B  tB  B   A  ?  B  B   B   B  B   B  `A  A  PB  B  B   B  pA  B  tB  ,B  dB  A  B  A  B  B  `A  B  B  A  TB  `A  A  B  @A  PA  B  DB  LB  B  (B  B  `B   B  B  TB  \B  B  B  B  4B  B  B  `A  PB  B  A  B  A  B  xB  A  A  A  \B  A  PB  PA  \B  4B  8B  |B   @  B  A  B  ?  A   A  B  ,B  \B  `B  B  @B  B  A  B  hB  B  B  B      B  A  pB   B  B  ?  B  B  B  $B  B   A  B  B   A  B      \B  8B  B  B  tB  A  @  4B  B  pA  B  B  B  B  @  B  |B  B  @  B  A  B  B  B  @B  B  B  B   @  B  B  A