(lines == 23) {= 1; ();
}
}
break;
}
case 1: {
while (! feof (fp)) {(fgets (s1, str_maxlen, fp)) {
cprintf ("% s", s1);
lines + +;
if (lines == 23) {
lines = 1;
getch ();
}
}
}
break;
}
case 2: {
while (! feof (fp)) {= fread (buffer2, block_size, 1, fp); (kol) {
buffer2 [block_size] = NULL;
cprintf ("% s", buffer2);
cprintf (" r n");
lines + +;
if (lines == 23) {
lines = 1;
getch ();
}
}
}
}
} (fp); (); (1,1,80,25, buffer);
}
}
} inputdata ()
{buffer [4000]; * fp; i; s [40] = "Введення даних у файл:"; (filename [worktype] [0] == NULL) (30,3 , "Помилка", "Робочий файл не заданий", 1);
else {= fopen (filename [worktype], "ab"); (fp == NULL) (30,3, "Помилка", "Помилка відкриття файлу", 1 ); {(WHITE); (BLUE); (1,1,80,25, buffer); (); (s, filename [worktype]); (s); ("Після закінчення введення даних натисніть ; "); (worktype) {0: {
inputbox ("Вводите символи:", 10,12,60, s, 40);
for (i = 0; i
putc (s [i], fp);
break;
} 1: {
inputbox ("Вводите рядок:", 10,12,60, s, 40);
fputs (strcat (s, " r n"), fp);
break;
} 2: {
inputbox ("Вводите блок (21 символ):", 10,12,60, s, block_size);
if (strlen (s)
while (strlen (s)! = block_size)
strcat (s, "?");
fwrite (s, block_size, 1, fp);
}
}
fclose (fp);
showstatus ("Для продовження натисніть будь-яку клавішу ...");
showmessage (30,3, "Введення даних," Дані успішно записані у файл. ");
puttext (1,1,80,25, buffer);
}
}
} correct ()
{buffer [4000]; s1, strs [str_maxkol]; * fp; i, kol; n; s [40] = "Зміна файлу:"; (filename [worktype] [0 ] == NULL) (30,3,...
