/****************************************************************************
 
 Nombre: HTM2TXT.C
 Utilidad: Convierte p ginas HTML en archivos de texto.
 Autor: Sergio Pacho
 Fecha: 27 de abril de 1997
 E-mail: cworld@biosys.net
 Web: http://www.biosys.net/cworld
 
 Este programa es una sencilla utilidad para convertir un archivo HTML en
 un archivo de texto legible con cualquier editor.
 Lo £nico que te pido es que no lo modifiques, y que se lo pases a todos tus 
 amigos, colegas...
 Tambi‚n puedes decir que lo has conseguido en:
 http://www.biosys.net/cworld

****************************************************************************/

#include <stdio.h>
#include <conio.h>

void main(int argc,char *argv[]){
   FILE *pr,*pw;
   char vuelta[11];
   char c;
	int lon;
   if (argc<2){
      printf("\nHTM2TXT v1.0 (c) Sergio Pacho - 27/04/1997  Barcelona\n");
      printf("\nUtilizaci¢n: HTM2TXT Archivo.HTM\n");
      exit(0);
   }
   strupr(argv[1]);
   strcpy(vuelta,argv[1]);
   lon=strlen(vuelta);
   if (vuelta[lon-1]!='M'||vuelta[lon-2]!='T'||vuelta[lon-3]!='H'||vuelta[lon-4]!='.'){
      printf("\nHTM2TXT v1.0 (c) Sergio Pacho - 27/04/1997  Barcelona\n");
      printf("\nUtilizaci¢n: HTM2TXT Archivo.HTM\n");
      exit(0);
   }
   vuelta[lon-3]='T';
   vuelta[lon-2]='X';
   vuelta[lon-1]='T';
   if((pr=fopen(argv[1],"r"))==NULL){
      printf("\nHTM2TXT v1.0 (c) Sergio Pacho - 27/04/1997  Barcelona\n");
      printf("\nImposible abrir archivo: %s\n",argv[1]);
      exit(0);
   }
   printf("\nHTM2TXT v1.0 (c) Sergio Pacho - 27/04/1997  Barcelona\n");
   printf("\nCreando archivo %s...\n",vuelta);
   pw=fopen(vuelta,"w");
   while (c!=EOF){
      c=fgetc(pr);
      while (c=='<'){
	 while (c!='>') c=fgetc(pr);
	 c=fgetc(pr);
      }
      while (c=='&'){
	 c=fgetc(pr);
	 if (c=='a'){
	    while (c!=';') c=fgetc(pr);
	    c=' ';
	 }
	 if (c=='e'){
	    while (c!=';') c=fgetc(pr);
	    c='‚';
	 }
	 if (c=='i'){
	    while (c!=';') c=fgetc(pr);
	    c='¡';
	 }
	 if (c=='o'){
	    while (c!=';') c=fgetc(pr);
	    c='¢';
	 }
	 if (c=='u'){
	    while (c!=';') c=fgetc(pr);
	    c='£';
	 }
	 if (c=='A'){
	    while (c!=';') c=fgetc(pr);
	    c=' ';
	 }
	 if (c=='E'){
	    while (c!=';') c=fgetc(pr);
	    c='‚';
	 }
	 if (c=='I'){
	    while (c!=';') c=fgetc(pr);
	    c='¡';
	 }
	 if (c=='O'){
	    while (c!=';') c=fgetc(pr);
	    c='¢';
	 }
	 if (c=='U'){
	    while (c!=';') c=fgetc(pr);
	    c='£';
	 }
	 if (c=='n'){
	    while (c!=';') c=fgetc(pr);
	    c='¤';
	 }
	 if (c=='N'){
	    while (c!=';') c=fgetc(pr);
	    c='¤';
	 }
	 if (c=='q'){
	    while (c!=';') c=fgetc(pr);
	    c='"';
	 }
	 if (c=='Q'){
	    while (c!=';') c=fgetc(pr);
	    c='"';
	 }
      }
      fputc(c,pw);
   }
   fclose(pr);
   fclose(pw);
}