【略して】１人カラオケ in アニソン板【ヒトカラ】

パセラの検索結果を手軽に(？)集めてHTMLファイルにする。
曲番号がわかるので、印刷してヒトカラに持参すると便利かも。
(ちょっと変更するだけでセガカラにも対応)

============インストール方法============
１．IEの右クリックメニュー追加ソフト、例えば
　　http://uryusoft.com/software/IEMenuExt/
　　http://www.rocaz.net/rclick/
　　をインストールする。(以降はIEMenuExtを前提とします)
２．次のレスのスクリプトを保存し、"pasela.htm"という名前で、
　　１をインストールしたディレクトリに保存する。
　　(パスにスペースが含まれるとエラーが出る)
３．IEMenuExtを起動し、「追加」を押す。
４．「名前」に"カラオケリストに追加(パセラ)"と入力する。
５．「ファイル名」でpasela.htmを選択する。
６．「表示方法」で「テキスト選択時」を選択する。
７．「OK」→「OK」→「はい」と押す。
８．以下の内容をpasela.htmと同じディレクトリに
　　"songs..htm"という名前で保存する。

<TABLE cellSpacing=0 cellPadding=2 width=630 border=1>
<TBODY>
<TR>
<TD bgColor=#0080ff><B>歌手名</B></TD>
<TD bgColor=#0080ff><B>曲名</B></TD>
<TD noWrap bgColor=#0080ff><B>曲番号</B></TD>
<TD bgColor=#0080ff><B>歌い出し</B></TD>
<TD noWrap bgColor=#0080ff><B>ジャンル</B></TD>
<TD bgColor=#0080ff><B>タイアップ等</B></TD></TR>

===============使用方法==============
１．http://pasela.info/search.htmlに行き、歌を適当に検索
２．検索結果のうち、追加したい曲の「歌手名」から
　　「タイアップ等」までを選択する(複数曲可能)。
３．選択部分を右クリックし、「カラオケリストに追加(パセラ)」をクリックする。
４．２〜３を繰り返す。
５．songs.htmを開くと、歌が追加されている。印刷も出来る。

================バグ？=================
１曲だけ追加すると、改レコードされずに表示が崩れることがある
→右に飛び出した曲の歌手名がHOGEだとすると、
songs.htmをファイルの後ろから探すと、
<TD>HOGE<BR></TD>
という行が見つかるはずなので、これを
<TR><TD>HOGE<BR></TD>
に書き換える。

<SCRIPT LANGUAGE="VBScript">

Dim strSelText
Dim objFS
Dim objFile
Dim strMyPath

strMyPath = Window.Location.Pathname
strMyPath = Left(strMyPath , InStrRev(strMyPath , "\"))
strSelText = External.MenuArguments.Document.Selection.CreateRange().htmlText

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.OpenTextFile(strMyPath & "songs.htm", 8, True)
objFile.Write strSelText
objFile.Close
Set objFile = Nothing
Set objFS = Nothing

</SCRIPT>

インストール方法８でsongs.htmに書き込む内容を以下のものにする。
あとpasela,パセラとかの文字列はsegakara,セガカラにする。これだけ。
パセラと共存しても良し。

<TABLE cellSpacing=1 cellPadding=1 width=520 border=0>
<TBODY>
<TR bgColor=#a0cbf4>
<TD align=middle><FONT class=middleb size=2><B>番号</B></FONT></TD>
<TD align=middle><FONT class=middleb size=2><B>曲名</B></FONT></TD>
<TD align=middle><FONT class=middleb size=2><B>歌手名</B></FONT></TD>
<TD noWrap align=middle><FONT class=middleb size=2><B>デュエット</B></FONT></TD>
<TD noWrap align=middle><FONT class=middleb size=2><B>メドレー</B></FONT></TD>
<TD noWrap align=middle><FONT class=middleb size=2><B>軍歌</B></FONT></TD>
<TD noWrap align=middle><FONT class=middleb size=2><B>GS</B></FONT></TD>
<TD noWrap align=middle><FONT class=middleb size=2><B>アニメ</B></FONT></TD>
<TD noWrap align=middle><FONT class=middleb size=2><B>洋楽</B></FONT></TD>
<TD noWrap align=middle><FONT class=middleb size=2><B>ハモリ</B></FONT></TD></TR>

>>314のバグ？は以下の選択方法で回避できました。一応書いときます。
・選択したい歌の歌手名の先頭から、その下の歌の歌手名の先頭までドラッグする
(つまり、カーソルの移動距離は「１行の高さ」分)