Hola!

Estoy haciendo un programa y en un momento dado necesito acceder y abrir un archivo en modo binario, el inconveniente es que tarda un gran tiempo y bastantes recursos en abrirlo... La cosa es saber... ¿Como podría optimizarlo? El code que uso es el siguiente:

Dim var As String * 60000
data = ""
var = ""
Open archivo For Binary As #1
Do While Not EOF(1)
 
Get #1, , var
 
data = data & var
data = Trim(data)
 
Loop
Close #1

¿Se puede optimizar? ¿Se puede hacer de otro método más rápido?

Salu2.
Gracias

EDITO: He probado el code pero no he logrado hacerlo funcionar correctamente. Más información acerca de lo que hago, una vez abierto y cargado el archivo en una variable lo que hago es pasarla por una función que digamos "la cifra" y lo uso de la siguiente forma:

Dim btData() As Byte
Dim sData$
 
Open archivo For Binary As #1
 
ReDim btData(LOF(1)) As Byte
 
Get #1,  1, btData
 
 
sData = StrConv(btData, vbUnicode)
sData=enc(sData)      ' "enc" es la función...
 
Close #1
 

Pero se ve que se queda en un bucle infinito... :S ¿Que es lo que pasa? ¿Será problema de la función?

Salu2.

Para incrementar la velocidad tendrias que usar API (CreateFile, ReadFile , etc.) y no leer el contenido completo del archivo sino que en chunks (multiplos de 8 bytes) es mas rapido a mi entender.

Usando matriz de byte el código queda absolutamente optimizado. Los Strings son lentos y no son apropiados para operaciones que requieren mucho procesamiento.

El siguiente código lee los datos del archivo a una matriz de Byte, luego cifra los datos modificando el valor de cada byte con un algoritmo sencillo y lineal, y por último convierte a String los datos cifrados.

Para descifrar, hay que convertir los datos a matriz de Byte. Ejemplo:

Dim btData() As Byte
Dim sString$, sDecrypt$
 
sString = "BRdTYTQ@QRG^"
 
btData = StrConv(sString, vbFromUnicode)
 
sDecrypt = Decrypt(btData)
 
Debug.Print sDecrypt
 

Sub EncryptFile(Source As String)
  Dim btData() As Byte
  Dim sEnc$
 
  Open Source For Binary As #1
 
  ReDim btData(LOF(1)) As Byte
 
  Get #1,  1, btData
 
  sEnc = Encrypt(btData)
 
  Close #1
End Sub
 
Function Encrypt(pData) As String
  Encrypt = Crypto(pData, True)
End Function
 
Function Decrypt(pData) As String
  Decrypt = Crypto(pData, False)
End Function
 
Function Crypto(pData, Optional bEncrypt As Boolean = True) As String
  Dim iFlag%
  Dim i&, lLen&
 
  lLen = UBound(pData)
 
  If (bEncrypt) Then iFlag = -1 Else iFlag = 1
 
  For i = 0 To lLen
    pData(i) = pData(i) + ((i + (i Mod lLen) + 17) * iFlag)
  Next
 
  Crypto = StrConv(pData, vbUnicode)
End Function
 
 

Saludos.