void test (int anz_werte, char *werte[], int buf_len)

{

        FILE                                 *in;

        FILE                                 *out;

        char                                *text;

        int                                      i;

        int                                        ind;

        unsigned char         schreibe;

 

        if (anz_werte < 2) return;

        if ((in = fopen(werte[0], "rt")) == NULL) return;

        if ((out = fopen(werte[1], "wt")) == NULL) dfehler_w(werte[1]);

 

        text = (char *) calloc(buf_len, sizeof(char));

        ind = 0;

        while (fgets(text, buf_len, in) != NULL)

        {

                if (strlen(text) > (size_t) (buf_len - 2)) lfehler_w(werte[0]);

 

                if (anz_werte < 3) fputs(text, out);

                else

                {

                        if (werte[2][ind] == '1')

                        {

                                if (anz_werte == 3) fputs(text, out);

                                else

                                {

                                        schreibe = 1;

                                        for (i = 3; i < anz_werte; i++)

                                                if (strnicmp (text, werte[i], strlen (werte[i])) == 0)

                                                        schreibe = 0;

                                        if (schreibe) fputs(text, out);

                                }

                        }

                        ind++;

                        if (ind >= strlen(werte[2])) ind = 0;

                }

        }

        free(text);

        fclose(in);

           fclose(out);

        return;

}