|
|
Left を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはLeft です。
<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>一行読み込み後、Left関数 を使ってカウントしてみる</title>
</head>
<body>
<h2>一行読み込み後、Left関数 を使ってカウントしてみる</h2>
test012-2.asp<br>
<hr>
<%
dim strRECORD 'レコード内容を一時保存
dim nCNT05 '満足 カウンター
dim nCNT04 'まぁまぁ カウンター
dim nCNT03 'どちらとも言えない カウンター
dim nCNT02 '少し不満 カウンター
dim nCNT01 '不満 カウンター
nCNT01 = 0 '*1 カウンターを初期化しておく
nCNT02 = 0
nCNT03 = 0
nCNT04 = 0
nCNT05 = 0
'FileSystemObjectを生成します、、って英文、そのままジャン。
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
'test012.txt 結果ファイルを読取専用モードで開く
Set ts = objFS.OpenTextFile(Server.MapPath("test012.txt"), 1, True)
Do While ts.AtEndOfStream = False 'ファイルの終端になってない間ループする
strRECORD = ts.ReadLine 'ファイルからデータを一行を読む
'*2 Left関数を使って左から１文字目を判断、見つかったらカウントアップ
Select Case Left(strRECORD, 1) '読みこんだレコードの１文字目
Case "5": nCNT05 = nCNT05 + 1
Case "4": nCNT04 = nCNT04 + 1
Case "3": nCNT03 = nCNT03 + 1
Case "2": nCNT02 = nCNT02 + 1
Case "1": nCNT01 = nCNT01 + 1
End Select
Loop
ts.close '使ったファイルは閉じようよ
'*3結果の表示
Response.Write "５、満足は、" & nCNT05 & "人<BR>"
Response.Write "４、まぁまぁは、" & nCNT04 & "人<BR>"
Response.Write "３、どちらとも言えないは、" & nCNT03 & "人<BR>"
Response.Write "２、少し不満は、" & nCNT02 & "人<BR>"
Response.Write "１、不満は、" & nCNT01 & "人<BR>"
%>
<hr>
アンケート結果はこんな感じです。<br>
<A HREF="test012.txt" target="_new">元データtest012.txtを見る</A><br>
<br>
<br>
<HR>
解説ページ→
<A HREF="http://www.ken3.org/backno/backno_asp03.html#12">
<b>[No.12 Left関数を使ってみた、ファイル設計？</b></A><br>
<Font Size=-1>
<br>
<a Href="http://www.ken3.org/asp/" TARGET="_top">[ＡＳＰ系メニューへ]</a>
<a href="http://www.ken3.org/cgi-bin/bbs/asp/wforum.cgi" target="F_RIGHT">[質問・感想掲示板]</A>
<a href="http://www.ken3.org/backno/backno_asp_mokuji.html" target="F_RIGHT">[バックナンバー目次]</a><br>
<br>
</Font>
<hr>
</body>
</html>
| 商品:家電関係を紹介(広告)
家電ほか →の人気
-
FUJIFILM instax mini25 チェキ ホワイト INIS 2月1日 伸び率UP
-
iBUFFALO PRADA phone by LG L-02D 3Hハ 1月31日 最近販売
-
東芝ノートパソコン 【PB451DNBNR5A51】 dynabook 1月31日 伸び率UP
-
エレクトロニクス コンセルチェント ライトキット → 1月30日 最近販売
-
FOSTEX 32bitDAC ヘッドホンアンプ HP-A3 → 1月30日 伸び率UP
-
iPhone4で最大8回充電対応！ 大容量ポータブルバッテリー 信頼のP 1月29日 最近販売
-
ORION LEDバックライト地上波デジタル22型液晶テレビ ブラック 1月29日 伸び率UP
-
Hanwha Xtreamer SideWinder2 ファンレス設計 1月28日 最近販売
続き(一覧)を見る
|