複数集計をしたい

Question

こんにちは。http://www.ken3.org/を参考にしながら、下記までたどり着いたのですが、 <% QA = -1 If Request.QueryString("a4") = "on" Then QA = 4 If Request.QueryString("a3") = "on" Then QA = 3 If Request.QueryString("a2") = "on" Then QA = 2 If Request.QueryString("a1") = "on" Then QA = 1 If Request.QueryString("a0") = "on" Then QA = 0 If QA >= 0 Then Call test108_WRITE(QA) Call test108_SUM() Else %> <% End If %> <% Sub test108_WRITE(QA) Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set ts = objFS.OpenTextFile(Server.MapPath("*****.txt"), 8, True) ts.write QA & "," ts.write strMSG & "," ts.write Now & "," ts.write Request.ServerVariables("REMOTE_ADDR") & "," ts.write Request.ServerVariables("HTTP_USER_AGENT") ts.write chr(13) & chr(10) ts.close Response.Write "ご協力ありがとうございました。

" Response.Write "Q.しつもん
" Call test016_SUM() End Sub Sub test016_SUM() dim strRECORD dim nCNT(10) dim nSUM nSUM = 0 For i = 0 to 10 nCNT(i) = 0 Next Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set ts = objFS.OpenTextFile(Server.MapPath("*****.txt"), 1, true) Do While ts.AtEndOfStream = False strRECORD = ts.ReadLine i = Cint(Left(strRECORD, 1)) nCNT(i) = nCNT(i) + 1 nSUM = nSUM + 1 Loop ts.close strBOX = Array("おおおおお" , "えええええ" , "ううううう" , "いいいいい" , "あああああ") Response.Write "" Response.Write "
" For i = 4 To 0 Step -1 Response.Write "" Response.Write "" strMSG = FormatNumber(CInt((nCNT(i) / nSUM) * 200), 1) Response.Write "< td background=img/graphbg.gif align=left width=200px>

< /font>" strMSG = FormatNumber((nCNT(i) / nSUM) * 100, 1) Response.Write "" Response.Write "" Next Response.Write "

" & strBOX(i) & "

" & strMSG & "%

" End Sub %> これだと「型が一致しません。: 'Cint'」という表示が出てなかなかうまくいかず手詰まりの状態になってしまいました。皆様のお力をお貸し下さいませ。宜しくお願い致します。

Harland · Accepted Answer

ちょっとIISの環境が無かったのでXPで作って動かしてみました。多少修正しましたが、ほとんど最初のままで普通に動作しましたよ。ただ複数回答の仕様にはなってないのでa0 > a1 > ～ a4のような優先順位になりますね。一応、動作したソースをそのまま書きます。ほとんど変えてませんが二重表示されるところや無駄なスペース等を多少修正してます。 <% QA = -1 If Request.QueryString("a4") = "on" Then QA = 4 If Request.QueryString("a3") = "on" Then QA = 3 If Request.QueryString("a2") = "on" Then QA = 2 If Request.QueryString("a1") = "on" Then QA = 1 If Request.QueryString("a0") = "on" Then QA = 0 If QA >= 0 Then Call test108_WRITE(QA) Call test108_SUM() Else %> <% End If %> <% Sub test108_WRITE(QA) Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set ts = objFS.OpenTextFile(Server.MapPath("data.txt"), 8, True) ts.write QA & "," ts.write strMSG & "," ts.write Now & "," ts.write Request.ServerVariables("REMOTE_ADDR") & "," ts.write Request.ServerVariables("HTTP_USER_AGENT") ts.write chr(13) & chr(10) ts.close Response.Write "ご協力ありがとうございました。

" Response.Write "Q.しつもん
" End Sub Sub test108_SUM() dim strRECORD dim nCNT(10) dim nSUM nSUM = 0 For i = 0 to 10 nCNT(i) = 0 Next Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set ts = objFS.OpenTextFile(Server.MapPath("data.txt"), 1, true) Do While ts.AtEndOfStream = False strRECORD = ts.ReadLine i = Cint(Left(strRECORD, 1)) nCNT(i) = nCNT(i) + 1 nSUM = nSUM + 1 Loop ts.close strBOX = Array("おおおおお" , "えええええ" , "ううううう" , "いいいいい" , "あああああ") Response.Write "" For i = 4 To 0 Step -1 Response.Write "" Response.Write "" strMSG = FormatNumber(CInt((nCNT(i) / nSUM) * 200), 1) Response.Write "" strMSG = FormatNumber((nCNT(i) / nSUM) * 100, 1) Response.Write "" Response.Write "" Next Response.Write "

" & strBOX(i) & "

" & strMSG & "%

" End Sub %>

Harland · Answer

すみません、全体を見る時間がないので気が付いた点をとりあえず

Do While ts.AtEndOfStream = False 
Response.Write Left(strRECORD, 1)
strRECORD = ts.ReadLine 
i = CLng(Left(strRECORD, 1))
nCNT(i) = 1
nSUM = 1
Loop

ここの意味は何でしょう？
ループして変数に代入したら変数の値は常に最後の行ですよね？

あと今現在出ているエラーメッセージは何とでるのでしょうか。

Harland · Answer

分かりました。
42003311はIntegerで扱える範囲を超えてます。
CInt を　CLng　に変えてみては如何でしょうか。

Harland · Answer

すみません、括弧が多かったですね。
Response.Write (Left(strRECORD, 1)ではなく
Response.Write Left(strRECORD, 1)ですね。
これで表示された値を確認してください。

下の方法でやってみると「False」と表示されたということはLeft(strRECORD, 1)の値が数値として扱えない値だということです。

Harland · Answer

i = Cint(Left(strRECORD, 1)) 
の部分で引っ掛かっているのでしたらまずはテキストから正しく読み込まれているか確認したほうが良いでしょう。

まあどこでもいいのですが、
i = Cint(Left(strRECORD, 1)) よりも前に
Response.Write strRECORD　もしくは
Response.Write (Left(strRECORD, 1)
として実際に値を目視で確認して数字を常に取れるか確認するのが良いかと思います。
Left(strRECORD, 1)で確実に数字が取得できても同じエラーが出るのでしたら試しに
Dim intRecord
intRecord = Left(strRECORD, 1)
If Not IsNumeric(intRecord) Then
   Response.Write "False"
End If
とするのもありますが、そもそもVBScriptではすべてVariant型ですからCIntしなくても数字を読み込んでいれば演算すると思いますよ。

Harland · Answer

見落としがあったらすみません。

まず
For i = 0 to 10
nCNT(i) = 0 
Next 
これだと常にnCNT(i)は0ですよね？意味があるのでしょうか？

そして
nSUMはそのちょっと前に0が代入されてますのでnSUMも0です。

すると
nCNT(i) = nCNT(i) + 1
nSUM = nSUM + 1
これは
nCNT(i) = 1
nSUM = 1
と同義になります。

ということは
strMSG = FormatNumber(CInt((nCNT(i) / nSUM) * 200), 1) 
strMSG = FormatNumber((nCNT(i) / nSUM) * 100, 1) 
どちらも0にしかなりませんしFormatNumberの意味が分かりません。

何行目でエラーになるのか書かれてないので
i = Cint(Left(strRECORD, 1)) 
なのか
strMSG = FormatNumber(CInt((nCNT(i) / nSUM) * 200), 1) 
のどちらでエラーになのか、テキストファイルから読み込まれる内容が分からないのでstrRECORDにどんな値が代入されるか分かりません。
CIntが無かったらどうなるか、お試しはされたでしょうか。
strRECORDにどんな値が代入されているか書き出して試してみる。
数値として読み込まれてないのかどうかをIsNumericで試してみるとかしてみたら如何ですか。

複数集計をしたい

ちょっとIISの環境が無かったのでXPで作って動かしてみました。

この回答への補足

すみません、全体を見る時間がないので気が付いた点をとりあえず

この回答への補足

分かりました。

この回答への補足

すみません、括弧が多かったですね。

この回答への補足

i = Cint(Left(strRECORD, 1))

この回答への補足

見落としがあったらすみません。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング