作成者カテゴリ 
公開
松葉 優
03/25/2004 07:27 PM
エージェント
ノーツサーバノーツクライアントサーバOSクライアントOSネットワークプロトコル
5.x5.xWindows 2000 ServerWindows 2000ProTCP/IP

WebブラウザからCSVファイル形式でデータをダウンロードする

いつもお世話になっております。

以下のエージェントを改良してコーディングすれば
Webブラウザからビューと同等の内容などをCSVファイルで直接
ダウンロードする事が可能です。

CSVファイルをサーバーのハードディスクに保存して、
そのファイルをNotes文書に添付して、URLを指定してダウンロード
させるというような面倒な事をする必要がありませんし、
不要になったファイルを消去する必要もありません。


'*********************************************************************
' ※ まぎらわしいので、文字列リテラルは || で囲っています。

'変数宣言
Dim strFname As String

'ファイル名を決定する
strFname = |Item_| & Format(Now(),|yyyymmddhhnnss|) & |.csv|

'ファイルダウンロード用のヘッダーを出力
Print |Content-Disposition: attachment; filename=| & strFname
Print |Content-Type: application/octet-stream|

'CSVファイル出力
Print |"商品コード","商品名","価格","アルコール度数","国名"|
Print |"1001","ワイン","\1,000","14%","フランス"|
Print |"1002","ビール","\198","4%","日本"|
Print |"1003","焼酎","\900","25%","韓国"|
'*********************************************************************


[Previous Main Document]
WebブラウザからCSVファイル形式でデータをダウンロードする (松葉 優) * 現在地 *
[Next Main Document]