初心者です。

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

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

「delObject」はHTML上で一覧表示する為の1カラムで、行単位に配列で値をもってます。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

A 回答 (1件)

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
    • good
    • 0
この回答へのお礼

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

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

このQ&Aに関連する最新のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ