出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[5489] ありがとうございます、でも新たな問題が・・・
投稿者：まちゅさん 2005/11/26 20:31:58
YasNet様

ご回答、ありがとうございます。
やはり円グラフは難しいみたいですね。
フォントの方も無事に解決いたしました。
ありがとうございます。


しかし、今度はプログラムの方で問題が発生いたしまして・・・
１つのページに１０個の問題を表示しているのですが、csvファイルに書き込まれたデータからグラフを表示するときにうまくいきません。
csvファイルには
1,2,1,2,1,2,1,2,1,2,aaaa
2,2,2,1,1,1,2,1,1,2,bbbb
このように書かれていて、これを１行ずつ集計してグラフを表示したいのです。
しかし、うまくいきません。
お力を貸して頂けないでしょうか。よろしくお願いします。
プログラムは

<HTML>
<HEAD>
<TITLE>２問目</TITLE>
</HEAD>

<BODY BGCOLOR="white">
<CENTER>
<FONT SIZE=7>正しいのを選びなさい<br><br></FONT>

<P><FONT SIZE=6>
２．「食べる」の尊敬語
</FONT></P>

<TABLE BORDER CELLPADDING=4>
<TR><TD><center><FONT SIZE=6>回答</center></font></TD><TD><FONT SIZE=6><center>人数</center></font></TD><TD><FONT SIZE=6><center>比率</center></font></TD><TD ALIGN=CENTER><FONT SIZE=6><center>グラフ</center></font></TD></TR>
<FONT SIZE=6>
<%
Dim q(2)
Dim feeling2(2)
Dim nSUM

For i = 1 to 2
q(i) = 0
Next
feeling2(1) = "<FONT SIZE=6>いただく</font>" : feeling2(2) = "<FONT SIZE=6>召し上がる</font>"
cnt = 0

datafile = Server.MapPath("anketo1.csv")

Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set InStream = ObjFSO.OpenTextFile(datafile, 1, False, False)
Do While InStream.AtEndOfStream <> True
pfile = InStream.ReadLine
n = CInt(Left(pfile, InStr(1, pfile, ",") - 1))
If n >= 1 And n <= 2 Then
q(n) = q(n) + 1
cnt = cnt + 1
End If
Loop
InStream.Close

For i = 1 to 2
r = Int(q(i) / cnt * 100)
pfile = "<TR><TD>" & feeling2(i) & "</TD>"
pfile = pfile & "<TD ALIGN=RIGHT><FONT SIZE=6>" & q(i) & "</font><FONT SIZE=6>人</font></TD>"
s = FormatNumber((q(i) / cnt) * 100, 1)
pfile = pfile & "<TD><FONT SIZE=6>" & s & "</font><FONT SIZE=6>％</font></TD>"
If q(i) > 0 Then
pfile = pfile & "<TD><IMG SRC=bar.gif HEIGHT=10 WIDTH=" & r * 4 & ">"
Else
pfile = pfile & "</TD></TR>"
End If
Response.Write(pfile)
Next
%>
</font>
</TABLE>
</CENTER>
</BODY>
</HTML>


今は、
n = CInt(Left(pfile, InStr(1, pfile, ",") - 1))
r = Int(q(i) / cnt * 100)・・・実行するとオーバーフローしましたと出てきます

この２ヶ所が原因ではないかと思っています。
初心者なもので、みなさんが頼りです。
よろしくお願い致します。
フォント拡大、円グラフ表示 　 まちゅさん [2005/11/23 11:14:50] [5480]
　 Re:フォント拡大、円グラフ表示 　 YasNet（管理人）さん [2005/11/23 19:34:35] [5481]
　 　 ありがとうございます、でも新たな問題が・・・ 　 まちゅさん [2005/11/26 20:31:58] [5489]
　 　 　 Re:ありがとうございます、でも新たな問題が・・・ 　 まちゅさん [2005/11/26 20:33:51] [5490]
　 　 　 Re:ありがとうございます、でも新たな問題が・・・ 　 ビギナーズラックさん [2005/11/28 0:44:33] [5491]
　 　 　 Re:ありがとうございます、でも新たな問題が・・・ 　 Lightningさん [2005/11/28 9:44:25] [5492]

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