Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

RQ: Програма на Pascal...

Последователи

22 декември 200520 г.

...която да генерира .cue файлове. Въвежда се името на .bin файла и Паскала си създава файл gg.cue, ако за текст е въведено gg. Ето го и съдържанието на самият файл:

FILE "" BINARY

  TRACK 01 MODE1/2352

    INDEX 01 00:00:00

Трябва да се добави gg.bin между кавичките.

П.П. Нямам за домашно такава задача, но просто ми е интересно как ще стане..

22 декември 200520 г.

Администратор

Държиш ли да е на Pascal...

На C++ мога да ти я дам компилирана

Anyway, изтеглих Dev-Pascal, ще пробвам да я напиша и ще пусна тук... ама не поммня кога за последно съм писал на pascal...

22 декември 200520 г.

Администратор

program Cue;


var

fcue: textfile;

fname: String;


begin

Writeln('Name of .bin'); Readln(fname);

if ( pos( '.bin', fname ) > 0 ) then

   fname := copy(fname, 0, pos( '.bin', fname)-1 );


Assign(fcue, Concat(fname, '.cue') );

Rewrite(fcue);

Write(fcue, 'FILE "');

Write(fcue, fname);

Write(fcue, '.bin"');

Writeln(fcue, '');

Writeln(fcue, ' TRACK 01 MODE1/2352');

Writeln(fcue, '   INDEX 01 00:00:00');

Close(fcue);


end.

Редактирано 22 декември 200520 г. от poisk (преглед на промените)

22 декември 200520 г.

Автор

Хе-хе, мерси много! Няма нужда да я пишеш на C++ по простата причина, че няма да се използва. Исках просто да разбере алгоритъма.. Иначе беше забравил BINARY. Ето така трябва да е:

program CueSheetGenerator;


var

fcue: text;

fname: string;


begin

Readln(fname);

if ( pos( '.bin', fname ) > 0 ) then

  fname := copy(fname, 0, pos( '.bin', fname)-1 );


Assign(fcue, Concat(fname, '.cue') );

Rewrite(fcue);

Write(fcue, 'FILE "');

Write(fcue, fname);

Write(fcue, '.bin"');

Write(fcue, ' BINARY');

Writeln(fcue, '');

Writeln(fcue, ' TRACK 01 MODE1/2352');

Writeln(fcue, '   INDEX 01 00:00:00');

Close(fcue);


end.