2016/02/29

閉所恐怖症でなくてもCTスキャンは

閉所恐怖症の人は、狭い穴を通り抜けるのと大きな騒音でCTスキャンを敬遠すると聞きますが、カバーを外すとフツーの人でも躊躇するかも

900kgの基盤が200回転/分くらいするらしいです
軸受けが外れたら... と思うのは私だけだろうか

2016/02/25

VBで複数の型宣言

昔から変だと思っていたVBの型宣言
(個人的にフツーだと思っているのが .net の方です)

VB6まで or VBA
Dim A as Integer, B as Integer
Dim C, D as Integer
Dim E
結果: A B D の3つは Integer 型, C と E は Variant型
つまり、省略形はVariant型以外ないという事

VB.net
Dim A as Integer, B as Integer
Dim C, D as Integer
Dim E
結果: A B C D の4つはInteger 型、E はObject型

VB.net からは int a, b みたいに Dim a, b as Integer とカンマ区切りでよい

2016/02/15

Google Picasa 終了

ついに Picasa 終了で、Google Photo へ全面移行

長らく迷走した Google Photo もほぼ Picasaの代替が揃い、Android の自動バックアップ機能も Google+ から、Google Photo へ移ったことで、当たり前の環境が揃った様子

かつて Google+ の呼び水にするためか、自動バックアップは Google+の機能だったが、現在は Google Photo の機能になっている。なので、私は Android の Google+を凍結していますが、自動バックアップには全く問題がありません。

まぁ、Google+の利用者を増やすための方法としては無理があったと思います。逆に考えると Photo 単体で、現在の無制限画質(2048☓2048px)のバックアップをいつまで続けられるのかが気がかりなところです。

2016/02/09

Delphi Unicode サロゲートペアの 要素番号と文字番号

今更ですが Delphi Unicode サロゲートペアの 要素番号 と 文字番号 を表にしてみた
文字列は→

コード
ページ
要素
サイズ
参照
カウンタ
要素数文字列
null
12002--6"A""B"#$D840#$DC0B"で""す"
要素番号(Element index)
123456← Length Copy Pos 等で扱われる Index
文字番号(Char index)
123345← ElementToCharIndex(S, ElementIndex)

サロゲートペアを含む文字列は、SJIS時代の2バイト文字と似た扱いです
サロゲートペアのために割り当てられた範囲が限定されているため、SJISにあった、リードバイトに続くトレイルバイトにASCIIコードやリードバイトを含むため、ASCII文字列を検索するとトレイルバイトがヒットしたりという問題はありません

ElementToCharIndex 等↓の関数を用いて Element Index ⇔ Char Index を行き来することとなります

【参考
ElementToCharIndex
ElementToCharLen
CharToElementIndex


Evernote にファイルを連続して追加するbat

Evernote に大量のファイルを追加したい場合
Windows版のEvernote はファイルをまとめてドロップすると、一つのノートにすべてのファイルを保存してしまいます。ちなみに Mac OS X 版は、ファイルごとに一つづつノートが作成されます。
(アプリケーションごとに動作がマチマチなのはEvernoteの問題の一つです)

Evernote for Windows の機能である、スクリプト呼び出して連続追加するバッチを作成

batファイルと対象のファイルを、同じフォルダに入れます
batファイルのスクリプトパス(2行目)を確認、保存するノートブック(3行目)を編集してから使用します
※拡張子.batは除外, ノートのタイトルは拡張子なしのファイル名 です

echo off
set enscript="C:\Program Files (x86)\Evernote\Evernote\Enscript.exe"
set notebook="保存先のノートブック"

for %%A in (*) do (
 if /i not %%~xA == .bat (
  echo %%A
  if not "%notebook%" == "" (
   %enscript% createNote /i "%%~nA" /n %notebook% /s "%%A"
  ) else (
   %enscript% createNote /i "%%~nA" /s "%%A"
  )
 )
)
set notebook=
set enscript=
pause

参考
ファイル名 %%A
ファイル名・拡張子なし %%~nA
拡張子のみ %%~xA

2016/02/03

Dropbox Paper 検索性能

Dropbox でドキュメントを作成できる Paper
ドキュメントには、Dropbox内のファイルを用意に添付できるなどの機能があるので、Evernote 代替になるか検索機能を確認

検索対象検索文字列ヒット
B787787--
テストパターンパターン--
漢字検索検索OK
(添付ファイル名)(ファイル名)--
(画像内の文字列)画像内の文字列--

Evernote や One Note と基本的に同じなところは「前方一致」であるところ。これは英数字をひとかたまりとして、前方から一致する文字列しかヒットしない(表2項目)

Evernote は英数以外の日本語は、区切りがはっきりしないため部分一致がヒットすることが多いが、Paperの場合カタカナを一つのかたまりとして認識しているらしく、部分一致しなかった(表2項目) 漢字に関しては部分一致した(表3項目)

次に添付されたDropboxに保存されたファイルについては、ファイル名でも検索できなかった(表4項目)
また、ドキュメント内に貼り付けられた画像の文字列をOCRする機能は無いらしく、これも検索できなかった(表5項目)

2016/02/01

携帯キャリアのU25割引が対象になる人口割合

同じ携帯キャリアを使い続けても、何もいいことがありませんが、各社がコマーシャルしている U25割引(25歳以下が対象の割引)について、どれくらいの割合の人が対象になるかを調べてみた

年齢人口総人口割合
0〜25歳29,945127,29823.52%
13〜25歳15,912127,29812.50%
単位1,000人
平成25年の総務省人口データより

0〜25歳までで 23.52%
携帯を持つであろう 13〜25歳 は、 12.50%と非常に限られた人が対象になっている

割引してますってポーズですな