出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[811] Re:教えてくださいませ。CSVのダウンロードについて
投稿者：Tomitomiさん 2001/10/25 18:40:13
こんにちは、Tomitomiです。
もう夜ですねぇ。

この話題需要あるんですねｗ


> エラーログ等のTextファイルを読み込んで、
> Submitボタンでそのまま読み込んだデータを
> 各フィールドに表題をつけ、
> CSVのファイル(日付のデータでソート)へダウンロード(クライアント側)
> できる処理をさせたいのです。(その時、任意のファイル名、保存場所で）
> 読み込むまではなんとかわかったのですが、その先が。。。
>
> なんかサンプルソースみたいなものありませんか？
> ほんとにこまっておるもので。
> すみませんがよろしくお願いします。。。


岩手のちがうかさん、混乱していると思いますが、
今日出ている話題を参考にすると以外と簡単です。


>日付のデータでソート
は、また別の力技なので、書いてはいません。


以下のＡＳＰは、「data」というディレクトリにある。引数「Request("data")」で
送られてくるCSVファイルを開いて、ダウンロードさせるASPです。


> 読み込むまではなんとかわかったのですが、その先が。。。


読み込むまではわかってるみたいなので、
「Get_File.ReadALL」ですべて変数へ格納してますので、こちらを、
一行づつ読み込むようにしてソートさせれば、よいと思います。


<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim Dir_Path 'データファイルパス格納用
Dim oFile 'FileSystemObject作成用
Dim Get_File 'ファイル操作用
Dim DISP '引数用
Dim strNUM 'データ格納用

Set oFile = CreateObject("Scripting.FileSystemObject")

DISP = Request("data")

Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment; filename=" & DISP


Set Get_File = oFile.OpenTextFile(Server.MapPath("./data") & "\" & DISP)

strNUM = Get_File.ReadALL

Response.Write strNUM

Response.End
%>
教えてくださいませ。CSVのダウンロードについて 　 岩手のちがうかさん [2001/10/25 17:48:10] [810]
　 Re:教えてくださいませ。CSVのダウンロードについて 　 Tomitomiさん [2001/10/25 18:40:13] [811]
　 　 Re:教えてくださいませ。CSVのダウンロードについて 　 岩手のちがうかさん [2001/10/26 11:18:22] [817]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ