GetTimetagLyrics/LUA/www31.atwiki.jp_touhoukashi.lua

function LyricsInfoGet(html)
    --µ­»öÉôʬ¤ò¼è¤ê½Ð¤¹
    is1, ie1 = html:find("<div class=\"contents\" id=\"content\">",1)
    --̵¤¤¤È¤­¤ÏÈ´¤±¤ë
    if is1 == nil then
        return
    end
    is2, ie2 = html:find("<div class=\"ads\">", ie1+1)
    body = html:sub(ie1+1, is2-1)
    --µ­»ö¤«¤é²Î»ì¤ò¼è¤ê½Ð¤¹
    --²Î»ì¤ÎƬ¤òõ¤¹
    is2 = 1
    is1,ie1 = body:find("\n¥¢¥ë¥Ð¥à")
    if (is1 == nil) then elseif (is2<ie1) then is2=ie1 end
    --is1,ie1 = body:find("\n.¡¼¥¯¥ë")
    --if (is1 == nil) then elseif (is2<ie1) then is2=ie1 end
    is1,ie1 = body:find("\nVocal")
    if (is1 == nil) then elseif (is2<ie1) then is2=ie1 end
    is1,ie1 = body:find("\nvocal")
    if (is1 == nil) then elseif (is2<ie1) then is2=ie1 end
    is1,ie1 = body:find("\nVOCAL")
    if (is1 == nil) then elseif (is2<ie1) then is2=ie1 end
    is1,ie1 = body:find("\n¸¶¶Ê")
    if (is1 == nil) then elseif (is2<ie1) then is2=ie1 end
    is1,ie1 = body:find("\n",is2)
    lyrics = body:sub(ie1+1)
    --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>", "")
    --<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
    --¹ÔƬ¤È¹ÔËö¤Î¶õÇò¤òºï½ü
    while lyrics:sub(1,1) == " " do lyrics = lyrics:sub(2) end
    while lyrics:sub(-1) == " " do lyrics = lyrics:sub(1,-2) end
    --Æüìʸ»ú
    lyrics = lyrics:gsub("&lt;", "<")
    lyrics = lyrics:gsub("&gt;", ">")
    lyrics = lyrics:gsub("&nbsp;", " ")
    lyrics = lyrics:gsub("&quot;", "\"")
    lyrics = lyrics:gsub("&amp;", "&")

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

    --¥¢¡¼¥Æ¥£¥¹¥È̾¤ò¼è¤ê½Ð¤¹
    artist = body:match("\n¥µ.-¥¯¥ë(.-)\n")
    artist = artist:gsub("<a .->","")
    artist = artist:gsub("</a>","")
    --Æüìʸ»ú
    artist = artist:gsub("&lt;", "<")
    artist = artist:gsub("&gt;", ">")
    artist = artist:gsub("&nbsp;", " ")
    artist = artist:gsub("&quot;", "\"")
    artist = artist:gsub("&amp;", "&")
    repeat
        artist_ = artist
        artist = artist:gsub("^ ","")
        artist = artist:gsub("^¡¡","")
        artist = artist:gsub("^:","")
        artist = artist:gsub("^¡§","")
    until artist_ == artist

    return "LYRICS="..lyrics, "TITLE="..title , "ARTIST="..artist
end