asp081.html 三流君ASP:Split関数で複数キーワードをスペースで分解する

元の三流解説は、
三流君ASP:Split関数で複数キーワードをスペースで分解する
↑を見て、笑ってやってください。
ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です)
※古くさいコードが多いです・・・

ソースコード

<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<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="60" 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>

↑をテスト実行する→http://www.ken3.org/cgi-bin/test/test081-1.asp← 実行する

ソースコード

<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<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>