Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: th3y en Noviembre 05, 2012, 04:07:53 am
-
No se si es un tema ya tocado, pero busco y busco en internet y no consigo una respuesta concreta.
Existe alguna forma de unir 2 archivos en 1 solo, sin perder informacion en ellas, y poder leerlas o cargarlas?
En mi caso, buscando, (no es una forma de unir) intente guardar texto en metadatos de una imagen
pero debido al problema de sistema de archivos de Windows no es posible, Asi que seguí buscando y lo unico que encontre fue sobre los EXIF Data.. que tambien es otro problema.
Lo que busco, es la union de 2 archivos en 1 sin modificar los mismos, algo al estilo "Comprimido" (Imagen + Texto Plano)
Quisiera usar este proyecto que encontre en PSC [Archiver Proyect (http://www.mediafire.com/download.php?9kkp971bee5i204)]
Pero no se que dicen ustedes, si hay alguno mejor? de preferencia no "comprimido"
Gracias de antemano :)
-
Hola, no entendí bien, que exactamente lo que queres hacer, intuyo que esto te puede servir.
http://www.leandroascierto.com.ar/foro/index.php?topic=863.0
Saludos.
-
Acabas de alegrarme el Dia, o bueno.. la madrugada.
Lo probare!
Una pregunta:
Cuando hace la carga del dato, demora dependiendo del tamaño del archivo?
Un Ejemplo:
Uno de los archivos (texto) tiene como dato: Nombre= Juan , Edad= 26
Y Otro Archivo de texto tiene como dato : Nombre= Mario, Edad= 27
y asi progresivamente (osea mas archivos de texto con diferentes variables...)
Como puedo hacer para cargar el texto, buscar el valor de nombre o edad, sin necesidad de extraerlo, o en todo caso hacer una funcion al estilo WritePrivateProfileString y GetPrivateProfileString
Estoy buscando un nuevo sistema de archivos para un programa que tengo por la red ]http://www.mediafire.com/download.php?n6dvwgvhwnvtbgb (http://[Anme Datbse) (no es SC)
Como notaras, uso la funcion de writeprivate para leer los datos, y a parte tengo que cargar la imagen (Pero esta suelta y es facil eliminarla), y estoy buscando ahora como juntar los 2 y hacer las mismas funciones, como buscar por Titulo, Genero etc
Gracias enserio! estaba frustrado.
-
Hola lo podes hacer utilizando PropertyBag + la clase que te pase antes, te paso un ejemplo de un ABM
http://www.mediafire.com/?4146vafpxctkoov
Ten en cuenta que las imágenes no son comprimidas, pasan a bmp, todo esto se puede ir ajustando, pero bueno por el momento con eso te alcanza.
otra opción era utilizar la clase que dije anterior mente "solo" para guardar imágenes y como lo venís haciendo vos con el texto en el programa que pasaste.
Saludos.
-
Gracias!
En la tarde intente esto, osea despues de cargar el archivo de texto:
Private Function Buscar(Principal As String, Variable As String, Default As Variant) As String
Dim pos, pos1, longitud_variable As Long
Dim Cadena, Extraido As String
pos = InStr(Principal, Variable & "=")
longitud_variable = Len(Variable)
If pos > 0 Then
Extraido = Mid(Principal, pos + longitud_variable + 1, 8000)
pos1 = InStr(Extraido, Chr(10))
If pos1 > 0 Then
Cadena = Mid(Extraido, 1, pos1 - 2)
Extraido = Replace(Cadena, Chr(10), "")
If (Len(Trim(Extraido)) = 0) Then
Buscar = Default
Else
Buscar = Extraido
End If
End If
Else
Buscar = Default
End If
End Function
Editado:
Hay alguna forma de abrir y guardar el archivo de imagen en el formato original? debido a que un archivo jpg de 608 kb en bmp es 12.8 mb
-
Hola aca te paso guardando el array de la imagen, osea que si es un jpg, se almacena como tal y no ocuparia el espacio de un bmp.
http://www.mediafire.com/?3x7a66qdh66834a
faltaria meterle GDI+ para poder leer imagenes png o quizas si es un bmp la imagen que lee guardarla como jpg.
Saludos.
PD: otra cosa ubiera que justificar la imagen y guardarla con un tamaño tal cual se quiere mostrar, para no guardar una imagen super grande al pepe.
-
Funciona a la Perfeccion! Gracias!
Cuando termine de hacer el Programa te lo mando!