ベストアンサー

VBSCRIPTで、DB2のデーターベースに接続して、データーを取得し

2010/02/24 08:02

VBSCRIPTで、DB2のデーターベースに接続して、データーを取得しCSVファイルに保存する処理を作っています。そのときに、その経過をinternet explorerに表示しています。そのIEの画面上で、ろーかるに保存したCSVファイルへのリンクを作成して、それをクリックするとファイルが開くようにしたいのですが、そのリンクのHTMLの書き方がわかりません。基本できな事とは思いますが、誰か教えていただけませんか？宜しく御願いします。

humipinedesu
お礼率42% (9/21)

HTML
回答数7
ありがとう数8

みんなの回答 （7）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

DOUGLAS_
ベストアンサー率74% (397/534)

2010/02/27 08:58 回答No.7

＞※今まで費やした時間は何だったんでしょうねぇ？　　（＾凹＾）　失礼いたしました。　　<(_ _)> 　humipinedesu さんにとっては余り収穫がなかったかも知れませんが、私的には、「CreateObject("InternetExplorer.Application") 」の「Document.Body.InnerHTML」でこのようなことができるということが分かったことが、却って大変な収穫でした。　ありがとうございました。　ところで、「about:blank」のページをそのまま [ファイル(F)] - [名前を付けて保存(A)] し、これをメモ帳で開いてみると、 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">  <HTML><HEAD> <META content="text/html; charset=unicode" http-equiv=Content-Type> <META name=GENERATOR content="MSHTML 8.00.6001.18702"></HEAD> <BODY></BODY></HTML> というような HTML タグが自動で書き込まれているのですが、先ほどの回答に＞なお、「C:\AutoWatch\dami.html」の中身はからっぽで構わないと書きましたように、「C:\AutoWatch\dami.html」に上記の HTML タグが入っているとリンクが機能しませんでした。　１行ずつ削除して試してみますと、  の行に問題があるようで、やはり「about:blank」がくせ者のようです。　以上、ご報告でした。　　　<(_ _)>

質問者

補足 2010/02/28 14:38

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">  <HTML><HEAD> <META content="text/html; charset=unicode" http-equiv=Content-Type> <META name=GENERATOR content="MSHTML 8.00.6001.18702"></HEAD> <BODY></BODY></HTML> そちらからの追加報告について、私の感想なのですが、つまり、htmlタグの記述が何もないdami.htmlを、コード上で、objExplorer.Navigatorメソッドにそのファイルのパスを設定するとインターネットのセキュリティが機能せず、ファイルが開けるが HTMLタグを記述したファイルをNavigatorメソッドに設定してそれに、コード上でリンクをセットしてそれで生成されたリンクを開こうとするとインターネットのセキュリティが機能して、ファイルが開けないというように機能するのかな・・・というふうに想像しています。だから、htmlファイルをテキストファイルとして読み込み、それに直に書き込みして、objExplorer.Refreshで表示を更新してやるのが一番確実なのかなと私のほうでなんかも検証していませんので、確かとはいえませんが

その他の回答 (6)

DOUGLAS_
ベストアンサー率74% (397/534)

2010/02/27 08:37 回答No.6

　おはようございます。　朗報です。＞ダミーのhtmlファイルをローカルの"C:\AutoWatch"の＞フォルダの中に作り、そして、このhtmlファイルのパスと＞ファイル名を、(1)のNavigateに設定したのです。＞objExplorer.Navigate "C:\AutoWatch\dami.html" ＞そして、このdami.htmlを　この次ですが、＞テキストファイルとして読み込んで、＞そのStreamオブジェクトにWriteLineメソッドを使って、＞htmlのリンクの式を代入するのではなくて、当初お示しのスクリプトそのままでいくとリンクを開くことができました。　ご想像のように＞"about:blank"と設定していますが、これでは、＞何もページが設定されていないのと同じで、＞この状況だとリンクを式で代入してもファイルを＞開くことができないのかな・・ということのようですね（私にも原因はさっぱり分かりません）。 Set objExplorer = WScript.CreateObject("InternetExplorer.Application") objExplorer.Navigate "C:\AutoWatch\dami.html" objExplorer.Visible = vbTrue objExplorer.Document.Body.InnerHTML = "<a href=""file:///" & strPathAndFile & """>" & strName & "<a/>" 　なお、「C:\AutoWatch\dami.html」の中身はからっぽで構わないようです。 ※今まで費やした時間は何だったんでしょうねぇ？　　（＾凹＾）

DOUGLAS_
ベストアンサー率74% (397/534)

2010/02/27 01:47 回答No.5

DOUGLAS_ です。　謎が氷解いたしました。　先ず、「携帯」の件は、話がややこしくなるだけですので、やめておきます。　次に＞ソースを見ても、<html></html>だけしか表示されていません。とのことですが、結論から申しますと、VBSCRIPT によって HTML タグが生成できていない、ということになります。　「CreateObject("InternetExplorer.Application") 」は、WEB ページを参照、もしくは WEB ページからデータを取得するためのオブジェクトであって、「Document.Body.InnerHTML」を書き込んでも保存はできないと存じます。　試しに、 objExplorer.Document.Body.InnerHTML = "<a href=""file:///" & strPathAndFile & """>" & strName & "<a/>" としたあとに、[F5] キーを押下して、ブラウザを更新すると、「strName」の部分のリンク文字が消えてしまいます。　つまり、見かけだけのリンク文字というようなことになりましょうか。＞でも、右クリックで、CSVファイルの保存は可能です。　不思議な現象ですが、結局、このオブジェクトで書き込みが可能なのは、テキストフレームやフォームのみかと存じます。　やはり、HTML タグを書き込むためには、「CreateObject("Scripting.FileSystemObject")」で HTML ファイルに WriteLine しなければならないかと存じます。　この件につきましては、自己解決されたようですが、１つめのご質問につきましては、以上でお分かりいただけましたでしょうか？　２つ目のご質問ですが、上記のような事情から、＞htmlファイルのパス名をNavigateにセットした上で、上記のように＞objExplorer.Document.Body.InnerHTML = (リンクの式) とするのではなくて、やはりア）「CreateObject("Scripting.FileSystemObject")」を生成イ）「C:\AutoWatch\dami.html」を読み込んで、HTML タグを WriteLine ウ）「C:\AutoWatch\dami.html」を保存して「CreateObject("Scripting.FileSystemObject")」を初期化というような段取りになろうかと存じます。　したがって、前のご質問の「補足」のところにお書きになっている内容につきましては、 A）vb SCRIPT で、自動でデーターベースにアクセスして、その結果をCSVファイルに出力し、ローカルのフォルダに保存しています。　この件はできているわけですね。 B）その処理を行う時に、VBSCRIPT で、インターネットエクスプローラーを開き、結果を表示する事を行っています。　これについてもできているわけですね。 C）そこで、ついでに、そのインターネットエクスプローラーの画面に出力したCSVファイルへのリンクを作成して表示し、クリックするとそのファイルが開くようにしたいとのことですが、（B）で「結果を表示する事を行ってい」らっしゃるのでしたら、そのときに、「CSVファイルへのリンクを作成」されたらよいのではありませんか？　それとも、「結果を表示する事」自体を「CreateObject("InternetExplorer.Application") 」の「Document.Body.InnerHTML」で行なっていらっしゃるということでしょうか？　まぁ、結果の表示だけでしたら、「Document.Body.InnerHTML」でもできるのでしょうから、それ自体は問題ではありませんが、リンクが機能しない以上、方法を変えざるを得ませんね。

質問者

お礼 2010/02/27 02:54

何回も丁寧に説明して頂き、有難うございました。この質問と回答のやりとりと言うのは、その間に実際に試す作業が入り、その相乗効果で大変勉強になります。レベル的に簡単な事でも、色々と考え、試行錯誤してやると、自分の身につくのがよくわかります。有難うございました。

DOUGLAS_
ベストアンサー率74% (397/534)

2010/02/26 16:28 回答No.4

DOUGLAS_ です。　　<(_ _)> ＞試しにローカルに空のHTMLふぁいるを作成しで、＞そのなかに同じLINKを書いて保存して開くと、＞リングは機能しています。つまり、ファイルを開く事が出来ます。　了解しました。　ということは、[ANo.2] の（３）が原因ではないということになります。　(^。^;)ホッ! です。＞HREFは、携帯からタイプしていますから、＞勝手に小文字を大文字に変換されてしまっているだけです。　こちらも了解しました。　というか、「携帯からタイプして」いらっしゃるということ自体が、逆に私にとっては？？です。　ここで新たな疑問が湧くのですが、・前のご質問に「IEの小さい画面」と書いていらっしゃるのは「携帯の画面」でしょうか？・「vbscriptで、以下のように出力しています。」とお書きなのも、携帯から WEB ページにアクセスして、携帯で vbscript を記述していらっしゃる、ということですか？　もし、そうだとすると、前のご質問の「補足」のところにお書きになっている内容が、さっぱり理解できなくなってしまいます。　この件が理解できないと、これ以上のアドバイスは困難ですので、先ず、前のご質問の「補足」についての下記の７つの質問にお答え願います。【質問１】「vb SCRIPTで、自動でデーターベースにアクセス」するのは、パソコンですか？　携帯ですか？【質問２】「その結果をCSVファイルに出力し、ローカルのフォルダに保存しています。」その保存先は？　 WEB サーバー？　ローカルのサーバー？　humipinedesu さんのパソコンの中？　まさか、携帯の中？【質問３】「その処理を行う時に、VBSCRIPT で、インターネットエクスプローラーを開き、結果を表示」しているのはパソコンですか？　携帯ですか？【質問４】「ついでに、そのインターネットエクスプローラーの画面に出力したCSVファイルへのリンクを作成して表示し、クリックするとそのファイルが開くようにしたい」のは、パソコンですか？　携帯ですか？【質問５】「ファイルの名前は、ある文字列の後ろに、その日の日付と時間が数字だけでくっついた形式にしています。」とお書きの「ファイル」はどこに保存されているのでしょうか？【質問６】「この場合に、VB SCRIPTで動的にインターネットエクスプローラーにリンクを作成して、書き込むようにしようと考えています。」とのことですが、そのそも【質問１・３・６】の VBSCRIPT は同じ実行ファイルなのでしょうか？【質問７】それと、その実行ファイルは、どこに保存されているのでしょうか？

質問者

補足 2010/02/27 00:42

>【質問１】「vb SCRIPTで、自動でデーターベースにアクセス」するのは、パソコンですか？　携帯ですか？パソコンです。誤解を招く書き方だったのでしょうか。すみませんでした。 >【質問２】「その結果をCSVファイルに出力し、ローカルのフォルダに保存しています。」その保存先は？保存先は、ノートのパソコンです。ノート→LAN→サーバーのDB 当然、結果を表示しているのはローカルのノートブックです。 CSVファイルは、このノートの中「C:\AutoWatch\CSV」フォルダの中に保存します。この時に使用しているVB Scriptの実行ファイルは、一つだけです。 VB Scriptのファイルは、ローカルのノートのどこにでも保存可能です。自分自身のパスは、この処理では関係ありません。でも、実は、携帯からでもサーバーのデータベースを読みにいくようなものを作れるのでしょうか。私の質問からは脱線したことではありますが、逆にとっても興味が出ました。携帯から、サーバーのデータを読みに行くには、まずサーバーと携帯をどうつなぐか・・・というのが疑問に出てきます。このことについても、何か後存じてあれば、コメントを買いくださるのも大歓迎ですよ。それから、実はこの私の最初の質問については、自分で解決法を見つけたのですが、まだ、なぜ私が既に説明した方法でできないのか理由がわかりません。以下にもう一度書きますので、もし、そのできなかった方法がご説明できるのであれば、書いていただきたいです。 1) VB SCRIPTの CreateObject　→InternetExplorerのオブジェクトを生成 Set objExplorer = WScript.CreateObject("InternetExplorer.Application") objExplorer.Navigate "about:blank" objExplorer.Visible = vbTrue 2) そのオブジェクトのBodyに、以下のような記述で、式を代入してリンクを設定しました。 objExplorer.Document.Body.InnerHTML = "<a href=""file:///" & strPathAndFile & """>" & strName & "<a/>" 3) 開いた画面で、リンクをクリックしてもファイルは開きません。でも、右クリックで、CSVファイルの保存は可能です。ソースを見ても、<html></html>だけしか表示されていません。 (1)のNavigateに、"about:blank"と設定していますが、これでは、何もページが設定されていないのと同じで、この状況だとリンクを式で代入してもファイルを開くことができないのかな・・・と考えて、ダミーのhtmlファイルをローカルの"C:\AutoWatch"のフォルダの中に作り、そして、このhtmlファイルのパスとファイル名を、 (1)のNavigateに設定したのです。 objExplorer.Navigate "C:\AutoWatch\dami.html" そして、このdami.htmlをテキストファイルとして読み込んで、そのStreamオブジェクトにWriteLineメソッドを使って、htmlのリンクの式を代入して、 objExplorer.Refresh とすると、インターネットエクスプローラに、ファイルにセットしたリンクが表示されました。そして、そのリンクをクリックしたら、ファイルが開けたわけです。 (1) そこで、私の疑問ですが、なぜ objExplorer.Navigate "about:blank" では、 objExplorer.Document.Body.InnerHTMLにリンクの式をセットしても、ファイルが開けないのでしょうか。 (2) HTMLファイルをテキストファイルとして読み込んで書き込むのではなく、 htmlファイルのパス名をNavigateにセットした上で、上記のように objExplorer.Document.Body.InnerHTML = (リンクの式) でも、可能でしょうか。よろしくお願いします。

DOUGLAS_
ベストアンサー率74% (397/534)

2010/02/26 09:59 回答No.3

＞ＯＳは、WINDOWS2K とのことで、私には検証できませんが、確か XP よりはエンジニア向きの OS だったように思いますので、その点で問題はないかと存じます。＞VBSCRIPTでデバッグがうまくできない　まぁ、普通は Windows Script Debugger や Microsoft Script Editor などでデバッグされるのでしょうが、私には、そこまでの必要がありませんし、使い方から勉強し直さなければなりませんので、試したことはありません。　私は、エクセルの VBA に翻訳して VBE でステップインデバッグ（[F8] キー）しています。＞書き方が実際、きちんと出来て居るがどうかの確認は、VBE のイミディエイトウィンドウやウォッチウィンドウで確認できます。　ちなみに、エクセル VBE で strPathAndFile = "（ローカルパスとファイル名）" strName = "文字列" Debug.Print "<a HREF=""file:///" & strPathAndFile & """>" & strName & "</a>" として実行してみると、 <a HREF="file:///（ローカルパスとファイル名）">文字列</a> という結果が帰ってきました。＞=?<a HREF=""file:///" & strPathAndFile & """>" & strName & "</a>" ＞と式で代入しています。とお書きですが、先頭の「?」は「"」の誤りですよね？　「式で代入して」いらっしゃる意味は、～～.WriteLine "<a HREF=""file:///" & strPathAndFile & """>" & strName & "</a>" と書くと長ったらしくなるからかと存じますが、・スクリプトにどのように書いているかということより、・結果として吐き出された HTML コードが、どのように書かれているかという方が問題かと存じます。＞マウスで右クリックしてファイルに保存する事は可能とのことですが、わざわざ「ファイルに保存」しなくても、「マウスで右クリックし」たときに [ソースの表示(V)] というのはありませんか？　あるいは、Internet Explorer のメニューに [表示(V)] - [ソース(C)] というのがあるはずですので、そこからソースを表示させて、実際に吐き出された HTML コードをご確認ください。　「実際に吐き出された HTML コード」が <a HREF="file:///（ローカルパスとファイル名）">文字列</a> となっているのでしたら、試しに「HREF」を小文字（href）にしてお試しください。　それでも駄目なようでしたら、前回答の（３）が原因と考えられます。

質問者

補足 2010/02/26 14:46

マウスで右クリックしてソースの表事をすると、<HTML></HTML>とだけ、表示されています. HREFは、携帯からタイプしていますから、勝手に小文字を大文字に変換されてしまっているだけです。 internet explorer は、以下のように実行しています。 Set objExplorer = WScript.CreateObject("InternetExplorer.Application") objExplorer.Document.Body.InnerHtml= strLink 試しにローカルに空のHTMLふぁいるを作成しで、そのなかに同じLINKを書いて保存して開くと、リングは機能しています。つまり、ファイルを開く事が出来ます。どこが、足りないのでしょうか？

DOUGLAS_
ベストアンサー率74% (397/534)

2010/02/25 19:19 回答No.2

[ANo.1] の DOUGLAS_ です。 ●ローカルにあるCSVファイルを、IEのリンクをクリックする事で開きたい http://okwave.jp/qa/q5689101.html の方を拝見いたしました。　すでに、＞〈a href="file://（ローカルパスとファイル名）"〉文字列〈/a〉という文法はご存じのようですが。。。１）ひょっとして、・「a href」の前の「〈」・「文字列」の前後の「〉」と「〈」・「/a」の後ろの「〉」などが、このままということはないでしょうね。　[ANo.1] に私が書きましたように <a href="file:///（ローカルパスとファイル名）">文字列</a> というような感じで「〈」と「〉」ではなくて、「<」と「>」を使わなくてはなりません。　そこを直しても駄目なようでしたら、「file://」の部分を「file:///」に変えるか、もしくは、取り払ってお試しください。２）ちなみに、＞ファイルの名前は、ある文字列の後ろに、＞その日の日付と時間が数字だけでくっついた形式にしています。とのことですが、そのファイル名に「/」(スラッシュ)や「:」(コロン)は入っていないでしょうね！３）上記（１）（２）がともに問題ないようでしたら、OS あるいは IE のセキュリティの設定かと思われます。　お使いの OS が Vista あるいは Windows7 でしたら、私は検証のしようがありませんが、同様の質疑でふと思い付いたことがありますので、こちらをご覧ください（ただし、回避策になるかどうかの確証はまったくありませんが。。。）。 ●a href="xxx"の作りはＶｉｓｔａのＰＣに起動できない http://okwave.jp/qa/q5515129.html の [ANo.3] です。

質問者

補足 2010/02/25 23:50

丁寧な説明有難うございます。私が使用して居るＯＳは、WINDOWS2Kです。 VBSCRIPTでデバッグがうまくできないから書き方が実際、きちんと出来て居るがどうかの確認が出来ませんので、画面で表示されているぶぶんからはそのソースも見れないし。画面のリンクをクリックしても何も変化はありませんが、マウスで右クリックしてファイルに保存する事は可能です。ソースで書いているのは、 =?<a HREF=""file:///" & strPathAndFile & """>" & strName & "</a>" と式で代入しています。画面で表示されたときの現象は先に説明した通りとなります。書き方を前に説明された様に変えて為して見たいと思います。また、お知らせしますね。有難うございます。

DOUGLAS_
ベストアンサー率74% (397/534)

2010/02/24 08:12 回答No.1

＞ろーかるに保存したCSVファイルのフルパスを「D:\hoge\hoge.csv」とすると、＞そのリンクのHTMLの書き方は <a href="file:///D:\hoge\hoge.csv">CSVファイル</a> とか、 <a href="D:\hoge\hoge.csv">CSVファイル</a> でもいけますか。　なお、「CSVファイル」の部分は、＞リンクを作成して、それをクリックするとファイルが開くようにしたいその、リンクの部分に表示される文字列ですので、何でもお好きな言葉をどうぞ。

VBSCRIPTで、DB2のデーターベースに接続して、データーを取得し