vpdata2ascii.c

Go to the documentation of this file.

#include <stdio.h>
#define BUFLEN 4096
#define formatstrlen 64

char searchstr1[] = "Yes";
char searchstr2[] = "S[1]";
char searchstr3[] = "S[2]";
char searchstr4[] = "# Probe Data Number      :: N=";
char searchstr5[] = "#C Index";
char seps1[] = "# ,\t\n";
char seps23[] = " \n";
char seps4[] = "x \"\n";

//how many found
int hmf(char *buff , char *srchstr, char *seps)
{
char *token;
int ret;
ret = 0;
token = strtok( buff, seps );
   while( token != NULL )
   {
      /* While there are tokens in "string" */
      //printf( " %s\n", token );
      if (!strcmp( token, srchstr )) ret++;
      /* Get next token: */
      token = strtok( NULL, seps );
   }
return ret;
}

// where is first found
int wiff(char *buff , char *srchstr)
{
char *pdest;
int ret;
if ( (pdest = strstr( buff, srchstr )) == NULL )  {
// Not found!  
return 0;     
}
else {
ret = (int)( pdest - buff );
// found @ ret
return ret;
}
}

int main( int argc, char *argv[] )
{
      FILE   *fptr, *fptr2;
      char    *buffer, *buf, *formatstr;
      float   *val, *bias, readout[21];
      int     result = 0, filesize = 0, i = 0, j = 0, numofcol = 0, numcol = 0, numofpasup = 0, numofpasdn = 0, numofpnt = 0, numofpas = 0, headerbeginat = 0, headerlength = 0, index =0, pointspropass = 0;
      char filetoread[255], filetowrite[255];
      int xcol=0, ycol=0;
      
      switch ( argc )
{
case (5):
     printf("We have found %d commandline parameters: ", argc-1);
     for (i=1; i<argc; i++)
     {
        printf("%s ", argv[i]); 
         
         }
     printf("\n");
     if ((sscanf(argv[1], "%s", &filetoread)!=1) | (sscanf(argv[2], "%s", &filetowrite)!=1) | (sscanf(argv[3], "%d", &xcol)!=1) | (sscanf(argv[4], "%d", &ycol)!=1)) 
     {
     printf("Cannot parse commandline!\n");
     printf("Syntax: converter filetoread filetowrite xcol ycol\n");
     //getch();
     exit(-1);
     }
     break;
default:
        printf("\nSyntax: converter filetoread filetowrite xcol ycol\n");
        //getch();
        exit(-1);
}
      
      if ( ( fptr = fopen( filetoread, "r" ))== NULL ) {
      printf( "fopen(): File not found!\n" );
      //getch();
      exit(-1);
      }
      
      if ( ( fptr2 = fopen( filetowrite, "w+" )) == NULL ) {
      printf( "fopen(): File cannot be created!\n" );
      //getch();
      exit(-1);
      }

      buffer = malloc(BUFLEN);
      if( buffer == NULL ) {
      printf( "malloc(): Memory allocation failed!\n" );
      //getch();
      exit(-1);
      }
      filesize=0;
      while ( !feof(fptr) ) filesize += fread( buffer, sizeof( char ), BUFLEN, fptr );
      printf( "Filesize: %d\n", filesize );
      
      
      buf = malloc( filesize );
      if( buf == NULL ) {
      printf( "malloc(): Memory allocation failed!\n" );
      //getch();
      exit(-1);
      }

// "Yes" 
      if ( fseek( fptr, 0L, SEEK_SET ) ) {
      printf( "fseek(): File seek failed!\n" );
      //getch();
      exit(-1);
      }
      result = fread( buf, sizeof( char ), filesize, fptr );
      numofcol = hmf(buf, searchstr1, seps1);
      //Nothing is found!
      if (numofcol == 0) 
      {
          numofcol=1;
          printf("\"%s\": %d -> %d column, nothing to do...\n", searchstr1, 0, numofcol);         
          //getch();
          exit(-1);         
                   }
      else
      {
      printf("\"%s\": %d -> %d column(s)\n", searchstr1, numofcol, numofcol+2);
      numofcol+= 2;
      }

// "S[1]"      
      if ( fseek( fptr, 0L, SEEK_SET ) ) {
      printf( "fseek(): File seek failed!\n" );
      //getch();
      exit(-1);
      }
      result = fread( buf, sizeof( char ), filesize, fptr );   
      numofpasup=hmf(buf, searchstr2, seps23);
      printf("\"%s\": %d -> %d pass(es) up\n", searchstr2, numofpasup, numofpasup);

// "S[2]"      
      if ( fseek( fptr, 0L, SEEK_SET ) ) {
      printf( "fseek(): File seek failed!\n" );
      //getch();
      exit(-1);
      }
      result = fread( buf, sizeof( char ), filesize, fptr );
      numofpasdn=hmf(buf, searchstr3, seps23);
      printf("\"%s\": %d -> %d pass(es) down\n", searchstr3, numofpasdn, numofpasdn);
      
      numofpas=numofpasup + numofpasdn - 1;
      printf("Total number: %d pass(es)\n", numofpas);

// Number of points
      if ( fseek( fptr, 0L, SEEK_SET ) ) {
      printf( "fseek(): File seek failed!\n" );
      //getch();
      exit(-1);
      }
      result = fread( buf, sizeof( char ), filesize, fptr );
         
      printf( "Searched string \"%s\" found @ %d\n",searchstr4, result = wiff(buf, searchstr4) );
      sscanf(buf + result + sizeof (searchstr4) - 1, "%d", &numofpnt);
      printf("Number of Points: %d\n", numofpnt);     
      
//points pro pass
      pointspropass= numofpnt / numofpas;
      printf("Number of points pro pass: %d\n", pointspropass);
 
//# Index offset      
      printf( "Searched string \"%s\" found @ %d\n", searchstr5, result=wiff(buf, searchstr5) );
      headerbeginat=result;
      headerlength=wiff(buf + headerbeginat, "\n");
      printf("Header at %d, length %d\n", headerbeginat, headerlength );
      strncpy(buffer, buf + headerbeginat, headerlength + 1);
      printf( "Number of column(s), tabs method: %d\n", numcol = hmf(buffer, "\t", seps4) );    
      free(buffer);
      free( buf );
// Wenn Methode#2 liefert nicht der gleiche Ergebnisse wie Methode #1
      if (numcol!=numofcol) printf("Warning! Number of column(s) %d is not equal to number of \"Yes\"(s) %d\n", numcol, numofcol);
// Commandline parameters checkup
      if ((xcol>numcol) | (ycol>numcol) | (xcol==ycol)) 
      {
                  printf("Commandline parameters for columns are not correct!\n");
                  //getch();
                  exit(-1);
      }
//Readout, format string
      formatstr = malloc (formatstrlen);
      if( formatstr == NULL ) {
      printf( "malloc(): Memory allocation failed!\n" );
      //getch();
      exit(-1);
      }
      strcpy(formatstr, "%d\t");
      for (i=1; i<=numcol -1; i++)
      {
      strcat(formatstr, "%f\t");
      }
      strcat(formatstr, "\n");
      printf("Format:%s", formatstr);
//seek to begin of data
      if ( fseek( fptr, headerbeginat + headerlength + 1, SEEK_SET ) ) {
      printf( "fseek(): File seek failed!\n" );
      //getch();
      exit(-1);
      }
//Readout      
      val = malloc( numofpnt * sizeof( float ) );
      if( val == NULL ) {
      printf( "malloc(): Memory allocation failed!\n" );
      //getch();
      exit(-1);
      }
      

      bias = malloc( (pointspropass + 1) * sizeof (float) );
      if( bias == NULL ) {
      printf( "malloc(): Memory allocation failed!\n" );
      //getch();
      exit(-1);
      }
      
      for (i = 0; i <= numofpnt - 1; i++) {
      //printf( "%d column(s) scanfed\n", fscanf( fptr, formatstr, &index, &readout[0], &readout[1], &readout[2], &readout[3], &readout[4], &readout[5], &readout[6], &readout[7], &readout[8], &readout[9], &readout[10], &readout[11], &readout[12], &readout[13], &readout[14], &readout[15], &readout[16], &readout[17], &readout[18], &readout[19], &readout[20], &readout[21] ) );
      fscanf( fptr, formatstr, &index, &readout[0], &readout[1], &readout[2], &readout[3], &readout[4], &readout[5], &readout[6], &readout[7], &readout[8], &readout[9], &readout[10], &readout[11], &readout[12], &readout[13], &readout[14], &readout[15], &readout[16], &readout[17], &readout[18], &readout[19], &readout[20], &readout[21] );
      //printf( formatstr, index, readout[0], readout[1], readout[2], readout[3], readout[4], readout[5], readout[6], readout[7], readout[8], readout[9], readout[10], readout[11], readout[12], readout[13], readout[14], readout[15], readout[16], readout[17], readout[18], readout[19], readout[20], readout[21]);
      if ((i >= pointspropass - 1) && (i<= 2*pointspropass - 1)) {
      bias[i-pointspropass + 1] = readout[xcol-2];
      //printf("%d %f", i, bias[i]);
      }
      val[i] = readout[ycol-2];
      //printf(" %f\n", val[i]);
      }
      fclose( fptr );

      for (i = 0; i <= pointspropass; i++){
          fprintf(fptr2, "%d\t%f\t", i, bias[i]);
          for (j=0; j < numofpas; j++){
          
          if ( j % 2 == 0) {
               fprintf(fptr2, "%f\t", val[(j + 1) * pointspropass - i - 1]);
               }
          else {
               fprintf(fptr2, "%f\t", val[j * pointspropass + i - 1]);               
               }
          
          }
          fprintf(fptr2, "\n");
      }
      
      fclose( fptr2 );
      free( bias );
      free( val );
      free(formatstr);
      //getch();
      return;    
}

---