Right を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはRight です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>Right("000" & nLINE, 3)を使用して００１の三桁で表示 Right関数解説</title>
</head>
<body>
<h2>Right("000" & nLINE, 3)を使用して００１の三桁で表示 Right関数解説</h2>
test019-1.asp<br>
動作仕様:<br>
test008.txtを読み込み、５行単位で線を引く(＜ＨＲ＞タグを入れる)<br>
行番号を００１の三桁０付きで表示する<br>
<hr>
<%
'FileSystemObjectを生成します
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
'test008.txt を読取専用モードで開く
Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True)
Dim nLINE '行数のカウンター
nLINE = 0 'カウンターを初期化
Do While ts.AtEndOfStream = False '*6ファイルの終端になってない間ループ
strDATA = ts.ReadLine 'ファイルからデータを一行を読む
nLINE = nline + 1 '行カウンタを＋１する
Response.Write Right("000" & nLINE, 3) & "行目 " '*1行番号の表示
Response.Write strDATA '読み込んだデータを表示
Response.Write "<BR>" '改行のタグを入れる
'行カウンタが５、１０、１５、、５で／って余りが０なら
'＜ＨＲ＞タグを挿入する
If nLINE Mod 5 = 0 Then
Response.Write "<HR>" 'タグを入れる
End If
Loop
ts.close '使ったファイルは閉じようよ
%>
<hr>
<A HREF="test008.txt">使用したtest008.txtを見る</A><br>
<br>
</body>
</html>
| 最近発売の雑誌を紹介する
女性誌を紹介します。数少ない女性プログラマー向けの広告でした(笑)
- sweet (スウィート) 2008年 06月号
- JILLE (ジル) 2008年 06月号
- 私の時間 2008年 06月号
- ELLE girl (エル・ガール) 2008年 06月号
- CUTiE (キューティ) 2008年 06月号
- BAILA (バイラ) 2008年 06月号
- RUSSH JAPAN (ラッシュジャパン) 2008年 06月号
- ar (アール) 2008年 06月号
- FRaU (フラウ) 2008年 06月号
|