|
|
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>
| 最近発売の雑誌を紹介する
仕事のじゃまにならない程度に・・・読んでみては？ ※重たい雑誌は通販や近くのコンビニで？
|