/* gqdicvsup.c Programme de suppression des colonnes GQD et ICV quand ces
émetteurs sont hors service dans un fichier de données VLF - F5YG 14/07/2009
*/

#include <stdio.h>

int main ( int argc, char * argv [] ) {

    FILE * infile;
    FILE * outfile;
    char cVar;
    char pszOutFileName [80] = "data.txt";
    int i;

    printf ( "\nProgramme de suppression des colonnes GQD et ICV lorsque ces émetteurs sont");
    printf ( "\nhors service dans un fichier de données VLF standard.  Celui-ci sera" );
    printf ( "\nsauvegardé comme 'data.txt'. F5YG - 14/07/2009" );
    printf ( "\nUsage : gqdicvsup <fichier source>\n" );

    infile = fopen ( argv [1], "r" );
    if ( infile == NULL ) {
        printf ( "\ngqdicvsup : Impossible d'ouvrir le fichier source '%s'\n", argv [1] );
    }

    outfile = fopen ( pszOutFileName, "w" );

    while ( ( cVar = fgetc ( infile ) ) != EOF ) {
	fputc ( cVar, outfile );
	for ( i = 0; i < 19; i++) {
	    cVar = fgetc ( infile );
	    fputc ( cVar, outfile );
	}
	
	while ( ( cVar = fgetc ( infile ) ) != 9 ) {
	}
	
	while ( ( cVar = fgetc ( infile) ) != 9 ) {
	}

	while ( cVar != 10 ) {
	    cVar = fgetc (infile);
	    fputc ( cVar, outfile );
	}

    }
    
    fclose ( infile );
    fclose ( outfile );

    printf ( "\ngqdicvsup : Correction terminée\n" );

}