ASP數組元素爲空，並將字符串轉換爲長

Question

我已經繼承了一個ASP項目，並且我是一個PHP編碼器，沒有ASP知識。很抱歉，如果這篇文章冗長，我只想盡可能多地提供信息。

我正在努力處理這一塊代碼。

Dim resultArray As String() 
For Each resultitem In resultArray 
    ' Do something with each element of the array 
    hash.Add(dllFunctionObj.ReturnTemplateField(i), resultitem) 
    i = i + 1 
Next 

錯誤：

Exception!!: Index was out of range. Must be non-negative and less than the size of the collection. 
Parameter name: index 

解決辦法似乎很簡單。檢查resultitem是否爲空然後中斷或跳到下一個元素。

所以，我想這一點：

If IsNull(resultitem) Then 
    Break 
End If 

錯誤：

BC30451: Name 'IsNull' is not declared. 

我想我在網上找到其他幾個備選方案：

• IsEmpty(resultitem) - 爲IsEmpty沒有宣佈
• String.IsNullOrEmpty(resultitem) - 索引超出範圍錯誤，似乎沒有任何效果
• resultitem Is Nothing - 索引越界
• Not (Len(resultitem) > 0)的 - 索引越界
• Len(resultitem) = 0 - 出界

似乎接近的唯一的事情就是指數：

If Not resultitem Then 
    Break 
End If 

錯誤：

Exception!!: Conversion from string "some_string_here" to type 'Long' is not valid. 

如果我使用的Next代替Break我得到這個錯誤：

If Not resultitem Then 
    Next 
End If 

錯誤：

BC30081: 'If' must end with a matching 'End If'. 

幫助！

我要包括的代碼全部塊的情況下，它是有幫助的

Dim isResultArray As Boolean 
isResultArray = methodInf.ReturnType.IsArray() 
If isResultArray Then 
    Dim resultArray As String() 
    '*** Invoke the dll function 
    resultArray = methodInf.Invoke(REMem, args.ToArray) 
    Dim i As Integer = 0 
    For Each resultitem In resultArray 

     If Not resultitem Then 
      Response.Write("Found null value.") 
      Exit For 
     End If 

     Response.Write("i: " & i & "<br />") 

     hash.Add(dllFunctionObj.ReturnTemplateField(i), resultitem) 
     i = i + 1 
     ' i = 6 will cause Get Constituent Name to work 
     'If i = 6 Then 
     ' Exit For 
     'End If 
    Next 
    outputArray.Add(hash) 
Else 
    '*** could be boolean, string, long etc. 
    Dim result As String 
    '*** Invoke the dll function 
    result = methodInf.Invoke(REMem, args.ToArray) 
    hash.Add(dllFunctionObj.ReturnTemplateField(0), result) 
    outputArray.Add(hash) 
End If 

Answer 1

你需要確保你沒有溢出你正在訪問的集合的索引。像這樣的東西應該工作：

If i < dllFunctionObj.ReturnTemplateField.Length Then 

    hash.Add(dllFunctionObj.ReturnTemplateField(i), resultitem) 

End If 

基本上，你需要你的電話換到「hash.Add」在這個if塊，以防止訪問一個不存在的價值。

當然，我不明白代碼的目的，因此您可能需要處理「其他」情況。但是這應該會阻止錯誤。

Answer 2

我看來像數組可能被錯誤地定義。

更改此：

Dim resultArray As String() 
For Each resultitem In resultArray 
    ' Do something with each element of the array 
    hash.Add(dllFunctionObj.ReturnTemplateField(i), resultitem) 
    i = i + 1 
Next 

向該：

Dim resultArray() As String 
For Each resultitem In resultArray() 
    ' Do something with each element of the array 
    hash.Add(dllFunctionObj.ReturnTemplateField(i), resultitem) 
    i = i + 1 
Next 

---

此外，可能需要定義陣列，例如長度：

Dim resultArray(0 to 9) As String 

如果數組的長度是未知的，你可以定義它沒有最小和最大的指數，但將需要使用ReDim至以後分配的最小和最大指標。一種方法是創建沒有長度的數組，計算您知道要添加到數組的項目，然後使用ReDim作爲該數組的長度。例如：

Dim resultArray() As String 
Dim iCount as integer 'Keep track of the count with this variable. 

'Enter custom counting script here...Use a loop to count the items that will be used in the array. 

ReDim resultArray(0 to iCount - 1) 'Subtract one from the iCount to match the 0-based index. 

如果你試圖在一個沒有設定長度數組的索引來調用（或使用指數大於/小於數組的大小），你最有可能遇到的任何一個「索引超出範圍「或」子串超出範圍「錯誤。