Replace を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはReplace です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>Replace関数とSplit関数とUBound関数のサンプルを解説</title>
</head>
<body>
<h1>Replace関数とSplit関数とUBound関数のサンプルを解説</h1>
test081-1.asp<br>
スペースで区切って好きな言葉を入れてください（全角半角スペースまぜてね）<br>
<FORM ACTION="test081-1.asp" METHOD="POST">
<INPUT TYPE="text" SIZE="40" NAME="DATA" VALUE="AB 型 三流君 ←全角"><BR>
<INPUT TYPE="submit" VALUE="分割実行">
<INPUT TYPE="reset" VALUE="クリア">
</FORM>
分割実行ボタンを押すとReplace関数で全角スペースを半角に置換してから<br>
Split関数とUBound関数を使用してデータ分割表示します<br>
<br>
<% '入力パラメーターDATAがあるかチェックする
If IsEmpty(Request.Form("DATA")) = False Then
Response.Write "<hr><b>テスト結果</b><br>"
'データが入力されていたら、バラして表示する
Dim strMOTO
strMOTO = Request.Form("DATA") 'Postで受け取ったデータ
Response.Write "元のデータは、[" & strMOTO & "]です<br>"
'全角スペース□を半角スペースに置き換える
strMOTO = Replace(strMOTO, " "," ")
'スペースでデータをバラす
strBOX = Split(strMOTO, " ") '区切り文字にスペース指定
'ループでデータを表示させる
For i = 0 To UBound(strBOX) 'UBound使用インデックス最大値までループ
Response.Write "<BR>"
Response.Write "strBOX(" & i & ") -- " '変数名表示
Response.Write strBOX(i) '中身を表示
Next
End If
%>
<hr>
処理概要:<br><code>
全角スペース□を半角スペースにReplace関数で置換する<br>
strMOTO = Replace(strMOTO, " "," ")<br>
その後、Split関数を使用して、スペース指定で配列を作成する<br>
strBOX = Split(strMOTO, " ")<br>
Split関数で配列を作成後、<br>
'ループでデータを表示させる<br>
For i = 0 To UBound(strBOX) 'UBound使用インデックス最大値までループ<br>
とUBound関数で配列の要素数を判断、ループさせてます。</code><br>
</body>
</html>
| 最近発売の雑誌を紹介する
今週発売の男性誌です。プログラミング以外にも興味を持って？？？
- カジカジ 2008年 06月号
- BEST CLUB (ベストクラブ) 2008年 06月号
- SpyMaster (スパイマスター) 東海版 2008年 06月号
- KING (キング) 2008年 06月号
- men's egg (メンズエッグ) 2008年 06月号
- Ollie (オーリー) 2008年 06月号
- BRUTUS (ブルータス) 2008年 6/1号
- Pen (ペン) 2008年 6/1号
- おとなの週末 2008年 06月号
|