"Помилка", "Робочий файл не заданий", 1);
else {((fp = fopen (filename [worktype], "r + b")) == NULL) (30,3, "Помилка", "Помилка відкриття файлу" ;, 1);
else {(WHITE); (BLUE); (1,1,80,25, buffer); (); (s, filename [worktype]); (s); (worktype) { 0: {
showstatus ("Номер символу починаючи з якого будуть записані нові дані.");
inputboxnum ("Введіть номер символу", 25,12,30, n);
showstatus ("Нові дані");
inputbox ("Вводите символи:", 10,12,60, s, 40);
fseek (fp, n, SEEK_SET);
for (i = 0; i
putc (s [i], fp);
break;
} 1: {
kol = 0;
while (! feof (fp))
fgets (strs [kol + +], str_maxlen, fp);
showstatus ("Номер рядка замість якої буде записана нова рядок");
inputboxnum ("Введіть номер рядка:", 25,12,30, n);
showstatus ("Введіть рядок");
inputbox ("éó e ñ ¿ ? Ñ ß ?? «¬?:", 10,12, 60, s, 40);
fclose (fp);
fp = fopen (filename [worktype], "w");
fclose (fp);
fp = fopen (filename [worktype], "r + b");
strcat (s, " r n");
strcpy (strs [n], s);
for (i = 0; i
fputs (strs [i], fp);
break;
}
case 2: {
showstatus ("Номер блоку замість якого буде записано новий блок");
inputboxnum ("Введіть номер блоку:", 25,12,30, n);
showstatus ("Введення блоку (21 символ)");
inputbox ("Введіть блок:", 10,12,60, s, block_size);
if (strlen (s)
while (strlen (s)! = block_size)
strcat (s, "?");
fseek (fp, n * block_size, SEEK_SET);
fwrite (s, block_size, 1, fp);
}
}
fclose (fp);
showstatus ("Для продовження натисніть будь-яку клавішу ...");
showmessage (30,3, "Зміна даних", "Зміна у файлі зроблені");
puttext (1,1,80,25, buffer);
}
}
} delinfo ()
...
