[ Pobierz całość w formacie PDF ]

return(0);
}
void SEARCH()
{
304 D:\KISIU\PDFy\Chudy\Ksią\
ki\Hack_Wars_Tom_1\Hack_Wars_Tom_1\06.doc
Rozdział 6. f& 305
f& Podstawy programowania dla hakerów
f&
f&
int result;
gotoxy(left,21);
textcolor(WHITE);
textbackground(RED);
cprintf("Wprowadz
wzorzec wyszukiwania ");
strcpy(stext,"");
INPUT(stext,30);
if (*stext == 0)
{
gotoxy(left,21);
cprintf("%70c",32);
return;
}
gotoxy(left,21);
textcolor(WHITE);
textbackground(RED);
cprintf("Wyszukiwanie %s Proszę czekać....",stext);
strupr(stext);
/* Zlokalizuj początek pliku */
lseek(handle,0,SEEK_SET);
result = LOCATE(stext);
if (result == 0)
{
gotoxy(left,21);
cprintf("%70c",32);
gotoxy(left + 27,21);
cprintf("Brak pasujących rekordów");
gotoxy(left + 24,22);
cprintf("Wciśnij ENTER, aby kontynuować");
bioskey(0);
gotoxy(left,21);
cprintf("%70c",32);
gotoxy(left,22);
cprintf("%70c",32);
}
else
{
lseek(handle,0 - recsize,SEEK_CUR);
read(handle,&rec,recsize);
DISPDATA();
}
textcolor(WHITE);
textbackground(RED);
gotoxy(left,21);
cprintf("%70c",32);
textcolor(BLACK);
textbackground(GREEN);
}
void CONTINUE()
{
int result;
long curpos;
curpos = tell(handle) - recsize;
result = LOCATE(stext);
textcolor(WHITE);
textbackground(RED);
if (result == 0)
{
D:\KISIU\PDFy\Chudy\Ksią\
ki\Hack_Wars_Tom_1\Hack_Wars_Tom_1\06.doc 305
306 Hack Wars. Tom 1. Na tropie hakerów
gotoxy(left + 24,21);
cprintf("Brak dalszych rekordów");
gotoxy(left + 24,22);
cprintf("Wciśnij ENTER, aby kontynuować");
bioskey(0);
gotoxy(left,21);
cprintf("%70c",32);
gotoxy(left,22);
cprintf("%70c",32);
lseek(handle,curpos,SEEK_SET);
read(handle,&rec,recsize);
DISPDATA();
}
else
{
lseek(handle,0 - recsize,SEEK_CUR);
read(handle,&rec,recsize);
DISPDATA();
}
textcolor(WHITE);
textbackground(RED);
gotoxy(left,21);
cprintf("%70c",32);
gotoxy(left,22);
cprintf(" ");
textcolor(BLACK);
textbackground(GREEN);
}
void PRINT_MULTI()
{
data buffer;
char destination[60];
char text[5];
int result;
int ok;
int ok2;
int blanks;
int total_lines;
char *p;
FILE *fp;
textcolor(WHITE);
textbackground(RED);
gotoxy(left + 23,21);
cprintf("Podaj kryterium wyboru");
/* Usuń wcześniejsze dane rekordu */
memset(&rec,0,recsize);
DISPDATA();
GETDATA(0);
textcolor(WHITE);
textbackground(RED);
gotoxy(left,21);
cprintf("Podaj, gdzie przesłać PRN");
strcpy(destination,"PRN");
gotoxy(left,22);
cprintf("Podaj długość adresu w wierszach 18");
strcpy(text,"18");
gotoxy(left + 25,21);
306 D:\KISIU\PDFy\Chudy\Ksią\
ki\Hack_Wars_Tom_1\Hack_Wars_Tom_1\06.doc
Rozdział 6. f& 307
f& Podstawy programowania dla hakerów
f&
f&
INPUT(destination,40);
gotoxy(left +30,22);
INPUT(text,2);
gotoxy(left,21);
cprintf("%72c",32);
gotoxy(left,22);
cprintf("%72c",32);
total_lines = atoi(text) - 6;
if (total_lines
total_lines = 0;
fp = fopen(destination,"w+");
if (fp == NULL)
{
gotoxy(left,21);
cprintf("Nie mo\
na drukować do %s",destination);
gotoxy(left,22);
cprintf("Wciśnij ENTER, aby kontynuować");
bioskey(0);
gotoxy(left,21);
cprintf("%78c",32);
gotoxy(left,22);
cprintf(" ");
}
/* Zlokalizuj początek pliku */
lseek(handle,0,SEEK_SET);
do
{
/* Załaduj rekord do pamięci */
result = read(handle,&buffer,recsize);
if (result > 0)
{
ok = 1;
/* Szukaj danych w rekordzie */
if (*rec.name)
if (stricmp(buffer.name,rec.name))
ok = 0;
if (*rec.company)
if (stricmp(buffer.company,rec.company))
ok = 0;
if (*rec.address)
if (stricmp(buffer.address,rec.address))
ok = 0;
if (*rec.area)
if (stricmp(buffer.area,rec.area))
ok = 0;
if (*rec.town)
if (stricmp(buffer.town,rec.town))
ok = 0;
if (*rec.county)
if (stricmp(buffer.county,rec.county))
ok = 0;
if (*rec.post)
if (stricmp(buffer.post,rec.post))
ok = 0;
if (*rec.telephone)
if (stricmp(buffer.telephone,rec.telephone))
ok = 0;
if (*rec.fax)
D:\KISIU\PDFy\Chudy\Ksią\
ki\Hack_Wars_Tom_1\Hack_Wars_Tom_1\06.doc 307
308 Hack Wars. Tom 1. Na tropie hakerów
if (stricmp(buffer.fax,rec.fax))
ok = 0;
if (ok)
{
blanks = total_lines;
p = buffer.name;
ok2 = 0;
while(*p)
{
if (*p != 32)
{
ok2 = 1;
break;
}
p++;
}
if (!ok2)
blanks++;
else
fprintf(fp,"%s\n",buffer.name);
p = buffer.company;
ok2 = 0;
while(*p)
{
if (*p != 32)
{
ok2 = 1;
break;
}
p++;
}
if (!ok2)
blanks++;
else
fprintf(fp,"%s\n",buffer.company);
p = buffer.address;
ok2 = 0;
while(*p)
{
if (*p != 32)
{
ok2 = 1;
break;
}
p++;
}
if (!ok2)
blanks++;
else
fprintf(fp,"%s\n",buffer.address);
p = buffer.area;
ok2 = 0;
while(*p)
{
if (*p != 32)
{
ok2 = 1;
break;
}
p++;
}
308 D:\KISIU\PDFy\Chudy\Ksią\
ki\Hack_Wars_Tom_1\Hack_Wars_Tom_1\06.doc
Rozdział 6. f& 309
f& Podstawy programowania dla hakerów
f&
f&
if (!ok2)
blanks++;
else
fprintf(fp,"%s\n",buffer.area);
p = buffer.town;
ok2 = 0;
while(*p)
{
if (*p != 32)
{
ok2 = 1;
break;
}
p++;
}
if (!ok2)
blanks++;
else
fprintf(fp,"%s\n",buffer.town);
p = buffer.county;
ok2 = 0;
while(*p)
{
if (*p != 32)
{
ok2 = 1;
break;
}
p++;
}
if (!ok2)
blanks++;
else
fprintf(fp,"%s\n",buffer.county);
p = buffer.post;
ok2 = 0;
while(*p)
{
if (*p != 32)
{
ok2 = 1;
break;
}
p++;
}
if (!ok2)
blanks++;
else
fprintf(fp,"%s\n",buffer.post);
while(blanks)
{
fprintf(fp,"\n");
blanks--;
}
}
}
}
while(result > 0);
fclose(fp);
lseek(handle,0,SEEK_SET);
read(handle,&rec,recsize);
DISPDATA();
D:\KISIU\PDFy\Chudy\Ksią\
ki\Hack_Wars_Tom_1\Hack_Wars_Tom_1\06.doc 309
310 Hack Wars. Tom 1. Na tropie hakerów
}
void EXPORT_MULTI()
{
data buffer;
char destination[60];
int result;
int ok;
FILE *fp;
textcolor(WHITE);
textbackground(RED);
gotoxy(left + 23,21);
cprintf("Wprowadz
kryterium wyboru");
/* Usuń wcześniejsze dane rekordu */
memset(&rec,0,recsize);
DISPDATA();
GETDATA(0);
textcolor(WHITE);
textbackground(RED);
gotoxy(left,21);
cprintf("Wprowadz
nazwę pliku address.txt");
strcpy(destination,"address.txt");
gotoxy(left + 18,21);
INPUT(destination,59);
gotoxy(left,21);
cprintf("%70c",32);
fp = fopen(destination,"w+");
if (fp == NULL)
{
gotoxy(left,21);
cprintf("Nie mo\
na drukować do %s",destination);
gotoxy(left,22);
cprintf("Wciśnij ENTER, aby kontynuować");
bioskey(0);
gotoxy(left,21);
cprintf("%78c",32);
gotoxy(left,22);
cprintf(" ");
}
/* Zlokalizuj początek pliku */
lseek(handle,0,SEEK_SET);
do
{
/* Załaduj rekord do pamięci */
result = read(handle,&buffer,recsize);
if (result > 0)
{
ok = 1;
/* Przeszukaj rekord */
if (*rec.name)
if (stricmp(buffer.name,rec.name))
ok = 0;
if (*rec.company)
if (stricmp(buffer.company,rec.company))
ok = 0;
if (*rec.address)
if (stricmp(buffer.address,rec.address))
310 D:\KISIU\PDFy\Chudy\Ksią\
ki\Hack_Wars_Tom_1\Hack_Wars_Tom_1\06.doc
Rozdział 6. f& 311
f& Podstawy programowania dla hakerów
f&
f&
ok = 0;
if (*rec.area)
if (stricmp(buffer.area,rec.area))
ok = 0;
if (*rec.town)
if (stricmp(buffer.town,rec.town))
ok = 0;
if (*rec.county)
if (stricmp(buffer.county,rec.county))
ok = 0;
if (*rec.post)
if (stricmp(buffer.post,rec.post))
ok = 0;
if (*rec.telephone)
if (stricmp(buffer.telephone,rec.telephone))
ok = 0;
if (*rec.fax)
if (stricmp(buffer.fax,rec.fax))
ok = 0;
if (ok)
{
fprintf(fp,"\"%s\",",buffer.name); [ Pobierz całość w formacie PDF ]