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

  • 投稿日:
  • by shunichi
  • カテゴリ:

私はＭＳ－ＤＯＳ時代から、かれこれ２０年以上、「知子の情報」という、テキスト型データベースソフトを愛用しているけど、これを Evernoteへ一括移行することにした。
正直なところ、Evernoteは２年半くらい前から iPhoneで使っていたけど、その潜在能力を知らなかったのだ。
Evernoteは、「知子の情報」と同じく、テキストファイルをどんどん蓄積していって、全文検索もスイスイできる機能を持っているし、複数のデバイスで同じデータを参照できるという基本設計になっている。

ちなみに、インターネットが普及する以前の１９９５年頃、ＨＰ２００ＬＸという手のひらサイズのＰＣで、この中に、アダムスキー全集と新旧約聖書等の大量のテキストデータベースが入っていて、全文検索できる状態をすでに実現していたけど、これはこの「知子の情報」のおかげである。ＣＰＵが非力で全文検索には１分くらいかかっていたけど、紙をめくって検索するのに比べれば格段に早く、使うたびにコンピューターの便利さを実感して感謝していた。
hp200lx.jpg

さて、この「知子の情報」というソフトはテグレット技術開発という会社の製品だけど、Ｗｉｎｄｏｗｓ時代にはその手軽さも退化して、すでに開発も終息し、６４ビット版ではもはや動作せず、クラウドにも対応困難なので、そろそろ移行しなければ、とずっと思っていた。

今まで、後継ソフトへ移行を試みたことがあるけれども、このようなシンプルなソフトは、意外に、ありそうで、ないものである。
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 "終了しました"