Yahooのニュースサイトからニュースを取得し、 電光掲示板に表示しスクロールする例です。
このサンプルはサイトの容量制限のため短い秒数しか表示しませんが、
実際はニュースの最初から最後までスクロールします。
電光掲示板プラグイン、Luaスクリプトブラグイン、NLuaの インストールが必要です、 電光掲示板プラグインで付箋を作成し、付箋名を確認しておきます。 Luaスクリプトプラグインで付箋を作成し、以下のスクリプトを 入力します。
require('FusenUtils')
if (f_Version() < "1.0.2.0") then
x = "version 1.0.2以上のLuaプラグインを使用してください。"
return
end
f_SetInterval(3600000)
x = '電光掲示板コントローラ'
f_SetTitle("Luaスクリプト:電光掲示板ニュース")
-- 電光掲示板の付箋名(付箋名に合わせて変更必要)
f = FindFusen('201612231954469304')
-- 文字の拡大率
f.plugin.magni = 3
s = f_OpenWeb("http://news.yahoo.co.jp/")
ptn = "<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" onmousedown.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
u1,u2,u3,u4,u5,u6,u7,u8 = string.match(s, ptn)
ptn = "<p class=\"hbody\">(.-)</p>"
s = f_OpenWeb(u1)
news = " "..string.match(s, ptn).." ★"
s = f_OpenWeb(u2)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u3)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u4)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u5)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u6)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u7)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u8)
news = news..string.match(s, ptn).." ☆"
news = string.gsub(news, "<br>", "")
news = string.gsub(news, "\n", "")
f.txt = news
cw = f.Width
f.plugin:Scroll(-cw/f.plugin.magni, f.plugin.txtwidth, 0, 0, 1, 0, 100, true)
-- Scroll(
-- int startx,
-- int endx,
-- int starty,
-- int endy,
-- xの増加量(マイナスの場合は左から右スクロール)
-- yの増加量(マイナスの場合は下から上スクロール)
-- タイマー(ms) -- 小さくするとスクロール速度が速くなります。
-- スクロールの繰り返し
-- )
文字単位にスクロールする Luaスクリプトも公開します。
-- 電光掲示板文字単位スクロール
require('FusenUtils')
if (f_Version() < "1.0.2.0") then
x = "version 1.0.2以上のLuaプラグインを使用してください。"
return
end
i = i or 0
if i == 0 then
f_SetTitle("Luaスクリプト:電光掲示板ニュース")
f_SetInterval(500)
-- 電光掲示板の付箋名(付箋名に合わせて変更必要)
f = FindFusen('201612251446198892')
-- 文字の倍率
f.plugin.magni = 3
s = f_OpenWeb("http://news.yahoo.co.jp/")
ptn = "<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" onmousedown.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
ptn = ptn.."<a href=\"(http://news.yahoo.co.jp/pickup/.-)\" on.-"
u1,u2,u3,u4,u5,u6,u7,u8 = string.match(s, ptn)
ptn = "<p class=\"hbody\">(.-)</p>"
s = f_OpenWeb(u1)
news = " "..string.match(s, ptn).." ★"
s = f_OpenWeb(u2)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u3)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u4)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u5)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u6)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u7)
news = news..string.match(s, ptn).." ★"
s = f_OpenWeb(u8)
news = news..string.match(s, ptn).." ☆"
news = string.gsub(news, "<br>", "")
news = string.gsub(news, "\n", "")
end
f.txt = f_Substring(news, i, 50)
f:Refresh()
i = i + 1
if (f_Length(news) <= i) then
i = 0
end