Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Ciao a tutti, ho un problema che non saprei come risolvere. Necessito di leggere files ed uso:
dim dati(1 to 9999) as string, i as integer
Open "blabla.exe" For Binary As #1
Do
i = i + 1
Get #1, , dati(i)
DoEvents
Loop Until EOF(1) = True
Close #1
Diciamo che il codice che uso è simile solo che non c'è la limitazione di grandezza file...cmq per un file di pochi kb lo carica subito nell'array, ma già basta ke sia da 4 mg e ci mette un eternità, a questo punto mi domando come far leggere tutto insieme, o cmq trovare un metodo + veloce. Grazie.
adesso dico una cazzata ma la lentezza non e` dovuta dal fatto che stocchi tutto in byte?
cioe io uso principalmente le string (lo so che non e` consigliabile) ma carica anche delle centinaia di mega in pochi secondi..
Il problema è che sto facendo un editor esadecimale e se uso le string in realtà non mi prende tutti i caratteri presenti nel file, quindi quando salvo l'exe risulta "danneggiato"...
e salvarlo in un'array di integer oppure long?
non dovrebbe essere troppo difficile. l'unico problema è la segmentazione/ conversione che potrebbe ciucciare un fracasso di tempo.
Ho imparte risolto usando al posto della get #1:
dati = Input(LOF(1), #1)
l'unico probl è che x i file un pò più grossi di 20 o 10 mega ci mette un pò...cmq diciamo che a me va bene così perchè gli exe non sono poi tanto grandi