MPTtoVT Converter

[newart]

Исходник же в 1 сообщении вместе с прогой

Ты его открывал?

[Enigmatic]

открывал.

[newart]

Ну и? Там явно не текстовый формат.

[Enigmatic]

Там явно не текстовый формат.

Скрытый текст

CLS
PRINT "MPTtoVT pattern CONVERTER V0.2 betta"
LOCATE 5, 1:
op1: INPUT "Открыть файл"; o$
IF o$ <> "" THEN GOTO op2 ELSE PRINT "Имя файла не может быть пустым!":
PRINT "": GOTO op1
op2: INPUT "Сохранить как"; s$
OPEN o$ FOR INPUT AS #1
OPEN s$ FOR OUTPUT AS #2
PRINT "Записи в файле:"
PRINT
PRINT #2, "Vortex Tracker II v1.0 Pattern"
a: DO WHILE NOT EOF(1)
INPUT #1, data$
pos1$ = MID$(data$, 2, 3): IF pos1$ = "..." THEN pos1$ = "---" ELSE IF pos1$ = "===" THEN pos1$ = "R--"
pos2$ = MID$(data$, 14, 3): IF pos2$ = "..." THEN pos2$ = "---" ELSE IF pos2$ = "===" THEN pos2$ = "R--"
pos3$ = MID$(data$, 26, 3): IF pos3$ = "..." THEN pos3$ = "---" ELSE IF pos3$ = "===" THEN pos3$ = "R--"
IF pos1$ = "odP" THEN GOTO a
PRINT #2, "....|..|"; pos1$; " .... ....|"; pos2$; " .... ....|"; pos3$; " ....
...."
PRINT "....|..|"; pos1$; " .... ....|"; pos2$; " .... ....|"; pos3$; " .... ...."
LOOP
CLOSE #1: CLOSE #2

[свернуть]

[GM BIT]

А сразу раздербанить файл формата midi и перевести в txt вортекса ни у кого не получится? Отрубить инструменты и т.п. оставив одни ноты

[newart]

А сразу раздербанить файл формата midi и перевести в txt вортекса ни у кого не получится? Отрубить инструменты и т.п. оставив одни ноты

У Siril'a получилось. Не хочешь попыться?

[Advertiser]

[GM BIT]

У Siril'a получилось. Не хочешь попыться?

Эт хотя-бы басик вспомнить надо, ты же там вроде как часто програмишь? Формат вортекса вроде прост, а вот как разобрать миди с его записями и наворотами я только вики о формате файла почитал так руки сразу опустились
А siril не хочет создать тему и разъяснить тем кто сможет довести до ума, как я понял
Давай на пару попробуем?

---------- Post added at 18:42 ---------- Previous post was at 18:39 ----------

Кстати не совсем понял почему вортекс такой капризный к вставке текста

[newart]

Эт хотя-бы басик вспомнить надо, ты же там вроде как часто програмишь

Да. Стучись в аську - кину дистрибутив и расскажу чего-куда-откуда.

[GM BIT]

Есть у кого расшифровка формата IT ? вида : http://www.fileformat.info/format/xm/corion.htm

[GM BIT]

А вообще много кому нужен конвертер нот из midi в Vortex?