元の三流解説は、
三流君ASP:Split関数で配列作成、UBoundで個数の判断
↑を見て、笑ってやってください。
ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です)
※古くさいコードが多いです・・・
ソースコード
<%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>Split関数のサンプルを解説</title> </head> <body> <h2>Split関数のサンプルを解説</h2> test024-1.asp<br> 簡単にカンマで分けられたデータから配列を作ってみます<br> <hr> strBOX = Split("Ken3,ASP不得意,VBA少しできる", ",")<br> と分解元文字列と区切り文字を渡すと、結果がstrBOXに配列で返ります。<br> 結果<br> <% strBOX = Split("Ken3,ASP不得意,VBA少しできる", ",") '配列データを作成 Response.Write "strBOX(0) -- " & strBOX(0) & "<BR>" '中身を表示 Response.Write "strBOX(1) -- " & strBOX(1) & "<BR>" '中身を表示 Response.Write "strBOX(2) -- " & strBOX(2) & "<BR>" '中身を表示 %> <hr> 終了です。<br> </body> </html>
↑をテストで実行する→ http://www.ken3.org/cgi-bin/test/test024-1.asp
UBoundを使用したサンプル(ソースの紹介)
<%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>Split関数とUBound関数のサンプルを解説</title> </head> <body> <h2>Split関数とUBound関数のサンプルを解説</h2> test024-2.asp<br> <br> <% '頭で、入力パラメーターDATAがあるかチェックする If IsEmpty(Request.Form("DATA")) = True Then 'そのまま下のHTMLフォームを実行 %> スペースで区切って好きな言葉を入れてください<br> <FORM ACTION="test024-2.asp" METHOD="POST"> <INPUT TYPE="text" SIZE="40" NAME="DATA" VALUE="好き 嫌い 普通"><BR> <INPUT TYPE="submit" VALUE="分割実行"> <INPUT TYPE="reset" VALUE="クリア"> </FORM> 分割実行ボタンを押すとSplit関数とUBound関数を使用してデータ分割表示します<br> <% Else 'データが入力されていたら、バラして表示する Dim strMOTO strMOTO = Request.Form("DATA") Response.Write "元のデータは、[" & strMOTO & "]です<br>" 'スペースでデータをバラす 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> strBOX = Split(strMOTO, " ")<br> とSplit関数で文字列から配列を作成後、<br> 'ループでデータを表示させる<br> For i = 0 To UBound(strBOX) 'UBound使用インデックス最大値までループ<br> とUBound関数で配列の要素数を判断、ループさせてます。<br> </body> </html>
↑をテストで実行する→ http://www.ken3.org/cgi-bin/test/test024-2.asp
コードの三流解説は、
三流君ASP:Split関数で配列作成、UBoundで個数の判断
↑を見て、笑ってやってください。