Приклад 1:
І пронизливий останній вірш, сплеск зваби провидіння про біль, самотність, пошуки роботи й людяності, блукання вулицями без мети і насолоди та «дописування хеппі-енду, наче сподіваючись отримати листа з далекої Юності». Повільне самогубство здійснено.
— Невідомий автор, “098 Mogilnii Attila Kiyivski Konturi”
Приклад 2:
if(FileExists(s)) f = fopen(s,”rt+”); else f = fopen(s,”wt+”); fclose(f); // Кнопка “Дописати до файла” void __fastcall TForm1::Button1Click(TObject *Sender) if((f=fopen(s,”at”))==NULL) ShowMessage(“Файл не вдається відкрити”); return; char nazva[15]; strcpy(nazva, Edit1->Text.c_str()); float price = StrToFloat(Edit2->Text); int kol = StrToInt(Edit3->Text); // Дописування даних здійснюється в кінець файла fprintf(f, “%s %6.2f %i”, nazva, price, kol); fclose(f); Edit1->Clear(); Edit2->Clear(); Edit3->Clear(); Edit1->SetFocus(); // Кнопка “Переглянути файл” void __fastcall TForm1::Button2Click(TObject *Sender) float price; int kol; char nazva[15]; if((f=fopen(s,”rt+”))==NULL) ShowMessage(“Файл не вдається відкрити”); return; Memo1->Clear(); // Контроль досягання кінця файла здійснюється функцією feof(f) while (!feof(f)) // Порядко́ве зчитування з файла fscanf(f,”%s %f %i”,&nazva,&price,&kol); AnsiString str=nazva; for(int i=str.Length();iLines->Add(str+” “+FloatToStrF(price,ffFixed,6,2)+ ” “+IntToStr(kol)); fclose(f); Розділ 11 366 // Кнопка “Товари, кількість яких є менше за 30” void __fastcall TForm1::Button3Click(TObject *Sender) if((f=fopen(s,”rt”))==NULL) ShowMessage(“Файл не вдається відкрити “); return; Memo2->Clear(); char nazva[15]; float price; int kol; while(!feof(f)) fscanf(f,”%s %f %i”,&nazva,&price,&kol); if (kolLines->Add(AnsiString(nazva)+” ” +FloatToStrF(price,ffFixed,6,2)+” “+IntToStr(kol)); fclose(f); // Кнопка “Визначити назву та розмір файла” void __fastcall TForm1::Button4Click(TObject *Sender) long length; if((f=fopen(s,”rt”))==NULL) ShowMessage(“Файл не вдається відкрити”); return; fseek(f, 0, SEEK_END); length = ftell(f); fclose(f); Edit4->Text=s; Edit5->Text=IntToStr(length); Приклад 11.2 Увести до текстового файла рядки символів. Прочитати дані з файла і з’ясувати, скільки разів зустрічається у файлі слово, яке вводиться з клавіатури.
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”
Приклад 3:
Розглянемо приклад відкриття файла з ім’ям “test.txt”, переміщення позиції на кінець файла і дописування рядка st: int f; // Оголошення дескриптора файла AnsiString st=”Цей рядок буде дописано в кінець файла”; f=FileOpen(“test.txt”, fmOpenWrite); // Відкриття файла для зчитування і записування FileSeek(f,0,2); // Встановлення позиції на кінець файла FileWrite(f, st.c_str(),st.Length()); // Записування рядка st довжиною st.Length() до файла FileClose(f); // Закриття файла Відкрити файл для зчитування можна в такий спосіб: f = FileOpen(“test.txt”, fmOpenReadWrite); Файли 385 char buf[80]; // Рядок (буфер) char *s = buf; // і покажчик на цей рядок. int n = FileRead(f, s, 80); FileClose(f); Розглянемо приклад створення і опрацювання текстового файла через де- скриптори.
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”
