Replace を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはReplace です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>キーワードをスペースで分解するサンプル</title>
</head>
<body>
<h1>キーワードをスペースで分解するサンプル</h1>
test081-2.asp<br>
スペースで区切って好きな言葉を入れてください（全角半角スペースまぜてね）<br>
<FORM ACTION="test081-2.asp" METHOD="POST">
<INPUT TYPE="text" SIZE="60" NAME="DATA"
VALUE=" 背が高い お金持ち 高学歴 マンション "><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>"
'前後のスペースを取り除くためTrimを使用する
strMOTO = Trim(strMOTO)
'全角スペース□を半角スペースに置き換える
strMOTO = Replace(strMOTO, " "," ")
'さらに、半角スペースn個を半角スペース1個にする
For rCNT = 1 To 10 '複数スペースを最大10までカット(1つに)する
strMOTO = Replace(strMOTO, " "," ")
Next
'スペースでデータをバラす
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>
前後のスペースを取り除くためTrimを使用する<br>
strMOTO = Trim(strMOTO)<br>
<br>
全角スペース□を半角スペースにReplace関数で置換する<br>
strMOTO = Replace(strMOTO, " "," ")<br>
<br>
スペースn個を1つのスペースにする<br>
For rCNT = 1 To 10 '複数スペースを最大10までカット(1つに)する<br>
strMOTO = Replace(strMOTO, " "," ")<br>
Next<br>
<br>
その後、Split関数を使用して、スペース指定で配列を作成する<br>
strBOX = Split(strMOTO, " ")<br>
Split関数で配列を作成後、<br>
'ループでデータを表示させる<br>
For i = 0 To UBound(strBOX) 'UBound使用インデックス最大値までループ<br>
とUBound関数で配列の要素数を判断、ループさせてます。</code><br>
</body>
</html>
| 最近発売の雑誌を紹介する
パソコン雑誌です。息抜きや空いた時間に読んで見ては？
- DTP WORLD (ディーティーピー ワールド) 2008年 06月号
- Windows 100% 2008年 06月号
- 日経 PC (ピーシー) ビギナーズ 2008年 06月号
- PC Japan (ジャパン) 2008年 06月号
- Software Design (ソフトウエア デザイン) 2008年 06月号
- Web Designing (ウェブデザイニング) 2008年 06月号
- I/O (アイオー) 2008年 06月号
- 月刊 COMPUTERWORLD (コンピュータワールド) 2008年 07月号
|