LyricsGetScript/東方同人CDの歌詞@wiki のバックアップソース(No.3)

バックアップ一覧
差分を表示
現在との差分を表示
バックアップを表示
LyricsGetScript/東方同人CDの歌詞@wiki へ行く。
- 1 (2011-12-28 (水) 15:33:59)
- 2 (2011-12-31 (土) 13:46:36)
- 3 (2011-12-31 (土) 16:12:50)
- 4 (2011-12-31 (土) 16:12:50)
- 5 (2011-12-31 (土) 16:12:50)
- 6 (2011-12-31 (土) 16:12:50)
- 7 (2017-05-14 (日) 16:43:35)
- 8 (2017-05-14 (日) 16:43:35)

#set_tags(歌詞取得スクリプト)
#pre{{
<SiteTitle>東方同人CDの歌詞@wiki</SiteTitle>

<SiteSearchURL>[TITLE] site:www31.atwiki.jp/touhoukashi/pages/</SiteSearchURL>

<LuaScript>
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
    --特殊文字
    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
</LuaScript>
}}
- なんか「サークル」の"サー"の辺りでエラーが出る。仕方ないので無理やりやってみました。 -- [[MIZUSHIKI]] &new{2011-12-31 (土) 16:12:50};

#comment