出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[5297] Re:CSVファイルへ書き込む
投稿者：Lightningさん 2005/09/30 14:03:38
とりあえず、入力フォームは別にあって、そのフォームからこのASPが呼ばれると仮定します。

> <HTML>
> <HEAD>
> <TITLE>アンケート</TITLE>
> </HEAD>
>
> <BODY BGCOLOR="white">
> <CENTER>
> <center><font size="+2">アンケート</font>
> <%
> pfile = Request("userid") & vbCrLf
> pfile = pfile & Request("pass") & vbCrLf
> pfile = pfile & Request("feeling") & vbCrLf
VBcrlfて改行だから、CSVにはなりませんね。
最後のcrlfはwritelineにするのならば付けると一行空いてしまうので注意。
Tab区切りCSVなら
> pfile = Request("userid") & vbTab
> pfile = pfile & Request("pass") & vbTab
> pfile = pfile & Request("feeling")
カンマ区切りなら
> pfile = Request("userid") & "," & Request("pass") & "," & Request("feeling")

> Set fs = Server.CreateObject("Scripting.FileSystemObject")
> Set csvfile = fs.CreateTextFile("anketo.csv",8,True)
8は[ForAppending]なので正しいです（一応書いとく）
が、問題はそこじゃなく・・・
set csvfile = fs.OpenTextFile(Server.mappath("./anketo.csv"),8,true)
だったりします。
Createでは作るだけでcsvfileにsetされませんから〜

> csvfile.WriteLine(pfile)
> csvfile.Close
>
>
> %>
>
> <BR><BR><BR>
> <FONT SIZE=4 COLOR="#6699ff">
> アンケートにご協力ありがとうございました。
> </FONT>
>
> </body>
> </html>

set 〜〜 = nothing
を忘れないようにしてください。

> Set csvfile = fs.CreateTextFile("anketo.csv",8,True)
> このプログラムがダメといつも言われ、書き込みできないと書かれています。
だめですもん。間違ってますからｗ
卒論でやるのであればこれくらいは自力でやんないと不可になっちゃうよ？
#私のいた研究室はもっと厳しかったぞ？
CSVファイルへ書き込む 　 りんりんさん [2005/09/26 17:42:41] [5272]
　 Re:CSVファイルへ書き込む 　 YasNet（管理人）さん [2005/09/27 12:41:24] [5277]
　 Re:CSVファイルへ書き込む 　 Lightningさん [2005/09/30 14:03:38] [5297]
　 　 Re:CSVファイルへ書き込む 　 Lightningさん [2005/09/30 14:08:06] [5298]

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