あまぞ(さ)んのベストセラー一覧を取ってくるXSLTXML

MSDNのプロダクトキー変換表示のXSLTXMLを応用して、あまぞさんのベストセラー一覧を取ってきて、トップ10をアフィりつつ表示してみるってのは実用的かどうか？
はさておき、ベストセラーをrss配信してることを知ったのでそいつを変換してみることに。
＃ブログに埋め込むのは考え中。

変換結果を保存したいときは、msxsl使って、引数にXSLTXMLファイルを2つ同名指定して結果をファイルとかにリダイレクトすればOKってのはお約束。

<?xml version="1.0" encoding="utf-8"?><?xml-stylesheet type="text/xsl" href="#"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  <xsl:output method="html" indent="yes" encoding="shift_jis"/>

  <xsl:template match="/">
    <html>
      <head>
        <title>Amazonベストセラー一覧</title>
      </head>
    </html>
    <body>
      <xsl:call-template name="list">
        <xsl:with-param name="lists" select="'diy dvd toys automotive videogames beauty shoes jewelry sporting-goods software computers video hpc baby pet-supplies kitchen electronics office-products watch apparel books musical-instruments english-books music food-beverage'"/>
      </xsl:call-template>
    </body>        
  </xsl:template>
  
  
  <xsl:template match="rss">
    <table width="100%" border="1">
      <tr>
        <th>
          <a href="{concat(substring-before(channel/link, '/ref='), '/?tag=fnejp-22')}">
            <xsl:value-of select="channel/title"/>
          </a>
        </th>
      </tr>
      <xsl:for-each select="channel/item">
        <xsl:if test="position() &lt;= 10">
          <tr>
            <td>
              <a href="{concat(concat('http://www.amazon.co.jp/exec/obidos/ASIN/', substring-before(substring-after(link, '/dp/'), '/')), '/fnejp-22')}">
                <xsl:value-of select="title"/>
              </a>
            </td>
          </tr>
        </xsl:if>
      </xsl:for-each>
    </table>
  </xsl:template>

  <xsl:template name="list">
    <xsl:param name="lists"></xsl:param>
    <xsl:if test="string-length($lists) &gt; 0">
      <xsl:variable name="href">
        <xsl:choose>
          <xsl:when test="contains($lists, ' ')">
            <xsl:value-of select="concat(concat('http://www.amazon.co.jp/rss/bestsellers/', substring-before($lists, ' ')), '/')"/>
          </xsl:when>
          <xsl:otherwise>
            <xsl:value-of select="concat(concat('http://www.amazon.co.jp/rss/bestsellers/', $lists), '/')"/>
          </xsl:otherwise>
        </xsl:choose>
      </xsl:variable>
      <xsl:apply-templates select="document($href)/rss"/>
      <xsl:call-template name="list">
        <xsl:with-param name="lists" select="substring-after($lists, ' ')"/>
      </xsl:call-template>
    </xsl:if>
  </xsl:template>
  
  
</xsl:stylesheet>

XSLTとしちゃぁシンプルなほうだけど、listの処理で再帰してるのは、個人的に気に入らんですよ。
for-eachループにしたいところだけど、urn:schemas-microsoft-com:xsltに頼らずには無理なので。

使い方は、メモ帳にコピペして、文字コードUTF-8にしてXMLとして保存。
で、IE等、msxmlを呼び出せるブラウザで見ればいい。
表示は凝ってないんで、味気ない。

コメントしちゃいなよ

名前(匿名可)

メールアドレス(入力自由)

情報を記憶

コメント (スタイル用のHTMLタグを使えます)

日	月	火	水	木	金	土
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31

日

月

火

水

木

金

土

あまぞ(さ)んのベストセラー一覧を取ってくるXSLTXML

カテゴリ:

トラックバック(0)

コメントしちゃいなよ

サイトカウンタ

埋め込みツイッター

検索

このブログ記事について

カテゴリ

月別アーカイブ

ウェブページ

2012年5月

埋め込みQRコード

あまぞ(さ)んのベストセラー一覧を取ってくるXSLTXML

カテゴリ:

トラックバック(0)

コメントしちゃいなよ

サイトカウンタ

埋め込みツイッター

検索

このブログ記事について

カテゴリ

月別 アーカイブ

ウェブページ

2012年5月

埋め込みQRコード

月別アーカイブ