08/04/05 19:05:06 oef1ADjg0
>>164
$while使って歌詞ファイルの現在の行を内部計算させてその結果から別に歌詞を表示してるから
タイムタグは全部消えるし表示行数も自由に変更できるよ
自分の環境ではタイムタグの有無を拡張子で分けてるので歌詞のパスは拡張子を除いてる
$register(lyricpath,[歌詞の検索パス])
$register(lyricline,1)
$register(quot,'[')
$while(
'$cwb_fileexists(%lyricpath%.kra) '
,
'$register(char,$strchr($textfile(%lyricpath%.kra,sjis,%lyricline%,%lyricline%,crlf),%quot%))
$ifgreater(%_time_elapsed_seconds%,
$add($mul( $substr($textfile(%lyricpath%.kra,sjis,%lyricline%,%lyricline%,crlf),
$add(%char%,1),$add(%char%,2)),60)
,$substr($textfile(%lyricpath%.kra,sjis,%lyricline%,%lyricline%,crlf),
$add(%char%,4),$add(%char%,5)))
,
$register(lyricline,$add(%lyricline%,1))
,)'
,
$textfile(%lyricpath%.kra,sjis,,,countline))
$regexp(
$textfile(%lyricpath%.kra,sjis,$sub(%lyricline%,2),%lyricline%,crlf)
,'\[........\]|@.*',)