プログラミング：スクリプト

cscript.exe で JavaScript をデバッグできない

シャノン — Sun, 31 Aug 2008 18:56:00 GMT

どうも、スクリプト内で ActiveXObject を使って COM オブジェクトのインスタンスを作っているところで失敗しているらしい。
レジストリに異常がなかろうかと、ProgID を探してみた…ら、あった。じゃあ対応する CLSID は…ない！？
すわ再インストールかと思ったところで、俺は 64bit OS を使っているんだということに思い当った。
HKCR\CLSID 以下にはなかった。では、HKCR\Wow6432Node\CLSID なら…ありました。

つまりこう。
俺の OS は 64bit なので、cscript.exe も 64bit 版。
64bit OS で 32bit プロセスは動くが、64bit プロセスは 32bit DLL を読み込めないという制限がある。
従って、C:\Windows\System32\cscript.exe （こいつは 64bit 版）の代わりに、C:\Windows\SysWow64\cscript.exe （こっちが 32bit 版。ああ紛らわしい）を明示的に実行してやればよかったと。
単にコマンドプロンプトから cscript とだけ打つと前者が起動してしまうのですな。

これは、何か、32bit DLL をロードするスクリプトを含むようなファイルが関連付けされるときには注意しておかなければならないことだなぁ。

OPML から IE7 の共通フィードリストに RSS をインポートするスクリプト

シャノン — Wed, 25 Jun 2008 13:19:00 GMT

Outlook 2007 のインポート機能だと、フォルダが1階層だけになっちゃうんですもの。
こいつはフォルダ階層を維持して取り込みます。

type=rss でない outline 要素をフォルダと認識します。
type=include および type=link かつファイル名の末尾が .opml のものは再帰的に展開します。

共通フィードリストは、フィード名と同じ名前のファイルを内部的に生成するので、ファイル名に使えない文字をフィード名にすると落ちます。
そのため、フィード名のクリーンアップ処理も行っています。

<?xml version="1.0" encoding="UTF-16" standalone="yes" ?>
<job>
 <runtime>
  <description>OPML ファイルから Windows の共通フィード ストアにフィードをインポートします。</description>
  <named name="opml" helpstring="インポートする OPML の URI" type="string" required="true"/>
  <example>例：import.wsf http://www.example.com/feeds.opml</example>
 </runtime>
 <script language="JavaScript">
<![CDATA[
String.prototype.startsWith = function( str )
{
 if ( this.length < str.length ) { return false; }
 return ( this.substring( 0, str.length ) == str );
};
String.prototype.endsWith = function( str )
{
 if( this.length < str.length ) { return false; }
 return ( this.substring( this.length - str.length ) == str );
};
function /* string */ getFeedTitle( /* string */ feedUri )
{
 var xmlDom = WScript.CreateObject( "Microsoft.XMLDOM" );
 xmlDom.async = false;
 xmlDom.load( feedUri );
 
 var docElt = xmlDom.documentElement;
 if( docElt.baseName == "RDF" && docElt.namespaceURI == "http://www.w3.org/1999/02/22-rdf-syntax-ns#" )
 {
  // RSS 1.0
  var channel = docElt.selectSingleNode( "./channel" );
  if( channel.namespaceURI == "http://purl.org/rss/1.0/" )
  {
   return channel.selectSingleNode( "./title" ).text;
  }
 }
 else if( docElt.baseName == "rss" && docElt.getAttribute( "version" ) == "2.0" )
 {
  // RSS 2.0
  var channel = docElt.selectSingleNode( "./channel" );
  return channel.selectSingleNode( "./title" ).text;
 }
 else
 {
  // Unknown format
 }
 
 return null;
}
function /* string */ cleanupFileName( /* string */ fileName )
{
 fileName = fileName.replace( /[\x00-\x19]/, " " );
 fileName = fileName.replace( "\\", "￥" );
 fileName = fileName.replace( "/", "／" );
 fileName = fileName.replace( ":", "：" );
 fileName = fileName.replace( "*", "＊" );
 fileName = fileName.replace( "?", "？" );
 fileName = fileName.replace( '"', '”' );
 fileName = fileName.replace( "<", "＜" );
 fileName = fileName.replace( ">", "＞" );
 fileName = fileName.replace( "|", "｜" );
 
 return fileName;
}
function importFeedsInternal( /* XMLDOMNodeList */ outlines, /* FeedFolder */ folder )
{
 for( var i = 0; i < outlines.length; ++i )
 {
  var outline = outlines.item( i );
  
  var type = outline.getAttribute( "type" );
  var text = outline.getAttribute( "text" );
  
  if( text != null )
  {
   text = cleanupFileName( text );
  }
  
  if( type == "rss" )
  {
   var url = outline.getAttribute( "xmlUrl" );
   if( text == null )
   {
    text = getFeedTitle( url );
   }
   
   var feed = null;
   
   if( folder.ExistsFeed( text ) )
   {
    feed = folder.GetFeed( text );
   }
   
   if( feed == null )
   {
    feed = folder.CreateFeed( text, url );
   }
   else if( feed.Url != url )
   {
    feed.Url = url;
   }
  }
  else
  {
   var subfolder = null;
   if( folder.ExistsSubfolder( text ) )
   {
    subfolder = folder.GetSubfolder( text );
   }
   
   if( subfolder == null )
   {
    subfolder = folder.CreateSubfolder( text );
   }
   
   var url = outline.getAttribute( "url" );
   if( type == "include" || ( type == "link" && url.endsWith( ".opml" ) ) )
   {
    importFeeds( url, subfolder );
   }
   
   importFeedsInternal( outline.selectNodes( "./outline" ), subfolder );
  }
 }
}
function importFeeds( /* string */ opml, /* FeedFolder */ folder )
{
 var xmlDom = WScript.CreateObject( "Microsoft.XMLDOM" );
 xmlDom.async = false;
 xmlDom.load( opml );
 
 var outlines = xmlDom.selectNodes( "/opml/body/outline" );
 importFeedsInternal( outlines, folder );
}
if( WScript.Arguments.Named.Exists( "opml" ) == 0 )
{
 WScript.Arguments.ShowUsage();
 WScript.Quit();
}
var opml = WScript.Arguments.Item( 0 );
if( ! opml.startsWith( "/opml:" ) || opml.length <= "/opml:".length )
{
 WScript.Arguments.ShowUsage();
 WScript.Quit();
}
opml = opml.substring( "/opml:".length );
var feedManager = WScript.CreateObject( "Microsoft.FeedsManager" );
importFeeds( opml, feedManager.RootFolder );
]]>
 </script>
</job>

OPML 生成 XSLT

シャノン — Wed, 25 Jun 2008 13:11:00 GMT

RSS の URI から OPML を作る XSLT。
各エントリごとに document 関数でネットの向こうへ RSS を取りに行くので、<?xml-stylesheet?> で使うのは激しく非推奨。
一度 XSLT プロセッサに通して静的な OPML にするが吉。

生成する OPML は 2.0。
対応フィードは RSS 1.0 と RSS 2.0。Atom には対応してません。

<?xml version="1.0" encoding="UTF-16" standalone="yes" ?> 
<xsl:stylesheet version="1.0"
 xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
 xmlns:opml="http://opml.org/spec2"
 xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
 xmlns:rss="http://purl.org/rss/1.0/"
 xmlns:dc="http://purl.org/dc/elements/1.1/"
 exclude-result-prefixes="rdf rss dc">
 
 <xsl:output method="xml" version="1.0" encoding="UTF-16"
  omit-xml-declaration="no" standalone="yes" indent="yes" media-type="application/opml+xml"/>
 
 <xsl:template match="/opml:opml">
  <xsl:copy>
   <xsl:attribute name="version">2.0</xsl:attribute>
   <xsl:attribute name="xml:lang">ja-JP</xsl:attribute>
   <xsl:apply-templates/>
  </xsl:copy>
 </xsl:template>
 
 <xsl:template match="//opml:outline[@type='rss']">
  <xsl:copy>
   <xsl:attribute name="type">rss</xsl:attribute>
   <xsl:attribute name="xmlUrl"><xsl:value-of select="@xmlUrl"/></xsl:attribute>
   <xsl:apply-templates select="document(@xmlUrl)"/>
  </xsl:copy>
 </xsl:template>
 
 <xsl:template match="/rss[@version='2.0']/channel">
 
  <xsl:attribute name="title"><xsl:value-of select="title"/></xsl:attribute>
  <xsl:attribute name="text"><xsl:value-of select="title"/></xsl:attribute>
  <xsl:attribute name="htmlUrl"><xsl:value-of select="link"/></xsl:attribute>
  <xsl:attribute name="description"><xsl:value-of select="description"/></xsl:attribute>
  <xsl:attribute name="version">RSS</xsl:attribute>
  <xsl:attribute name="language"><xsl:value-of select="language"/></xsl:attribute>
  
 </xsl:template>
 
 <xsl:template match="/rdf:RDF/rss:channel">
 
  <xsl:attribute name="title"><xsl:value-of select="rss:title"/></xsl:attribute>
  <xsl:attribute name="text"><xsl:value-of select="rss:title"/></xsl:attribute>
  <xsl:attribute name="htmlUrl"><xsl:value-of select="rss:link"/></xsl:attribute>
  <xsl:attribute name="description"><xsl:value-of select="rss:description"/></xsl:attribute>
  <xsl:attribute name="version">RSS1</xsl:attribute>
  <xsl:attribute name="language"><xsl:value-of select="dc:language"/></xsl:attribute>
 
 </xsl:template>
 
 <xsl:template match="//opml:*[not (name()='outline' and @type = 'rss' )]">
  <xsl:copy>
   <xsl:copy-of select="@*"/>
   <xsl:apply-templates/>
  </xsl:copy>
 </xsl:template>
 
 <xsl:template match="text() | @*"/>
</xsl:stylesheet>

入力ファイルは以下のような感じで。

type=rss の outline 要素に、xmlUrl から取ってきた情報を補充します。

type=rss でない outline 要素はそのまま書き出します。

<?xml version="1.0" encoding="utf-16" standalone="yes"?>
<opml version="2.0" xmlns="http://opml.org/spec2" xml:lang="ja-JP">
 <head/>
 <body>
  <outline type="rss" xmlUrl=""/>
 </body>
</opml>

おまけでデバッグ用に作ったのが、type=rss の outline 要素から type と xmlUrl 以外の属性を除去する XSLT。

<?xml version="1.0" encoding="utf-16" standalone="yes" ?>
<xsl:stylesheet version="1.0"
 xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  xmlns:opml="http://opml.org/spec2"
 xmlns="http://opml.org/spec2">
  <xsl:output method="xml" version="1.0" encoding="UTF-16"
  omit-xml-declaration="no" standalone="yes" indent="yes" media-type="application/opml+xml"/>
  <xsl:template match="//opml:outline[@type='rss']">
    <xsl:copy>
      <xsl:attribute name="type">rss</xsl:attribute>
      <xsl:attribute name="xmlUrl"><xsl:value-of select="@xmlUrl"/></xsl:attribute>
    </xsl:copy>
  </xsl:template>
  <xsl:template match="//opml:*[not (name()='outline' and @type = 'rss' )]">
    <xsl:copy>
      <xsl:copy-of select="@*"/>
      <xsl:apply-templates/>
    </xsl:copy>
  </xsl:template>
</xsl:stylesheet>

スクリプトをいくつか上げてみる

シャノン — Wed, 25 Jun 2008 13:03:00 GMT

自分用にチョコチョコ作ったものなんかを。

MSDN サブスクライバダウンロードのプロダクトキー用XSLT

シャノン — Tue, 24 Jun 2008 17:01:00 GMT

というわけで、Streetw☆さん、THREE-ONEさんのご協力により、なんとか完成しました。ありがとうございます。

もっとかっこいいコードに改造してくれる方、大募集！