Leitura Em Binario Demoraaaaaa

[ramon]

Por que demora para carregar o meu arquivo que foi salvo em binario

Tipo veja se pode ser melhorado

Open caminho For Binary As #1

For Y = 0 To 200
For X = 0 To 20
For Z = 0 To 13
dado = Space(LOF(1))
Get #1, , dado
Banco(Y, X, Z) = dado
Next Z
Next Y
Next X

Close #1

Para gravar é rapido mas para ler demoraaaaaa

Poque tem algum jeito de se fazer a leitura mais rapido no modo binario?

[Graymalkin]

É só mudar o...

Dim Clubes(20, 20, 13)

... para:

Dim Clubes(20, 20, 13) As String

Como eu disse anteriormente, arquivos binários transformam valores para a forma binária, mas não strings. E uma variante não é exatamente uma string.

Abraços,

Graymalkin

[ramon]

E se eu tiver uma matrix declarada como integer e uma outra como string?

Bom poderia usar a funcao val para retornar um inteiro

Mas se no caso eu tiver usando uma variant e pior que estou pois esta matrix aceita string e inteiros ai terei que mudar todo o meu programa

[Graymalkin]

Aí fica complicado. Acho que o ideal seria usar só strings e converter quando for necessário (com o val(), como você falou).

Abraços,

Graymalkin

[ramon]

beleza então

Valeu mais uma vez pela grande ajuda

[ramon]

mais uma duvida

a variavel dado para esvaziar a memoria basta eu colocar depois de fazer a leitura e os loops

dados= ""

assim ela esvazia a memoria?

[Graymalkin]

mais uma duvida

a variavel dado para esvaziar a memoria basta eu colocar depois de fazer a leitura e os loops

dados= ""

assim ela esvazia a memoria?

Sim, creio que ele esvazie a área de memória utilizada para alocar a string toda (exceto pelos bytes necessário para definir que a variável existe). Em todo caso, ao chegar no final do procedimento a memória é liberada de um jeito ou de outro (já que o tempo de vida dessa variável é só dentro da rotina).

Abraços,

Graymalkin