Hola a todos/as
me podeis ayudar donde me equivocado con el codigo.
Visual basic studio .net 2003
#include <Algoritmo de Ficheros>
{
if not existe (fichero3)
Crea (fichero3)
Abrir (fichero1,+r)
Abrir (fichero2,+r)
Abrir (fichero3,+r)
while (fin_fichero(fichero1)=false or fin_fichero(fichero2)=false)
Leer (fichero1,linea)
escribir (fichero3,linea)
Leer (fichero2,linea)
escribir(fichero3,linea)
end while
if (Fin_fichero(fichero1)=false)
while(fin_fichero(fichero1)=false)
leer (fichero1,linea)
escribir(fichero3,linea)
end while
while((fin_fichero3,linea)=false)
leer (fichero2,linea)
escribir (fichero3,linea)
end while
close (fichero1)
close (fichero2)
close (fichero3)
}
end;
Muchas gracias.
sldos Nicolaspcg