Unir 2 o más Archivos en 1

[th3y]

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]
Pero no se que dicen ustedes, si hay alguno mejor? de preferencia no "comprimido"

Gracias de antemano 

[LeandroA]

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.

[th3y]

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 (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.

[LeandroA]

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.

[th3y]

Gracias!
En la tarde intente esto, osea despues de cargar el archivo de texto:

Código: [Seleccionar]

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

[LeandroA]

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.

[th3y]

Funciona a la Perfeccion! Gracias!
Cuando termine de hacer el Programa te lo mando!