решить ошибку несоответствия для Visual Basic 6.0

Question

Когда я запускаю этот код, он показывает диалоговое окно, в котором в строке For i = 0 To UBound(arffArray) указано «Несоответствие типов»В чем проблема с моим кодом?

Public Function processFile()

    Dim i, j, posRelation, temp, att, data, flag
    Dim strRelation
    Dim strAtt
    Dim strData

    strRelation = "@relation"
    strAtt = "@attribute"
    strData = "@data"

    att = 0
    data = 0

    For i = 0 To UBound(arffArray)
        If (InStr(arffArray(i), strRelation)) Then
            temp = Replace(Mid(arffArray(i), 11, Len(arffArray(i))), "'", "")
            RelationName = temp
        ElseIf (InStr(arffArray(i), strAtt)) Then
            flag = parseAtt(att, arffArray(i))
            If (Not flag) Then
                processFile = flag
                Exit Function
            End If
            att = att + 1
        ElseIf (InStr(arffArray(i), strData)) Then
            data = readTheRest(i)
            i = UBound(arffArray) 'end the loop
            totalData = data
        End If
    Next

    'get the list of class name
    Dim tmpClassAttr
    tmpClassAttr = attArray(1, UBound(attArray, 2))

    For i = 0 To UBound(tmpClassAttr)
        ReDim Preserve classArray(i)
        classArray(i) = Trim(tmpClassAttr(i))
    Next

    processFile = True
End Function

'------------------------------------------------------------
'Function: parseAtt(num, attrData, ByVal m As MineKnow)
'require:
' >@num      -> current attribute counter
' >@attrData -> current attribute declaration
'Raises: error if reading non numeric data/attribute
'Return: boolean parseAtt TRUE/FALSE, TRUE if parse successfully or otherwise
'Effect: parsing file content to:
' > attributes
'------------------------------------------------------------
Private Function parseAtt(num, attrData)
    Dim temp, i, j, strAtt, temp2, pos, atVal
    ReDim Preserve attArray(2, num)

    'possible type of declarations
    '@attribute outlook {sunny, rainy, overcast}
    '@attribute outlook {sunny,rainy,overcast}
    'attribute pos = 12

    'get the attribute name first get the pos of "{"
    pos = InStr(1, attrData, "{", 1)

    If (pos = 0) Then
        error = "---->Nominal attribute only." & vbCrLf & "---->" & attrData
        parseAtt = False
        Exit Function
    Else
        strAtt = Trim(Mid(attrData, 12, pos - 12))
        atVal = Mid(attrData, pos + 1, Len(attrData) - (pos + 1))

        atVal = Replace(atVal, "'", "")
        atVal = Replace(atVal, "''", "")
        atVal = Replace(atVal, "}", "")
        atVal = Replace(atVal, " ", "")

        temp = Split(atVal, ",")

        attArray(0, num) = strAtt
        attArray(1, num) = temp
        parseAtt = True
    End If
End Function

Answer 1

Самая большая проблема с вашим кодом в том, что вы не объявляете тип своих переменных !!

Заявления типа

Dim i

просто объявит переменную i как тип Variant, что определенно не то, что вам нужно.

Вы действительно хотите, чтобы i был объявлен как Integer. Это достигается путем явного указания типа в точке объявления:

Dim i As Integer

Поскольку цикл For ожидает индексную переменную итератора с типом Integer, это должно помешать ему погасить эту ошибку.

Аналогично, строки всегда должны объявляться явно как String типов:

Dim strRelation As String

---

Обратите внимание, что когда вы объявляете несколько переменных в одной строке (что, вероятно, не следует делать из соображений ясности), вам необходимо убедиться, что вы указали тип для каждой переменной . Он не накапливается, как другие языки.

Например, это утверждение

Dim i, j, k As Integer

объявит только k как Integer. i и j будут иметь тип Variant, что почти наверняка (опять же) не то, что вы хотели.

Вместо этого вам нужно написать

Dim i As Integer, j As Integer, k As Integer

---

Конечно, в этом конкретном случае, поскольку VB 6 позволяет вам использовать переменные с нижней границей, которая не равна 0, вероятно, лучше всего кодировать цикл следующим образом:

Dim i As Integer
For i = LBound(arffArray) To UBound(arffArray)
    ' Do something with the array
Next i