|
山紫水明さん こんばんは ノノムンです
お送り頂いた分を少し改変したりしています。
次のようにしまして 最初項目だけ注目しますと、
3行では
アイオニアン (Ionian)
(メジャースケール、長音階) C D E F G A B ド レ ミ ファ ソ ラ シ メ
ジャー;キーの第1音から派生したスケール
のうち
(Ionian)
(メジャースケール、長音階)
メジャー;キーの第1音から派生したスケール
が不要です 此を消すには方法がありますでしょうか?
//----------------------------------------------------//
disabledraw;
//replaceallfast "^[ ]*\\n", "", regular;
//replaceallfast " \\([A-z]+\\)", "", regular;
//replaceallfast "^.*[ぁ-ん()].*\\n", "", regular;
//replaceallfast "(スケール.*|式|法|タート)\\n", "\\1 ", regular;
//replaceallfast "(?<!列)(音階)\\n", "\\1 ", regular;
replaceallfast "・スケール", "", regular;
replaceallfast "\\n1", " 1", regular;
replaceallfast "([#b])([1-7])", "\\2\\1", regular;
replaceallfast "1(?=[#b ]) ?", "ド", regular;
replaceallfast "2(?=[#b ]) ?", "レ", regular;
replaceallfast "3(?=[#b ]) ?", "ミ", regular;
replaceallfast "4(?=[#b ]) ?", "ファ", regular;
replaceallfast "5(?=[#b ]) ?", "ソ", regular;
replaceallfast "6(?=[#b ]) ?", "ラ", regular;
replaceallfast "7(?=[#b]*) ?", "シ", regular;
replaceallfast "([#b]) ", "\\1", regular;
replaceallfast "([レミフソラシ])", " \\1", regular;
replaceallfast "\\n([CE])", " \\1", regular;
replaceallfast "・", ";";
endmacro;
//----------------------------------------------------//
かしこ
(2013/12/26 20:43), 山紫水明 wrote:
> ノノムンさん,
>
> いろいろ例外的なものもあり,完璧にご希望どおりにするのは難しいので,
> 後は手作業でやってみてください。
>
> //----------------------------------------------------//
> disabledraw;
> replaceallfast "^[ ]*\\n", "", regular;
> replaceallfast " \\([A-z]+\\)", "", regular;
> replaceallfast "^.*[ぁ-ん()].*\\n", "", regular;
> replaceallfast "(スケール.*|式|法|タート)\\n", "\\1 ", regular;
> replaceallfast "(?<!列)(音階)\\n", "\\1 ", regular;
> replaceallfast "・スケール", "", regular;
> replaceallfast "\\n1", " 1", regular;
> replaceallfast "([#b])([1-7])", "\\2\\1", regular;
> replaceallfast "1(?=[#b ]) ?", "ド", regular;
> replaceallfast "2(?=[#b ]) ?", "レ", regular;
> replaceallfast "3(?=[#b ]) ?", "ミ", regular;
> replaceallfast "4(?=[#b ]) ?", "ファ", regular;
> replaceallfast "5(?=[#b ]) ?", "ソ", regular;
> replaceallfast "6(?=[#b ]) ?", "ラ", regular;
> replaceallfast "7(?=[#b]*) ?", "シ", regular;
> replaceallfast "([#b]) ", "\\1", regular;
> replaceallfast "([レミフソラシ])", " \\1", regular;
> replaceallfast "\\n([CE])", " \\1", regular;
> replaceallfast "・", ";";
> endmacro;
> //----------------------------------------------------//
>
> 山紫水明
> SANSHISUIMEI
>
>
|
|