comment
IRC Chat
play_arrow
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
  • 1275 Vistas

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

Desconectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5377
  • Actividad:
    76.67%
  • Reputación 31
  • 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: 1378
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Cómo ajustar la cadena introducida a formato de hora "00:00:00"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1467
Último mensaje Julio 26, 2010, 12:36:23 pm
por ANTRAX
Cómo ajustar la cadena introducida a formato numérico: "#,##"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1170
Último mensaje Julio 26, 2010, 12:38:04 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: 1807
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Llamada de un formulario mediante el nombre como string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1285
Último mensaje Julio 26, 2010, 04:08:58 pm
por ANTRAX