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
  • 1343 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5409
  • Actividad:
    20%
  • Reputación 33
  • 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: 1452
Ú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: 1246
Ú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: 1621
Ú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: 1916
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como ingresar solo numeros en un campo de texto

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1425
Último mensaje Julio 26, 2010, 10:24:49 am
por ANTRAX