asp-classic - スプリットスロー500エラー

Question

私はクラシック ASP と Visual Basic を初めて使用します。単純な分割を行うのに問題があります。次のコードがあります。

Dim sFileName, startDate, fsObject, filObject, oArray, oSplit
oArray = Split(Replace(Request.Form("txtOutput"),vbCrLf, "|"),"|")

For Idx = 0 To Ubound(oArray)
    oSplit = Split(oArray(Idx), ",")
    response.Write(oSplit & "</br>")

Next

私txtOutputは次のように見えます：

0342-John Doe,0,0,0,,
0134-Jane Doe,15,0,0,,
0343-John Smith,44.5,0,0,,

私は何か間違ったことをしていますか？

Answer 1

Guess your code should look something like this:

Dim sFileName, startDate, fsObject, filObject, oArray, oSplit
oArray = Split(Replace(Request.Form("txtOutput"),vbCrLf, "|"),"|")

For Idx = 0 To Ubound(oArray)
    oSplit = Split(oArray(Idx), ",")

    For iloop=0 to ubound(oSplit)
        response.Write(oSplit(iloop) & "</br>")
    Next

Next

The reason of this is because you have two splits in your code, you need two counters to loop through all itens

Answer 2

代わりにこれを試してください：

Dim sFileName, startDate, fsObject, filObject, oArray, oSplit
oArray = Split(Replace(Request.Form("txtOutput"),vbCrLf, "|"),"|")

If IsArray(oArray) Then
   For Idx = LBound(oArray) To Ubound(oArray)
       oSplit = Split(oArray(Idx), ",")
       If IsArray(oSplit) Then
          For Idx2 = LBound(oSplit) to uBound(oSplit)
             response.Write oSplit(Idx2) & "</br>"
          Next
       End If
   Next
End If

response.write変数ではなく配列で使用しようとしているため、このエラーが発生します。

Answer 3

oSplit は配列です。配列に続けて書き込もうとしました。<br>