COUNTIF関数

10万行くらいのテキストデータ（しかも個々のテキストが結構長い）の重複をカウントしたくて、DBでGROUP BYとか組み合わせたやけに長いSQLを組んでもみてもよかったけど、表計算アプリ上でさくっとできないかな、と思って、OOoとLibreOfficeとExcelでCOUNTIF関数を使ってみた。結果的にどれもうまくいかず、かえって時間がかかるはめに。

結果が返ってくるまで2, 30分とか待たされたり、うまく重複がカウントできていない行があったり。（OOoとLibreOfficeが似たような挙動になるのはわかるけど、何故かExcelまで似たような挙動）

んで、しゃーないから、目的の列でソートしたあと、一個上と比較してカウントしたりする数式を作ってしのいだ。統計的なデータだけならLibreOfficeのピボットテーブルが使いやすいんだけど(しかも10万行とかあってもサクッと処理できてちょっとうれしい)、素の表に重複数のカラムを追加するのが目的だったので。メモ。

つぃったー ウィジェット

右側が寂しいので、つぃったーでも表示させてみようかと、調べてみると、
ようはつぃったーさんが提供してくれてるJavaScriptのコード（ウィジェット）を
貼りつけるだけでいけるみたいなので、やってみた。
結構アレなことも書いてるので、あまりにも恥ずかしかったら外そう。

3DS買うたった

最近の携帯ゲーム機はすげぇなー。機能多すぎ。
デフォでついてるゲーム類とか、いつのまにか勝手にダウンロードされてた無料アプリ類は、まだ全然試せてません。

ちなみに最初に買ったゲェムはデビルサバイバー オーバークロックていうメガテン系のやつ。ゲェム内で徒歩で池袋から品川まで歩いたりしてて、以前だとツッコミどころだけど、今はリアルに感じる。

OOo(Windows版)のアンインストール時に開くサイト

OOo(Windows版)のアンインストール時に開くサイトに関してちょっと調べたのでメモ。


URLは、設定ファイル類はなくて、ソースのsetup_native/source/win32/customactions/relnotes/relnotes.cxxに
"http://surveys.services.openoffice.org/deinstall"
って直書きされてるのを発見。
ここを書き換えて、独自ビルドしたら、飛ばす先は変えられそう。


で、このサイトを開く動作の呼び出しは、ソースのscp2/source/ooo/windowscustomaction_ooo.scpに書いてあって、

WindowsCustomAction gid_Customaction_ShowSurvey
  Name = "ShowSurveyAfterUninstall";
  Typ = "65";
  Source = "relnotes.dll";
  Target = "ShowSurveyAfter";
  Inbinarytable = 1;
  Assignment1 = ("InstallExecuteSequence", "REMOVE=\"ALL\" and Not UPGRADINGPRODUCTCODE", "end");
End

となってる。これ、どうもmsiファイルのテーブル定義らしく、msiの中身をみれるツールで見てみると、確かにそのものズバリの項目があったので、それを削除したmsiでOOoのインスコしてみると、アンインストール時にブラウザが開かれなくなった。



追記：LibreOfficeのWindows版ではこの機能なさそう。（http://cgit.freedesktop.org/libreoffice/bootstrap/tree/scp2/source/ooo/windowscustomaction_ooo.scp）

VBAからパスワードつきPPTファイルを開く (Office 2003)

VBAからパスワード付きPowerPointファイルを開く、ってのはどうも普通にやっても無理くさい。(ファイルを開くOpenメソッドがパスワードのパラメータを持っていない)
SendKeysで、無理やりパスワードのキーコードをPowerPointさんに送りつけるってやり方もあるらしいけど、謎のタイミング勝負になってしまうので、このやり方は、やめといたほうが無難。
で、何回もぐぐった結果、パッチがあたったOffice 2003なら、Application.Presentations.Open("ファイルパス", オプション...)のファイルパス部分にくっつけて、"C\TEMP\hogehoge.ppt::fugafuga"みたいな感じで、指定できるとのこと。(fugafugaが開くパスワード)

http://support.microsoft.com/kb/916154/en

LibreOfficeのAPIリファレンス

ができたらしいので。

http://api.libreoffice.org/
http://api.libreoffice.org/docs/common/ref/com/sun/star/module-ix.html

まだググれないみたいだけど。メモ。

そういや誕生日なので

がんばった自分へのご褒美（笑）として、新しい通勤用の革靴を購入。VISARUNOとかいうマルイのオリジナルブランドらしいけど、変に海外ブランドとかより、履き心地が良い。

VBAのApplication.FileSearch

VBAのApplication.FileSearchはOffice2007以降からは廃止されてるので、使わない方が良いとされてるけど、ディレクトリを再帰的に検索したいときとかは楽ちんなのでつい使ってしまいます。（てか楽にプログラムできることがウリのVBAなのに、再帰関数とか実装すんの、めんどくさすぎ）
んで、そのApplication.FileSearchで、ファイルがあるはずなのに、検索できないというトラブルがあったのでメモ。

原因は、Windows XPの検索機能のインデックスが更新されていなかったことで、Excelのファイル→ファイル検索で出てくる左側ペインの検索オプションというリンクで「いいえ、インデックスサービスを開始しません」を選ぶと解決。

前のデータの救出

とりあえず前の/home/tani/からTdiaryのデータをtar.gzに固めてSCPでもってきた。
さて、どうすっかなー。

http://geodenx.blogspot.com/2010/01/migration-from-tdiary-to-blogger.html
このへんみながらボチボチやろうかと思っているところ。

画像うｐテスト

画像うｐしてみた