Tomboの補助ソフト
EBtはすごく良いソフトです。メモのリンクには圧巻!!自分の使い方にはとてもマッチしています。
が、ファイル数が1000件以上/月になると絶えられない遅さ・・・。PCならサクサクなのですが・・・。
今まではTomboをメインとして使用してきました。でもEBtのリンクの良さは魅力です。そこでTomboでなんとかリンクが出来ないか・・・。
JUsquidを外部アプリとして使用してリンクを取る方法を試しました。でも自分の環境ではIE Mobileが開いてしまい、カレントフォルダのファイルにはリンク出来ません。
じゃ、外部アプリを作れば?ということで作りました。
でも、ちょっと使う側に工夫が必要です。Tomboのファイルは基本的に.txtです。ファイル名.txtに対応してファイル名.jpgなどのファイルを作っておきファイル名.txtをTomboから外部アプリ1or2で起動すると拡張子に関連付けされたアプリケーションが開きます。
現在のバージョンでは、bmp .csv .doc .gif .htm .html.jpg .pdf .png .xlsに対応しています。
http://loop.dip.jp/OpenGraphics.lzhから落とせます。Micosoft Visual Basic 2005で作られています。コンソールアプリです。ドキュメントはありません。簡単すぎるのでソースも掲載します。
Imports System.IO imports System.Text Module mainModule Sub Main(ByVal args As String()) If args.Length = 0 Then Return End If Dim fileName As String = args(0) Dim anotherFileNotExtension As String anotherFileNotExtension = Path.GetDirectoryName(fileName) & "\" & Path.GetFileNameWithoutExtension(fileName) '全ての種類を開く仕様とする Call OpenFile(anotherFileNotExtension & ".bmp") Call OpenFile(anotherFileNotExtension & ".csv") Call OpenFile(anotherFileNotExtension & ".doc") Call OpenFile(anotherFileNotExtension & ".gif") Call OpenFile(anotherFileNotExtension & ".htm") Call OpenFile(anotherFileNotExtension & ".html") Call OpenFile(anotherFileNotExtension & ".jpg") Call OpenFile(anotherFileNotExtension & ".pdf") Call OpenFile(anotherFileNotExtension & ".png") Call OpenFile(anotherFileNotExtension & ".xls") End Sub Sub OpenFile(ByVal fileName As String) Dim pInfo As New ProcessStartInfo() If File.Exists(fileName) = True Then pInfo.FileName = fileName Process.Start(pInfo) Return End If End Sub End Module