かわいがっても、ご主人様に感謝しないペットども。

パソコンでダウジング

エンドユーザーコンピューティングSQL(EUCSQL)

オラクルデータベースをリモートから参照するエクセルVBAです。
ユーザーが使うのは簡単ですが、セットアップは難しいです。企業ユーザー向けでしょう。
これができるまで２，３週間はかかりました。DCOMって接続するのが結構むつかしいです。IE、サービスパックの最新バージョンをいれてください。

EUCSQLの目的

システム構築の際、しばしば管理帳票のような非定型資料作成の扱いが議論される。このような資料作成需要は、あらゆる切り口で存在し得るものであり、エン
ドユーザーもしばらく使用してみなければほんとうに必要な資料かどうかはわからないのが正直なところであろう。つまり費用対効果が非常に見えにくくシステ
ム要件から切り落とされやすいところである。
オープン時代を迎え、どのオフィスにもパソコンが導入されエクセルは使用されているのにもかかわらず、社のインフラであるデータベースとは切り離されたま
まであるところが多い。つまり非定型資料作成のためのデータを得る方法がゼロ、なのである。（手入力による転記をのぞく）
このEUCSQL
Excelシートはエンドユーザー自身がSQLを発行し、得たデータをエクセルで処理をすることを想定している。残りの加工は一切、エンドユーザにゆだね
られる。
たしかにオラクル・データベースに対してSQLを発行することは一般の人には面倒なことである。しかし、データベース管理者がちょっとしたセットアップと
SQL文を作成するくらいのことを手伝ってあげるだけで、残りの処理はエンドユーザーがやる、という仕事の分担によりデータを得る方法が出現する。

システム面から見たこのEUCSQLの最大の特徴は、Oracle Object for OLEを使用するが、クライアントサイドにOracleクライアントサービスを一切導入しなくてよいことにある。
つまりエンドユーザー側にはExcel以外、なんのセットアップもいらないように工夫した。
もちろん、サーバーサイドにはいくつかのセットアップ、考慮点が必要であるし、パフォーマンスもそれほどよくない。
が、管理帳票に代表されるアドホックなデータ入手方法についての問題解決のひとつとして参考にしていただくとよいと思う。

XML Diary

極めてシンプルな日記帳です。
フリーウェアに日記帳は数多くありますが、あえて製作したのはシンプルで応用の利くものがみつからなかったからです。このプログラムは私自身が日々の業務記録に必要なため、製作したものです。
業務日誌のデータは応用の利くデータ形式がいいと思います。XMLはそういった要望にぴったりではないでしょうか？
2001年の正月の今なら、XML応用ソフトとしての希少価値があるかな？
今後、バージョンアップと共にXMLならではのツールを追加していこうと考えています。
href=”http://www.vector.co.jp/soft/win95/net/se174417.html”>XML Diary バージョン1.00

XML Diary バージョン1.00プロジェクト一式 (VB)

まいったか!

パソコンをオフィスで使用している方のための息抜きソフトです。
ワープロや表計算などやっていて、イライラしてくることはありませんか。

これはそういう憎たらしい文書や表にラクガキしたり、爆弾を落としたり
してパソコンのデスクトップをめちゃくちゃにして遊ぶソフトです。（なんとネガティブな！）
現在の道具は、くれよん、爆弾、ナイフ、ハンマー、毒ガス、マシンガンです。
      

あまりのわかりやすさに4歳以上の方（当社調査結果）ならどなたでもお楽しみ
いただけます。あえて実用的な点を見つけるとしたら、デスクトップ上に印をつけてみせられ
る,伝言を残しておけることくらいでしょうか。
      

昔と違ってあまりものフリーウェアの多さのせいか、発表してもなんのレスポンスもないのがさみしいですね。MS-DOSのころはいろんなメイルが舞い込んできたものでした、とボヤく年齢でもないか。

まいったか!　バージョン1.21

まいったか！ バージョン1.20プロジェクト一式

今日のランチは？

どうして、今までこんなソフトがなかったのか、不思議です。単なるオバカソフトです。
サラリーマン、OLの方の日々の一大イベントのランチ!
「今日はなに食べようかぁ？」という悩みはうれしくもあり、面倒くさくもあります。誰かに提案してもらったり、多少のヒントをもらえれば、ホントウに今日食べたいものがわかるのに。。。。。
このソフトはそういうあなたのため、いや、日本全国のサラリーマン、OLのお昼前には必須のソフトといえるでしょう。
画面は、こんな感じですけど、やってみたいでしょー？

インターネットで探し物

かなりやばいものを作ってしまった。。。。ベクターには公開できんなぁ。。。。
「Mail De Watch」を作って以来、ちょっとしたインターネット通信プログラムがおもしろくなってしまい、情報収集機能をもつプログラムを作ってみたくなったんで
す。インターネットには情報があふれています。検索エンジンなどがよい例ですね。でも、いろんなサイトを探すのに手作業で探すのは面倒。知りたい情報を
もったページをスコンと抜けるとおもしろいなぁ、ということで今回は自動的に探すサンプルプログラムを作ってみました。
ただ。。。。。。。一番簡単な例としてメールアドレスを発見するようにしてみたのですが、巷にはMAILCATCHERとかMAILFINDERとかいっ
てそういうソフトがとても高価な値段で売られており、ヤバヤバツールと認定されているようです。まぁ、SPAMメールをばらまく元といえばそうですもん
ね。対抗策としてアクセスしてきたらデタラメなメールアドレスを大量に生成して返す、なんていうWPOISONなんていうおもしろいソフトを作っている人もいます。
というわけで今回はわざとパッケージには実行モジュールは含まれていません。あくまでも研究用にVBのソースだけ置いておきます。

このプロセスはふたつのフェーズにわけました。最初にやるべきことは、候補のURLを探すことです。例えばGoogleで検索結果のページでもいい
ですし、なんらかの形のリンク集を拾い出し、そのリンクを順順に辿ってみることにしました。一番重要なルーチンが以下のルーチンです。

Private Sub BtnStart_Click()  Dim i As Long  Dim Contents As String  Dim ArrayBin() As Byte

  BtnStart.Enabled = False  bitSTOP = False    ListURL.Clear    Call Init_Inet    InetScan.URL = TxtURL.Text ----(1)  On Error Resume Next  ArrayBin() = InetScan.OpenURL(, icByteArray) ---(2)  On Error GoTo 0  Contents = StrConv(ArrayBin, vbUnicode)    Call ScanLink(Contents) ---(3)  DoEvents  If ListURL.ListCount = 0 Then    Exit Sub  End If  i = 0  Do While (i < (ListURL.ListCount - 1))  ---(4)    lblDoing.Caption = "リストの" & CStr(i) & _"番目を調査中。発見したURL数は" & CStr(ListURL.ListCount)        If CLng(TxtMaxURL.Text) < i Then      InetScan.Cancel      BtnStart.Enabled = True      Exit Sub    End If    InetScan.URL = ListURL.List(i)    On Error Resume Next    ArrayBin() = InetScan.OpenURL(, icByteArray)    On Error GoTo 0    Contents = StrConv(ArrayBin, vbUnicode)    Call ScanLink(Contents)        DoEvents        If bitSTOP Then ---(5)      InetScan.Cancel      BtnStart.Enabled = True      Exit Sub    End If        i = i + 1  Loop    BtnStart.Enabled = True  End Sub

（１）で、InetScanというのは、VBのInetコンポーネントです。これはなかなか便利でプロキシーの設定などもできてHTTP（いわゆる
WEB）のデータを取ってきてくれます。その取る動作が（２）のopenURLというメソッドです。これだけでも、例えば右クリックができないようになっ
ているJavaScriptいりのページのソースを入手することができますね。ここはページがきちんと送られてこなかったり、タイムアウトでエラーになり
やすいのでon
Errorステートメントでエラーをキャンセルしています。うーん、通信プログラムっぽい。
インターネットで入手する情報はさまざまな文字コードで記述されています。EUC,SHIFT-JIS,UNICODEなど聞いたことがあるでしょう？で
すから、VBで処理する場合は普通のSTRINGではなく、バイト配列で受け取ります。STRINGはVBの思っている文字コード（UNICODE)に無
理に文字を変更しようとしたりするので、そういう心配のないバイト配列で受け取り、STRCONV関数でUNICODEに変更しています。これでもイマイ
チヘンなのですが、今回はURLという英語でしかできていないに決まっているものを扱うのでこれでいいことにしています。
（３）はそのもってきたページの内容からHTMLのHREFキーワードを見つけてリンクしているURLを拾い出そうというものです。見つけ出したURLは
すべてLISTBOXに書き出していますので、（４）の部分の数はどんどん増えていきます。つまりこのプログラムはリンクを拾い出してはそのリンクにアク
セスし、また、そのリンクを拾い出していくので放っておくとどこまでもURLを収集しまくってしまいます。で、（５）のタイミングで「中止ボタン」が押さ
れていないかチェックして押されていたら作業を止めるようになっています。
VBのソースパッケージはページの一番下にリンクがあります。実行してみると一万URLなんて簡単に集まるもんですね。ビックリ！データを保管するとき、
そのURLが目的のものか、正規表現でフィルタリングする機能もつけてみました。拾ったものをそのまま保管したい人はソースからregedit関連をとっ
ぱずすとよいでしょう。
以下はほぼ同じ機能をIEを利用してスクリプトで作った例。コレクションオブジェクトがスクリプトでは使えないんで配列の定義で拾いたい最大数を指定してください。BASP21を使っていますので、別途、インストールしてください。

' URLFinder.VBS by T.Takao

option explicit

Dim URLList( 1000 ) Const FileName = "URLList.csv" '書き出すファイル名

Dim objIE 'IEオブジェクトDim objFS 'ファイルシステムオブジェクトDim objFH 'ファイルシステムハンドルDim objBasp 'BASP21Dim URL ' 最初のURLConst ForAppending = 8Dim i     'カウンターDim CountURLDim MaxURL '最大URL数MaxURL = UBound(URLLIST)-1

Call Main()

msgbox "終了"'---------------------------------------------------Sub Main()  dim stream

'IEのインスタンスを作成Set objIE = CreateObject("InternetExplorer.Application")

Set objBasp = CreateObject("basp21")

URL = inputbox("最初のURLを入力します。(http:から）")if URL = "" then  Exit SubEnd if

' 最初のナビゲートobjIE.Navigate(URL)Call LoadWait objIE.Visible = True '動きをみたい方はこちらをどうぞ

CountURL = 0for each URL in objIE.Document.Links  URLList(CountURL) = objBasp.kconv( URL.Href,4)  CountURL = CountURL + 1next

i=0Do while (CountURL < MaxURL)  objIE.Navigate( URLList( i ) )  i = i + 1  Call LoadWait  for each URL in objIE.Document.Links    if CountURL > MaxURL then      exit for    end if    URLList( CountURL ) = objBasp.kconv( URL.Href,4)    CountURL = CountURL + 1  NextLoop

objIE.QuitSet objIE = Nothing

Call WriteOut()

End Sub

sub LoadWait()

  'ロード待ち  do while (objIE.busy)  loop  do while (objIE.Document.readyState <> "complete")  LoopEnd Sub

Sub WriteOut()  Set objFS = CreateObject("Scripting.FileSystemObject")  Set objFH = objFS.OpenTextFile(FileName, ForAppending, True)  for i = 0 to MAXURL    objFH.WriteLine URLLIST(i)  next  objFH.Close  set objFS = NothingEnd Sub

続いて、URLからメールアドレス（あくまでも例ですよ、例！）を拾い出すプログラムの要の部分をご紹介しましょう。

Private Sub BtnStart_Click()  Dim i As Long  Dim Contents As String  Dim ArrayBin() As Byte  Dim URLname As Variant

  BtnStart.Enabled = False  bitSTOP = False    ListMail.Clear     For i = 1 To colURL.Count      colURL.Remove 1   Next    Call LoadURL    Call Init_Inet        For Each URLname In colURL ---(1)    InetScan.URL = URLname    On Error Resume Next    ArrayBin() = InetScan.OpenURL(, icByteArray) ---(2)    On Error GoTo 0    Contents = StrConv(ArrayBin, vbUnicode)    Call ScanAtMark(Contents) ---(3)    DoEvents    LblDoing.Caption = URLname & "探索中" & vbCrLf _      & "発見したメアド数 " & CStr(ListMail.ListCount)    If bitSTOP Then ---(4)      InetScan.Cancel      BtnStart.Enabled = True      Exit Sub    End If      Next  BtnStart.Enabled = TrueEnd Sub

最初のプログラム(URLFinder)で探し出したURLはCSVファイルに保管されているとします。効率を高めたい人はリストをエクセルかなにかで処理して重複URLを除くといいでしょうね。
（１）ではLoadURLで読み込んだコレクションオブジェクトからひとつづつURL名を取り出しています。インターネットプログラムは最初のURLを探
すものとほぼ同じです。（２）でinetコンポーネントのopenURLメソッドでページを拾い出し、コード変換して、（３）でScanAtMarkで
メールにつきものの＠マークを探しています。（４）は途中停止したいときの処理です。

いずれもネットワーク処理は簡単でした。むしろ難しいのは、読み込んだHTMLからどうやってリンクしているURLを取り出すか、どうやってメールアドレスを取り出すか、というテキスト処理部分でした。
このサンプルプログラムでは、HREFタグを見つけたら、そこを候補として切り出します。
次に、文字列を解析しダブルクォーテーションやブランクという区切りを見つけ、URLとしています。しかしやってみるとわかるように結構、ゴミも拾いま
す。同様にメールも＠マークを見つけ前後５０バイトを取り出し、＠マークを中心としてアカウントとドメイン名を拾い出すという作業をやっています。これも
やってみるとわかるように@niftyなんてのも拾ってきてタイヘンです。
こうやってみると、インターネットから情報を収集するプログラムはデータをもってくるのは簡単で、そのテキスト処理がタイヘンであることがわかりました。時間ができたらページの要約を抽出できないかやってみたいところです。

Mail De Watch(メールでウォッチ）

インターネットでメールを扱う方法はSMTP(Simple Mail Transfer
Protocol)っていう約束ごとと、サーバーにたまったメールをクライアント（いわゆるメールソフト）に取り込むPOP3(Post Office
Protocol Version3)という約束事からできています。
以前からこのふたつの機能をゴチャマゼにしたソフトはおもしろいだろうなぁ、と思っていました。このソフトはそのアイデアを生かしたものです。ここからは
仕事の話になりますが、社内でサーバー関連機器を扱っているとエラーやレポートをメールで飛ばしてくれる機器が多いことに気づきました。確かに外を出歩い
ていてもエンジニアに異常を知らせてくれる簡便な方法です。しかし、サーバー機器は外部であるインターネットと接続されていないことも多いとでしょう。隔
離された環境でメールサーバーを立てるという面倒なことはしないのではないだろうと思います。実際、私の職場でもそういう環境です。
このソフトは導入するだけでメールサーバとして立ち上がります。メールにつきもののアカウントという概念を持っていません。送ってきたメールはすべて受け
入れて記録します。それだけじゃ不便かな、と思い送ってきたメールのFrom:account@domainを見て、ドメイン名でフォルダーを作成し分類
はします。あとは、メールが届いたら内容をポップアップしたり、音を鳴らす機能と保管したメールデータを簡易に見るビューワーをつけました。
なんとも安直かつ、メールサーバのくせにシングルスレッドでVBなんぞで書いてあります。それでもサーバーとしてそこそこ動くようにいろいろ配慮はしてあ
ります。機器の管理にちょっと横においておいてエンジニアの方にお使いいただければ幸いです。

Mail De Watch　バージョン1.20