http://w.atwiki.jp/timetag/ timetag @ ウィキ ja 2011-08-31T18:04:40+09:00 1314781480 https://w.atwiki.jp/timetag/pages/15.html #google() 1 - コメント -- test (2011-08-31 18:04:40) #comment() 2 #comment_num() 3 #comment_num2 ツリー #pcomment(reply) 2011-08-31T18:04:40+09:00 1314781480 https://w.atwiki.jp/timetag/pages/20.html - コメント -- (test) &size(80%){2011-08-31 18:04:20} 2011-08-31T18:04:20+09:00 1314781460 https://w.atwiki.jp/timetag/pages/19.html - コメント -- (test) &size(80%){2011-08-31 18:04:03} 2011-08-31T18:04:03+09:00 1314781443 https://w.atwiki.jp/timetag/pages/18.html -コメント - test 2011-08-31 18:03:16 2011-08-31T18:03:16+09:00 1314781396 https://w.atwiki.jp/timetag/pages/16.html <SiteTitle>初音ミクWiki</SiteTitle> <SiteSearchURL>[TITLE] site:www5.atwiki.jp/hmiku/</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) lyrics = html:sub(ie1+1, is2-1) --転載注釈を外す is1, ie1, kakko = lyrics:find("(%b())") if is1 == nil then is1,ie1,kakko = lyrics:find("（(.-)）") end if is1 ~= nil then if kakko:find("転載") or kakko:find("動画") or kakko:find("ブログ") 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>", "") --<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 --タイトルを取り出す title = html:match("<h2>.-<a .->(.-)</a>.-</h2>") --アーティスト名を取り出す artist = html:match("</h2>.-作曲.-<a.->(.-)</a>.-<h3") return "LYRICS="..lyrics, "TITLE="..title, "ARTIST="..artist end </LuaScript> 2011-08-28T23:22:48+09:00 1314541368 https://w.atwiki.jp/timetag/pages/2.html **メニュー -[[トップページ]] -[[プラグイン紹介>プラグイン]] -[[まとめサイト作成支援ツール]] -[[メニュー]] -[[メニュー2]] ---- **リンク -[[@wiki>>http://atwiki.jp]] -[[@wikiご利用ガイド>>http://atwiki.jp/guide/]] **他のサービス -[[無料ホームページ作成>>http://atpages.jp]] -[[無料ブログ作成>>http://atword.jp]] -[[2ch型掲示板レンタル>>http://atchs.jp]] -[[無料掲示板レンタル>>http://atbbs.jp]] -[[お絵かきレンタル>>http://atpaint.jp/]] -[[無料ソーシャルプロフ>>http://sns.atfb.jp/]] // リンクを張るには "[" 2つで文字列を括ります。 // ">" の左側に文字、右側にURLを記述するとリンクになります //**更新履歴 //#recent(20) &link_editmenu(text=ここを編集) &counter() 2011-08-25T22:43:45+09:00 1314279825 https://w.atwiki.jp/timetag/pages/17.html **[歌詞取得スクリプト一覧] #lsd() ***RhythmicaLyricsで歌詞を取得するためのスクリプトです。 -【Googleサイト内検索】歌詞サイト内を曲名で検索 → ''HTMLソースから整形して歌詞を取得''(←これ) -普通に歌詞をコピーできるサイトにしか使えません。 -新規ページを作成して登録を増やせます。 --既存のスクリプトページから「＠メニュー＞新規ページ作成(その他)＞このページをコピーして新規作成」 --「新規ページ名」の頭に『LyricsGetScript/』を入れて作成してください。 --「<SiteSearchURL>」には「[TITLE]，[ARTIST]，[ALBUM]」を指定できます。 2011-08-25T22:41:47+09:00 1314279707 https://w.atwiki.jp/timetag/pages/14.html #contents_line() 2011-03-06T00:10:39+09:00 1299337839 https://w.atwiki.jp/timetag/pages/13.html **@wikiへようこそ -ウィキはみんなで気軽にホームページ編集できるツールです。 -このページは自由に編集することができます。 -メールで送られてきたパスワードを用いてログインすることで、各種変更（サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等）することができます #contents() 2011-03-06T00:08:36+09:00 1299337716 https://w.atwiki.jp/timetag/pages/5.html * まとめサイト作成支援ツールについて @wikiには[[まとめサイト作成を支援するツール>>http://atwiki.jp/matome/]]があります。 また、 #matome_list と入力することで、注目の掲示板が一覧表示されます。 利用例）#matome_listと入力すると下記のように表示されます #matome_list 2011-03-05T23:47:08+09:00 1299336428