ここのニュース
定額で音楽聞き放題 ドコモ、夏発売の携帯で
http://headlines.yahoo.co.jp/hl?a=20060527-00000104-kyodo-bus_all
おお、つまり、一定額払うと、着うたフル(って、サービス名は違うだろーけど)、ダウンロードし放題ってこと??
でも、きっと、レコード会社にはらう、印税は1曲ダウンロードごと?
とすると、みんなが何曲もダウンロードしたら。。。
儲かるんだろーか?
Sub ボタン1_Click() Dim xdoc As New DOMDocument Dim xtree As IXMLDOMElement Dim namelist As IXMLDOMNodeList Dim node As IXMLDOMNode Dim i As Integer '/*========================*/ '/* データを取ってくる */ '/*========================*/ xdoc.async = False xdoc.Load ("http://labs.goo.ne.jp/blogscope/rss/index.rdf") '/*========================*/ '/* タイトルの取得 */ '/*========================*/ ' 全体をとってくる Set xtree = xdoc.documentElement ' タイトルを集めるのだ Set namelist = xtree.getElementsByTagName("title") '/*=========================*/ '/* タイトル書き出し */ '/*=========================*/ i = 0 Do While (Not namelist(i) Is Nothing) ActiveSheet.Cells(i + 1, 1) = namelist(i).nodeTypedValue i = i + 1 Loop End Sub |
流行偏差値 | ブログでの利用頻度 | 成長度 |
---|---|---|
49.44 | 77件 | -35.19% |