「知子の情報」から「Evernote」への移行

私はＭＳ－ＤＯＳ時代から、かれこれ２０年以上、「知子の情報」という、テキスト型データベースソフトを愛用しているけど、これを Evernoteへ一括移行することにした。
正直なところ、Evernoteは２年半くらい前から iPhoneで使っていたけど、その潜在能力を知らなかったのだ。
Evernoteは、「知子の情報」と同じく、テキストファイルをどんどん蓄積していって、全文検索もスイスイできる機能を持っているし、複数のデバイスで同じデータを参照できるという基本設計になっている。
ちなみに、インターネットが普及する以前の１９９５年頃、ＨＰ２００ＬＸという手のひらサイズのＰＣで、この中に、アダムスキー全集と新旧約聖書等の大量のテキストデータベースが入っていて、全文検索できる状態をすでに実現していたけど、これはこの「知子の情報」のおかげである。ＣＰＵが非力で全文検索には１分くらいかかっていたけど、紙をめくって検索するのに比べれば格段に早く、使うたびにコンピューターの便利さを実感して感謝していた。

さて、この「知子の情報」というソフトはテグレット技術開発という会社の製品だけど、Ｗｉｎｄｏｗｓ時代にはその手軽さも退化して、すでに開発も終息し、６４ビット版ではもはや動作せず、クラウドにも対応困難なので、そろそろ移行しなければ、とずっと思っていた。
今まで、後継ソフトへ移行を試みたことがあるけれども、このようなシンプルなソフトは、意外に、ありそうで、ないものである。
iPhoneの標準ソフト「メモ」が一番近いけど、検索が弱い。
マイクロソフトの「ＯｎｅＮｏｔｅ」というソフトの Windowsモバイル版がなかなか良かったけど、検索が弱いので不満足だった。
そして、ついに見つけた理想のソフトが「Evernote」だったということになる。
２年前のバージョンでは検索に不安があったけど、今は改善されていて、「知子の情報」のレベルをはるかに越えている。
移行方法も簡単だった。手順を簡単に説明しておくと、次のようになる。
私の場合、約3,000ファイルになったけど、２０～３０分程度だったと思う。
（１）「知子の情報」ソフトから、知子ファイル形式（タグ印付のテキストファイル）として１つのテキストファイルといて出力する。
（２）WSHスクリプトを使って、それを１つずつのテキストファイルに分割する。
（３）EvernoteのWindows用ソフトを起動し、「フォルダインポート機能」で監視設定しておいたフォルダに、（２）で作ったテキストファイルを移動させる。
これで自動的に移行が始まる。
参考までに、その WSHスクリプトの例を載せておこう。

rem ******************************************************************
rem 「知子の情報」から出力した知子テキストファイルを、
rem 個別ファイルへ変換
rem
rem ******************************************************************
Rem ■■■■■ 初期定義　■■■■■
Set fso = CreateObject("Scripting.FileSystemObject")
Today_yyyymmdd = Right("0000" &  Year(now()), 4) & _
Right("00"   & Month(now()), 2) & _
Right("00"   &   Day(now()), 2)
Rem ■■■■■ 変数設定　■■■■■
InputFilePath = "D:\WW\移行\"	'フォルダ名
InputFileName = "TMM.TXT"	'ファイル名
OutputBasePath = InputFilePath
Rem ■■■■■　メイン　■■■■■
'-------------------------- 知子テキスト -------------------------------
Set TmmFile = fso.OpenTextFile( InputFilePath & InputFileName , 1 )
FileCount = 0
FileFlg   = 0
Do Until TmmFile.AtEndOfStream
TempLine = TmmFile.ReadLine
If     Left(TempLine, 2) = "#S" Then
'ファイルをオープン
FileCount = FileCount + 1
FileFlg   = 1
Set TxtFile = fso.CreateTextFile( OutputBasePath & Today_yyyymmdd & "-" & Right("0000" & FileCount,4) & ".txt" )
ElseIf Left(TempLine, 2) = "#E" Then
'ファイルをクローズ
FileFlg = 0
TxtFile.Close
ElseIf Left(TempLine, 2) = "#K" Then
'キーワードを先頭行に追加
TxtFile.WriteLine Mid(TempLine, 3)
ElseIf Left(TempLine, 2) = "#T" Then
ElseIf Left(TempLine, 2) = "#F" Then
ElseIf Left(TempLine, 2) = "#W" Then
Else
'１行追加
If  FileFlg = 1 Then
TxtFile.WriteLine TempLine
End If
End If
Loop
'全ファイルをクローズ
TmmFile.Close
TxtFile.Close
'-------------------------- 知子テキスト -------------------------------
Msgbox "終了しました"