<SiteTitle>UTAU³Ú¶Ê¥Ç¡¼¥¿¥Ù¡¼¥¹</SiteTitle>

<SiteSearchURL>[TITLE] site:www24.atwiki.jp/utauuuta/</SiteSearchURL>

<LuaScript>
function LyricsInfoGet(html)
    --²Î»ì¤ò¼è¤ê½Ð¤¹
    is1, ie1 = html:find("<h3 id=\"id_%w+\">²Î»ì</h3>",1)
    --̵¤¤¤È¤­¤ÏÈ´¤±¤ë
    if is1 == nil then
        return
    end
    --²Î»ì¤Î½ª¤ï¤ê¤ò¸«¤Ä¤±¤ë
    is2, ie2 = html:find("<h3", ie1+1, 1)
    is2_,ie2_= html:find("<h4", ie1+1, 1)
    if is2_~=nil and is2 > is2_ then
       is2, ie2 = is2_, ie2_ 
    end
    is2_,ie2_= html:find("<table", ie1+1, 1)
    if is2_~=nil and is2 > is2_ then
       is2, ie2 = is2_, ie2_ 
    end
    lyrics = html:sub(ie1+1, is2-1)
    --žºÜÃí¼á¤ò³°¤¹
    is1, ie1, kakko = lyrics:find("(%b())")
    if is1 ~= nil then
        if kakko:find("žºÜ") or kakko:find("Æ°²è") or kakko:find("¥Ö¥í¥°") or kakko:find("²Î»ì") or kakko:find("½ñ¤­µ¯¤³¤·") or kakko:find("È´¿è") or kakko:find("PV") then
            lyrics = lyrics:sub(1, is1-1) .. lyrics:sub(ie1+1, -1)
        end
    end
    is1,ie1,kakko = lyrics:find("¡Ê(.-)¡Ë")
    if is1 ~= nil then
        if kakko:find("žºÜ") or kakko:find("Æ°²è") or kakko:find("¥Ö¥í¥°") or kakko:find("²Î»ì") or kakko:find("½ñ¤­µ¯¤³¤·") or kakko:find("È´¿è") or kakko:find("PV") then
            lyrics = lyrics:sub(1, is1-1) .. lyrics:sub(ie1+1, -1)
        end
    end
    --HTML¥Æ¥­¥¹¥È¤Îdiv,²þ¹Ô,¥ë¥ÓÅù¤ò¾Ã¤¹
    --\n\n</div>¤Ï²þ¹Ô¤È¤¹¤ë
    lyrics = lyrics:gsub("\n\n</div>", "<br />")
    lyrics = lyrics:gsub("<div>", "")
    lyrics = lyrics:gsub("</div>", "")
    lyrics = lyrics:gsub("\n", "")
    lyrics = lyrics:gsub("<rt>.-</rt>", "")
    lyrics = lyrics:gsub("<rp>.-</rp>", "")
    lyrics = lyrics:gsub("<rb>", "")
    lyrics = lyrics:gsub("</rb>", "")
    lyrics = lyrics:gsub("<ruby>", "")
    lyrics = lyrics:gsub("</ruby>", "")
    lyrics = lyrics:gsub("<span.->", "")
    lyrics = lyrics:gsub("</span>", "")
    lyrics = lyrics:gsub("<!\-\-.-\-\->", "")
    lyrics = lyrics:gsub("<a .->", "")
    lyrics = lyrics:gsub("</a>", "")

    lyrics = lyrics:gsub("<p>", "")
    lyrics = lyrics:gsub("</p>", "")
    lyrics = lyrics:gsub("<font .->", "")
    lyrics = lyrics:gsub("</font>", "")
    lyrics = lyrics:gsub("<big>", "")
    lyrics = lyrics:gsub("</big>", "")
    lyrics = lyrics:gsub("<small>", "")
    lyrics = lyrics:gsub("</small>", "")
    lyrics = lyrics:gsub("<b>", "")
    lyrics = lyrics:gsub("</b>", "")
    lyrics = lyrics:gsub("<i>", "")
    lyrics = lyrics:gsub("</i>", "")
    lyrics = lyrics:gsub("<s>", "")
    lyrics = lyrics:gsub("</s>", "")
    lyrics = lyrics:gsub("<strike>", "")
    lyrics = lyrics:gsub("</strike>", "")
    lyrics = lyrics:gsub("<u>", "")
    lyrics = lyrics:gsub("</u>", "")
    lyrics = lyrics:gsub("<tt>", "")
    lyrics = lyrics:gsub("</tt>", "")
    lyrics = lyrics:gsub("<em>", "")
    lyrics = lyrics:gsub("</em>", "")
    lyrics = lyrics:gsub("<strong>", "")
    lyrics = lyrics:gsub("</strong>", "")
    lyrics = lyrics:gsub("<sup>", "")
    lyrics = lyrics:gsub("</sup>", "")
    lyrics = lyrics:gsub("<sub>", "")
    lyrics = lyrics:gsub("</sub>", "")
    lyrics = lyrics:gsub("<blockquote>", "")
    lyrics = lyrics:gsub("</blockquote>", "")
    lyrics = lyrics:gsub("<q>", "")
    lyrics = lyrics:gsub("</q>", "")
    lyrics = lyrics:gsub("<pre>", "")
    lyrics = lyrics:gsub("</pre>", "")
    lyrics = lyrics:gsub("<code>", "")
    lyrics = lyrics:gsub("</code>", "")

    --<br />¤ò²þ¹Ô¤Ë¤¹¤ë
    lyrics = lyrics:gsub("<br />", "\r\n")
    --¹ÔƬ¤È¹ÔËö¤Î²þ¹Ô¤òºï½ü
    while lyrics:sub(1,2) == "\r\n" do lyrics = lyrics:sub(3) end
    while lyrics:sub(-2) == "\r\n" do lyrics = lyrics:sub(1,-3) end
    --¹ÔËö¤Î¶õÇòʸ»ú¤òºï½ü
    lyrics = lyrics:gsub("\s-\r\n", "\r\n")
    lyrics = lyrics:gsub("¡¡-\r\n", "\r\n")
    --Æüìʸ»ú
    lyrics = lyrics:gsub("&lt;", "<")
    lyrics = lyrics:gsub("&gt;", ">")
    lyrics = lyrics:gsub("&nbsp;", " ")
    lyrics = lyrics:gsub("&quot;", "\"")
    lyrics = lyrics:gsub("&amp;", "&")

    --¥¿¥¤¥È¥ë¤ò¼è¤ê½Ð¤¹
    title = html:match("<h2>.-<a .->(.-)</a>.-</h2>")
    --Æüìʸ»ú
    title = title:gsub("&lt;", "<")
    title = title:gsub("&gt;", ">")
    title = title:gsub("&nbsp;", " ")
    title = title:gsub("&quot;", "\"")
    title = title:gsub("&amp;", "&")

    --¥¢¡¼¥Æ¥£¥¹¥È̾¤ò¼è¤ê½Ð¤¹
    artist = html:match("</h2>.-ºî¶Ê.-<a.->(.-)</a>.-<h3")
    --Æüìʸ»ú
    artist = artist:gsub("&lt;", "<")
    artist = artist:gsub("&gt;", ">")
    artist = artist:gsub("&nbsp;", " ")
    artist = artist:gsub("&quot;", "\"")
    artist = artist:gsub("&amp;", "&")

    return "LYRICS="..lyrics, "TITLE="..title, "ARTIST="..artist
end
--2017.04.16
</LuaScript>


¥È¥Ã¥×   ÊÔ½¸ Åà·ë º¹Ê¬ ¥Ð¥Ã¥¯¥¢¥Ã¥× źÉÕ Ê£À½ ̾Á°Êѹ¹ ¥ê¥í¡¼¥É   ¿·µ¬ °ìÍ÷ ¸¡º÷ ºÇ½ª¹¹¿·   ¥Ø¥ë¥×   ºÇ½ª¹¹¿·¤ÎRSS
Last-modified: 2017-05-14 (Æü) 16:43:35