Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Como cargar un archivo en memoria

  • 0 Respuestas
  • 1500 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5462
  • Actividad:
    16.67%
  • Reputación 35
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 01:40:10 pm »
Código: Visual Basic
  1. Funtion LoadFile (ByVal FileName As String, Optional IsText As Boolean) As String
  2. Dim tmpF() As Byte, FLen As Long
  3. Dim Num As Integer, tmpStr As String
  4. On Error Goto ErrLog
  5. FLen=FileLen(FileName)
  6. Num=FreeFile()
  7.  
  8. Open FileName For Binary Access Read As #Num
  9. If IsText = False Then
  10.      'Para cargar la matriz de bytes
  11.     ReDim tmpF(0 To (FLen-1)) As Byte
  12.      Get #1, ,tmpF
  13.      LoadFile=tmpF
  14. Else
  15.      'Para cargar como cadena de texto
  16.     '(ideal para archivos de texto)
  17.     tmpStr=String(FLen, 0)
  18.      Get #1, ,tmpStr
  19.      LoadFile=tmpStr
  20. End If
  21. Close #Num
  22. 'Se libera memoria
  23. Erase tmpF: tmpStr=""
  24.  
  25. Exit Function
  26. ErrLog:
  27.        Erase tmpF: tmpStr=""
  28.        Error Err.Number
  29. End Function
« Última modificación: Mayo 12, 2014, 03:18:01 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1618
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Cómo ajustar la cadena introducida a formato numérico: "#,##"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1396
Último mensaje Julio 26, 2010, 12:38:04 pm
por ANTRAX
Cómo ajustar la cadena introducida a formato de hora "00:00:00"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1790
Último mensaje Julio 26, 2010, 12:36:23 pm
por ANTRAX
Manual de como bloquear CTRL+ALT+SUP, ALT+TAB, Y OTROS con Visual Basic en WinXP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2087
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como pasar de un TextBox a otro pulsando ENTER

Iniciado por ANTRAX

Respuestas: 0
Vistas: 11556
Último mensaje Julio 26, 2010, 03:41:24 pm
por ANTRAX