Prikazi cijelu temu 29.06.2015 14:56
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:VBA Excel snimi matricu - VB6 ucitaj matricu
u VBA excelu snimio sam matricu na HD ovako
PreuzmiIzvorni kôd (Visual Basic):
  1. type data
  2.         uzorak1 as string
  3.         uzorak2 as string
  4.         uzorak3 as string
  5.         uzorak4 as string
  6. end type
  7. podaci as data
  8.  
  9. dim SnimiMatrica (endRed,brojDanauMjesecu,brojUzoraka)
  10. for red=1 to endRed
  11.         for dana=1 to brojDanauMjesecu
  12.                 SnimiMatrica(red,dana,1)=podaci.uzorak1
  13.                 SnimiMatrica(red,dana,2)=podaci.uzorak2
  14.                 SnimiMatrica(red,dana,3)=podaci.uzorak3
  15.                 SnimiMatrica(red,dana,4)=podaci.uzorak4
  16.         next dana
  17. next red
  18.  
  19. open imeFajla For Binary Lock Read Write As #1
  20.         Put #1, , SnimiMatrica
  21. close #1

i onda sam iz VB6 pokusao ucitati tu matricu ovako:
PreuzmiIzvorni kôd (Visual Basic):
  1. type data
  2.         str() as String
  3. end type
  4.  
  5. Dim UcitanaMatrica As data
  6.   Open "c:\imeFajla.txt" For Binary Lock Read Write  As #1
  7.     Get #1, , UcitanaMatrica
  8.   Close #1
  9.  
  10.   For red = LBound(UcitanaMatrica.str, 1) To UBound(UcitanaMatrica.str, 1)
  11.     For brojDanauMjesecu = LBound(UcitanaMatrica.str, 2) To UBound(UcitanaMatrica.str, 2)
  12.         For brojUzoraka = 1 to 4
  13.                 Debug.Print UcitanaMatrica.str(red, brojDanauMjesecu, brojUzoraka)
  14.         Next brojUzoraka
  15.     Next brojDanauMjesecu
  16.  Next red

no medutim javi mi gresku u liniji: Get #1, , UcitanaMatrica
znate li mozda u cemu je problem?
zivot je moja domovina.