elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 [12]
111  Programación / Programación Visual Basic / Re: Conflicto con asignaciones de variables en: 2 Septiembre 2008, 19:08 pm
ni siquiera te funciono el de arriba? o esta mal adaptado?

si el primero funciona, entonces adaptalo a tu proyecto.. si no, decime que error te da e intenta debuguear para buscar el error

supongo que se puede hacer tratandolo siempre como byte, pero por que si asi es mas simple?
112  Programación / Programación Visual Basic / Re: Crear OCX en: 2 Septiembre 2008, 19:00 pm
lo que quiere es programar uno el, osen no es opensource  ;)
113  Programación / Programación Visual Basic / Re: Conflicto con asignaciones de variables en: 1 Septiembre 2008, 18:23 pm
encontre la solucion en tratarlo como string y pasarlo a byte despues de la division.. hice este code para probarlo (uso demasiadas variables pero si queres ahorrar memoria fijate vos..)

Código
  1. Private Sub Form_Load()
  2. Dim nFile As Integer
  3. Dim Contenido As String
  4. Dim ContenidoMedio() As String
  5. Dim ContenidoFinal() As Byte
  6.  
  7. Contenido = "asdasdsadSEPARADOR123456"
  8.  
  9. ContenidoMedio = Split(Contenido, "SEPARADOR")
  10.  
  11. ReDim ContenidoFinal(Len(ContenidoMedio(1)))
  12.  
  13. ContenidoFinal() = ContenidoMedio(1)
  14.  
  15. MsgBox ContenidoFinal
  16. End Sub

y adaptado a tu code seria algo asi..

Código
  1. Dim nFile As Integer
  2. Dim Contenido As String
  3. Dim ContenidoMedio() As String
  4. Dim ContenidoFinal() As Byte
  5. nFile = FreeFile
  6. Open ruta For Binary As #nFile
  7.        Contenido = Input(LOF(Free), #Free)
  8. Close #nFile
  9.  
  10. ContenidoMedio = Split(Contenido, "SEPARADOR")
  11.  
  12. ReDim ContenidoFinal(Len(ContenidoMedio(1)))
  13.  
  14. ContenidoFinal() = ContenidoMedio(1)
Páginas: 1 2 3 4 5 6 7 8 9 10 11 [12]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines