Jump to content
Fórum Script Brasil
  • 0

Estrutura


ramon
 Share

Question

COmo eu faria para salvar uma estrutura que tem arrays? Eu teria que criar um laço ou tem outro jeito de salvar?

exemplo

Type Estrutura 
    Array1(3) As Integer 
    array2 As Byte 
End Type 
Public teste(10) As Estrutura 
Private Sub Form_Load()
teste(1).Array1(1) = 2
teste(2).Array1(1) = 4
teste(3).Array1(1) = 6

End Sub
Private Sub Command1_Click()
Open App.Path & "\teste.txt" For Output As #1
Print #1, teste

Close #1

End Sub

só que da erro e eu naõ queria usar um laço

Link to comment
Share on other sites

14 answers to this question

Recommended Posts

  • 0

Para gravar uma estrutura desse jeito, se não me engano, você precisa abrir o arquivo como Random (randômico) e definir o tamanho do registro (através da palavra-chave Len). E usar a instrução Put para escrever também. Exemplo:

n = FreeFile()
Open "c:\teste.txt" For Random As #n Len = 50
Put #n, , teste
Close #n

Faça o teste aí. Lembrando que a leitura também é diferente neste caso (usando a instrução Get).

Abraços,

Graymalkin

Link to comment
Share on other sites

  • 0

está mas como eu faço isso?

levando em conta que uma variavel integer ocupa 2 bytes e uma variavel byte ocupa 1 byte, é so fazer a soma.

tipo, sua estrura:

Array1(3) As Integer - 2 bytes * 4 indices = 8 bytes

array2 As Byte 1 byte

ou seja seu tipo ocupa 9 bytes.

so que você declarou um array da estrutura:

Public teste(10) As Estrutura
ou seja, 11 * 9 = 99. ficando o codigo assim:
n = FreeFile()
Open "c:\teste.txt" For Random As #n Len = 99
Put #n, , teste
Close #n[/code]

Link to comment
Share on other sites

  • 0

está o tamanho está errado....então como posso resolver isso?

me da um exemplo

Eu quis dizer que o tamanho que você "inventou" para o registro é muito grande, e que provavelmente ele não é isso tudo (ou provavelmente você pode diminuí-lo). Quais os tipos de dados que você guarda?

Abraços,

Graymalkin

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...