Estrutura

[ramon]

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

[Graymalkin]

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

[ramon]

Deu um errro de Bad record lenght

[Graymalkin]

Deu um errro de Bad record lenght

Bom, aqui não deu. Mas, você tentou alterar o tamaho do registro?

Abraços,

Graymalkin

[ramon]

está mas como eu posso saber o tamanho do registro?

[Graymalkin]

está mas como eu posso saber o tamanho do registro?

O tamanho é você que define. Mas, se quiser deixar a coisa mais otimizada, some a quantidade de bytes que a estrutura ocupa.

Abraços,

Graymalkin

[ramon]

está mas como eu faço isso?

[kuroi]

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]

[ramon]

vlw kUROI

[ramon]

Tipo se meu reclength for de 405800 bytes dá um erro tem como resolver isso?

Pois o reclenght permite no maximo 32,767 bytes

Aguardo respostas

[Graymalkin]

Você tem um registro de 405KB? Não tem nada errado neste tamanho, não?

Abraços,

Graymalkin

[ramon]

Mas da erro de overflow...você sabe porque isso ocrre?

[Graymalkin]

Mas da erro de overflow...você sabe porque isso ocrre?

Você leu o que eu disse?

Graymalkin

[ramon]

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

me da um exemplo

[Graymalkin]

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