Añadir datos contiguos con Append

Iniciado por rugBy_02, 14 Marzo 2009, 23:58 PM

0 Miembros y 2 Visitantes están viendo este tema.

rugBy_02

Pues eso al añadir datos con Open "c:\nejemplo.txt" For Append As #1 se te añaden uno debajo del otro y yo me preguntaba como se hace para que se añadan seguido.

Si son tan amables...  xD

salu2!

hechelion

#1
asumo que usas Print, de  ser así debes agregar ";" al final de la sentencia para indicar que se imprima al final y no en una línea nueva.

por ejemplo

Open "c:\prueba.txt" For Append As #1
    Print #1, "hola";
    Print #1, " como estás"
Close #1

BlackZeroX

Cita de: rugBy_02 en 14 Marzo 2009, 23:58 PM
Pues eso al añadir datos con Open "c:\nejemplo.txt" For Append As #1 se te añaden uno debajo del otro y yo me preguntaba como se hace para que se añadan seguido.

Si son tan amables...  xD

salu2!


mmm solo que deseas es agregardatos a un archivo y cerrarlo posteriormente seguir añadiendo datos ja bueno haber intenta con esto:

Código (vb) [Seleccionar]

    Open Ruta For Binary As #1
        Seek (1), LOF(1) + 1
        Put #1, , Datos
    Close #1


Saludos.
The Dark Shadow is my passion.

rugBy_02

Los 2 me sirvieron pero el primero es asi mas simple


GRaX!  :D