Разработка программы управления бинарными и текстовыми данными

" Экскурсии",

"г==============T============T===================T===========T===========¬",

"¦ Наименование ¦ Страна ¦ Продолжительность ¦ Стоимость ¦ Транспорт ¦",

"¦ ¦ ¦ ¦ ¦ ¦",

"¦==============+============+===================+===========+===========¦",

"L==============¦============¦===================¦===========¦===========-"

};

void filtr(char *a), psh(ostream&), sozdat(), dat2bin(),

udal(), cht(), bin2dat(), bin2res();

ostream &operator<< (ostream&, ekskurs &);

istream &operator>> (istream&, ekskurs &);

void main()

{

clrscr();

// sozdat();

dat2bin();

udal();

bin2dat();

bin2res();

}

void filtr(char *a)

{

int i, l=strlen(a),j;

for (i=0; i<l;i++)

if (a[i]!=' '&&a[i]!='\t')

for (j=l-1;j>=i;j--)

if(a[j]!=' '&&a[j]!='\n')

{

for (l=i; l<=j; l++)

a[l-i]=a[l];

a[l-i]='\0';

goto m;

}

a[0]=0;

m:;

}

void psh(ostream& out)

{

for (int i=0; i<5; i++) out << sh[i]<<endl;

}

void sozdat(char *filename)

{

stick=0;

fout.open(filename);

if (!fout)

{

cout <<endl<< "Ошибка открытия файла данных для записи";

exit(0);

}

int done=0;

char c;

do

{

clrscr();

psh(cout);

cin >> eks;

fout << eks;

cout << "Будем еще вводить? (Y\y - да, остальное - нет)";

c=getch();

if(c!='Y'&&c!='y') done=1;

} while (!done);

fout.close();

}

void dat2bin()

{

fin.open("prakt1.dat");

if (!fin)

{

cout <<endl<< "Ошибка открытия файла данных для чтения";

exit(1);

}

fout.open("prakt1.bin", ios::binary);

if (!fout)

{

cout <<endl<< "Ошибка открытия бинарного файла для записи";

exit(2);

}

while (fin.peek()!=EOF)

{

fin >> eks;

fout.write((char*)&eks,z);

}

fin.close();

fout.close();

}

void udal()

{

remove ("prakt1.res");

bin2res();

finout.open("prakt1.bin", ios::in|ios::out|ios::binary);

if (!finout)

{

cout <<endl<< "Ошибка открытия бинарного файла для чтения\записи";

exit(3);

}

fin.open("prakt1.del");

if (!fin)

{

cout <<endl<< "Ошибка открытия файла с данными удаления для чтения";

exit(4);

}

fout.open("prakt1.res", ios::app);

if (!fout)

{

cout << "Ошибка открытия файла результатов"; exit(5);

}

char *todel=new char[80];

int found_to_del;

while (fin.peek()!=EOF)

{

fin.getline(todel,80);

filtr(todel);

if (!strcmp(todel, "")) fout << "Нет записи для удаления\n\n";

else

{

fout << "Ищем данные с полем \"Страна\" = \"" << todel << "\"\n";

found_to_del=0;

while (finout.peek()!=EOF)

{

finout.read ((char*)&eks, z);

if (!strcmp(eks.place, todel))

{

fout << eks;

strcpy(eks.place,"DELETED");

finout.seekp(-z, ios::cur);

finout.write((char*)&eks,z);

found_to_del++;

}

}

if (!found_to_del) fout << "Нет совпадений\n\n";

else fout << "Удалено записей: " << found_to_del << "\n\n";

finout.seekp(0);

}

}

fin.close();

fout.close();

ekskurs *s=0;

ekskurs *stnew;

while (finout.peek()!=EOF)

{

finout.read((char*)&eks,z);

eks.next=0;

if (strcmp(eks.place,"DELETED"))

{

stnew = new (ekskurs);

*stnew = eks;

ekskurs * p, * q ;

p=s; q=0;

while (p)

{ q=p ; p=p->next ; };

if (q) q->next= stnew ;

else s = stnew;

}

}

finout.close();

fout.open("prakt1.bin", ios::binary);

if (!fout)

{

cout << "Ошибка открытия временного бинарного файла"; exit(7);

}

ekskurs * p ;

while (s)

{

p=s;

s=s->next;

eks=*p;

fout.write((char*)&eks,z);

delete p;

}

fout.close();

}

void bin2dat()

{

stick=0;

int count=0;

fin.open("prakt1.bin",ios::binary);

if (!fin)

{

cout <<endl<< "Ошибка открытия бинарного файла для чтения";

exit(5);

}

fout.open("prakt1.dat");

if (!fout)

{

cout <<endl<< "Ошибка открытия файла данных для записи";

exit(6);

}

while (fin.peek()!=EOF)

{

fin.read((char*)&eks,z) ;

fout << eks;

count++;

}

fin.close();

fout.close();

}

void bin2res()

{

stick=1;

int count=0;

fin.open("prakt1.bin",ios::binary);

if (!fin)

{

cout <<endl<< "Ошибка открытия бинарного файла для чтения";

exit(5);

}

fout.open("prakt1.res", ios::app);

if (!fout)

{

cout <<endl<< "Ошибка открытия файла данных для записи";

exit(6);

}

psh(fout);

while (fin.peek()!=EOF)

{

fin.read((char*)&eks,z) ;

fout << eks;

count++;

}

fout << sh[5] << "\nВсего "<<count<<" записей" <<"\n\n";

fin.close();

fout.close();

}

ostream &operator<< (ostream&out, ekskurs &ek)

{

char symb=' ';

if (stick) symb='¦';

out<< setiosflags(ios::left) << symb <<setw(14) << ek.name << symb

<<setw(12)<<ek.place << symb << setw(19)<<ek.time<<symb<< setw(11)

<<ek.price<<symb<<setw(11)<<ek.transport<<symb<<endl;

return out;

}

istream &operator>> (istream&in, ekskurs &ek)

{

in.getline(ek.name, 16); filtr(ek.name);

in.getline(ek.place,14); filtr(ek.place);

in >> ek.time >> ek.price;

in.getline(ek.transport,80); filtr(ek.transport);

return in;

}

prakt1.dat

Биг Бэн Англия 10 200 Б-737

Эльф. башня Франция 13 123 A-320

Пентагон США 23 4000 Б-747

Мин. Воды Россия 6 400 Икарус

Бол. Канйон США 30 6000 Б-767

Припять Украина 8 1313 Икарус

Колизей Италия 4 800 Б-240

prakt1.del

prakt1.res

¦ Наименование ¦ Страна ¦ Продолжительность ¦ Стоимость ¦ Транспорт ¦

¦ ¦ ¦ ¦ ¦ ¦

¦==============+============+===================+===========+===========¦

¦Биг Бэн ¦Англия ¦10 ¦200 ¦Б-737 ¦

¦Эльф. башня ¦Франция ¦13 ¦123 ¦A-320 ¦

¦Пентагон ¦США ¦23 ¦4000 ¦Б-747 ¦

¦Мин. Воды ¦Россия ¦6 ¦400 ¦Икарус ¦

¦Бол. Канйон ¦США ¦30 ¦6000 ¦Б-767 ¦

¦Припять ¦Украина ¦8 ¦1313 ¦Икарус ¦

¦Колизей ¦Италия ¦4 ¦800 ¦Б-240 ¦

L==============¦============¦===================¦===========¦===========-

Всего 7 записей

Ищем данные с полем "Страна" = "Англия"

¦Биг Бэн ¦Англия ¦10 ¦200 ¦Б-737 ¦

Удалено записей: 1

Нет записи для удаления

Ищем данные с полем "Страна" = "США"

¦Пентагон ¦США ¦23 ¦4000 ¦Б-747 ¦

¦Бол. Канйон ¦США ¦30 ¦6000 ¦Б-767 ¦

Удалено записей: 2

Ищем данные с полем "Страна" = "Франция"

¦Эльф. башня ¦Франция ¦13 ¦123 ¦A-320 ¦

Удалено записей: 1

Ищем данные с полем "Страна" = "Замбия"

Нет совпадений

Данные после удаления

Экскурсии

г==============T============T===================T===========T===========¬

¦ Наименование ¦ Страна ¦ Продолжительность ¦ Стоимость ¦ Транспорт ¦

¦ ¦ ¦ ¦ ¦ ¦

¦==============+============+===================+===========+===========¦

¦Мин. Воды ¦Россия ¦6 ¦400 ¦Икарус ¦

¦Припять ¦Украина ¦8 ¦1313 ¦Икарус ¦

¦Колизей ¦Италия ¦4 ¦800 ¦A-240 ¦

L==============¦============¦===================¦===========¦===========-

Всего 3 записей

Размещено на Allbest.ru