Question

我正在尝试将textarea放入数组中，将其拆分为新行。我知道docnos确实包含textarea中找到的字符。任何人都可以告诉我为什么这不起作用？由于某种原因，它没有将任何东西放入数组中。

docnos = dbencodeStr(Request.form("docnos"))
Dim myArray
myArray = Split(docnos, vbCrLf)

for i = 0 to UBound(myArray,2)
        tempstr = trim(myArray(0,i))
        strSQL = "insert into DocumentNumbers (queryid, documentnumber) values('"&queryid&"','"&tempstr&"');"
        Response.write(strSQL)
        Response.write(tempstr)
        Set rs = TransactionQueriesConn.Execute(strSQL, ,adCMdTExt)
next

Answer 1

鉴于myArray = Split(docnos, vbCrLf)，UBound(myArray,2)会将＆＃34;下标超出范围＆＃34;错误（没有第二个维度）。删除＆＃34; On Error Resume Next＆＃34;。

假设myArray包含一维行数组，则循环需要UBound(myArray)或UBound(myArray,1)。

如果docnos包含"234234234<BR>567567<BR>345345345"，您需要在<BR>上拆分。证据：

>> s = "234234234<BR>567567<BR>345345345"
>> WScript.Echo Split(s, "<BR>")(1)
>>
567567

为什么这个经典的ASP循环将textarea拆分成行不起作用？

1 个答案: