ASP上のVB SCRIPT記述

初心者です。

●Request.Formatで配列が取得できるのがベスト
●MID関数の代替手段（代替ロジック）

下記の処理を行いたいのですが、どうのようにコーディングしていいのか分かりません。VB SCRIPTでは、MID関数がサポートされていないようなのですが、他の代替手段が思い付きません。どなたか宜しくアドバイス願います。

「delObject」はHTML上で一覧表示する為の１カラムで、行単位に配列で値をもってます。Request.Formatでとれればベストなのですが、配列は取得できませんでした。そのかわり、下記コーディングでstrDelCondの中にカンマ(,)区切りで値が取得できたので、それをMID関数で一文字ずつ取得しようとしました。が、MID関数がサポートされていないようで行き詰まってしまってます。宜しくお願いします。


dim strStr
dim strSeq(100)
dim nLen

strDelCond = Request.Form("delObject")
nLen = Len(strDelCond)
ii=0
for i=0 to nLen
strSeq(ii)=""
strStr = Mid(strDelCond,i,1)
if strStr = "," then
ii = ii + 1
else
strSeq(ii) = strSeq(ii) + strStr
strSeq[ii] = strStr
end if
next

No.1 ベストアンサー 回答者： hequil 回答日時： 2001/08/22 23:27

VBScriptでMid関数はサポートされていますよ（参考URL）

ただ、URLクエリーの値をカンマ区切りにした場合

Dim strSeq(100)
For i=1 To Request.Form("delObject").Count
　　If UBound(strSeq) >= i Then
　　　　strSeq(i) = Request.Form("delObject")(i)
　　Else
　　　　Exit For
　　End If
Next

で、strSeq() に代入してあげた方がスマートかな？
私が勘違いしていれば訂正お願いします。

参考URL：http://www.microsoft.com/japan/developer/scripti …

この回答への補足

If UBound(strSeq) >= i Then
の行で、「文字が正しくない」というコンパイルエラーになるのですが
何が悪いのでしょうか。

補足日時：2001/08/22 23:42

この回答へのお礼

すみません、上記の補足は無視して下さい。
うまくいきました。
本当に助かりました。ありがとうございました。

お礼日時：2001/08/22 23:51