Excelのセル内文字書式（上付き／下付き）をHTMLタグに変換するマクロ。 対象範囲を選択して実行 空白セルに当たると，そこで中止 変換が行われたセルはピンクに着色 Sub Macro1() Dim rng_all As Range, rng As Range Set rng_all = Application.Selection …

WSH/JScriptのDOMでXPathを使うには，SelectionLanguageを設定する。 var objXML = new ActiveXObject("MSXML.DOMDocument"); objXML.setProperty("SelectionLanguage", "XPath");

第3章「グループを見つけ出す」 3.4 デンドログラムを描く "clusters.rb"の続きです。描画ライブラリにはcairoを使用します。cairoのインストールはgem i cairoで行いました。クラスタの高さを計算します。ここで言う「高さ」は，文字通り画像のy軸方向の高…

第3章「グループを見つけ出す」 3.3 階層的クラスタリング "clusters.rb"を実装してみます。まずはread_file。 def read_file(filename) lines = nil open(filename) do |f| lines = f.readlines.map{|l| l.chomp.split(/\t/)} end # 最初の行は列タイトル c…

メインルーチン #include <cppunit/ui/text/TestRunner.h> #include <cppunit/TextOutputter.h> #include <cppunit/extensions/TestFactoryRegistry.h> int main(int argc, char* argv[]) { CppUnit::TextUi::TestRunner runner; runner.addTest( CppUnit::TestFactoryRegistry::getRegistry().makeTest() ); CppUnit::Outputter* …</cppunit/extensions/testfactoryregistry.h></cppunit/textoutputter.h></cppunit/ui/text/testrunner.h>

要素数未知の集合から1個を取り出す ユーザー入力など，要素数が未知の集合から，1要素をランダムに取り出す。(Ruby) selected = "" i = 0 while line = gets i += 1 selected = line if rand(i) == 0 end puts selected

n個の集合からm個を取り出す n要素の集合から，重複しないm要素をランダムに取り出す。 取り出された要素は，もとの集合と同じ並び。(C++) void sampling(int n, int m) { int select = m; int remain = n; for ( int i = 0; i < n; ++i ) { if ( (rand() % …

第3章「グループを見つけ出す」 3.2 単語ベクトル "generatefeedvector.rb"を実装してみます。 RSSの解析にはRSS Parserを使います。RSSフィードのタイトルと，単語のカウントを返すメソッドから。 require 'rss' def get_word_counts(url) # RSSをParse rss…

『集合知プログラミング』を読了しました。大変勉強になりました。 Pythonによる書籍内サンプルコードをRubyで書いてみたいと思います。 書籍掲載のサンプルコードはこちらの"Examples"からダウンロードできます。 第2章「推薦を行う」 "recommendations.rb"…

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0" xmlns:redirect="org.apache.xalan.xslt.extensions.Redirect" extension-element-prefixes="redirect"> <xsl:output method="html" encoding="Shift_JIS"/> <xsl:template match="product"> …</xsl:template></xsl:output></xsl:stylesheet>

正規表現でURL抽出(Perl) while(<>){ my $Html = $_; while( $Html =~ m{<a\b([^>]+)>(.*?)</a>}ig) { my $Guts = $1; my $Link = $2; if ($Guts =~ m{ \b HREF \s* = \s* (?: "([^"]*)" | '([^']*)' | ([^'">\s]+) ) }xi) { my $Url = $+; if ($Url =~ m{^https?:}i){ p…