Como cargar un archivo en memoria

  • 0 Respuestas
  • 2001 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5636
  • Actividad:
    53.33%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Como cargar un archivo en memoria

  • 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 »


 

Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2332
Ú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: 2431
Ú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: 2064
Ú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: 2777
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como Imprimir en tamaño especial en Impresoras Matriciales en XP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2458
Último mensaje Julio 26, 2010, 11:14:36 am
por ANTRAX