Como cargar un archivo en memoria

  • 0 Respuestas
  • 2051 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5701
  • Actividad:
    100%
  • 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: 2553
Ú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: 2239
Ú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: 2596
Ú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: 2983
Ú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: 14397
Último mensaje Julio 26, 2010, 03:41:24 pm
por ANTRAX