Tag:[²Î»ì¼èÆÀ¥¹¥¯¥ê¥×¥È]
<SiteTitle>ÅìÊýƱ¿ÍCD¤Î²Î»ì@wiki</SiteTitle> <SiteSearchURL>[TITLE] site:w.atwiki.jp/touhoukashi/pages/</SiteSearchURL> <LuaScript> function LyricsInfoGet(html) --µ»öÉôʬ¤ò¼è¤ê½Ð¤¹ is1, ie1 = html:find("<div id=\"lyrics\">",1) --̵¤¤¤È¤¤ÏÈ´¤±¤ë if is1 == nil then return end is2, ie2 = html:find("<div id=\"atwiki-page-tags\" class=\"atwiki-page-tags\">", ie1+1, true) --µ»ö¤«¤é²Î»ì¤ò¼è¤ê½Ð¤¹ lyrics = html:sub(ie1+1, is2-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") --¹ÔËö¤Î¶õÇòʸ»ú¤òºï½ü lyrics = lyrics:gsub("[ ¡¡ ]+\r\n", "\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("<", "<") lyrics = lyrics:gsub(">", ">") lyrics = lyrics:gsub(" ", " ") lyrics = lyrics:gsub(""", "\"") lyrics = lyrics:gsub("&", "&") --¥¿¥¤¥È¥ë¤ò¼è¤ê½Ð¤¹ title = html:match("<span class=\"pagename\">(.-)</span>") if (title == nil) then title="" end title = title:gsub("<a .->","") title = title:gsub("</a>","") title = title:gsub("^%d%d ", "") --Æüìʸ»ú title = title:gsub("<", "<") title = title:gsub(">", ">") title = title:gsub(" ", " ") title = title:gsub(""", "\"") title = title:gsub("&", "&") --¥¢¡¼¥Æ¥£¥¹¥È̾¤ò¼è¤ê½Ð¤¹ artist = html:match("\|circle=(.-)</a>") artist = artist:gsub("<a .->","") --Æüìʸ»ú artist = artist:gsub("<", "<") artist = artist:gsub(">", ">") artist = artist:gsub(" ", " ") artist = artist:gsub(""", "\"") artist = artist:gsub("&", "&") return "LYRICS="..lyrics, "TITLE="..title , "ARTIST="..artist end </LuaScript>
|