Question

我对一个数组有轻微的编码问题，该数组会丢失For Each循环之外的所有值。我尝试了很多解决方案。我可以在循环中正确地看到所有数据（尝试在循环内循环整个数组，包含所有值），但是一旦退出，数组就为空。

尝试将sub之外的临时数组声明为public。任何想法，将不胜感激。在我的绳子尽头:-(

PS：HSarray在模块中被声明为朋友。

公共类highscoreForm

Private TempArray(0) As Integer

Private Sub ScoreGet()

    Dim Counter As Integer = 0

    'Oppretter textfieldParser, Leser alle linjer fra tekstfil inn i array
    Using MyReader As New Microsoft.VisualBasic.
                    FileIO.TextFieldParser(ScoreFile)
        MyReader.TextFieldType = FileIO.FieldType.Delimited
        MyReader.SetDelimiters(",")
        Dim currentRow As String()
        While Not MyReader.EndOfData
            Try
                currentRow = MyReader.ReadFields()
                Dim currentField As String
                For Each currentField In currentRow

                    'Øker størrelsen på Array per linje / Kjøring av løkke
                    If Counter > 0 Then

                        'Skriver verdi til siste index i array
                        Counter = Counter + 1
                        ReDim Preserve TempArray(Counter)

                        TempArray(Counter) = currentField


                        'Hvis løkke kjører for første gang, skriv verdi til index 0, fortsett    
                    ElseIf Counter < 1

                        TempArray(Counter) = currentField
                        Counter = Counter + 1

                    End If


                Next
                'TempArray stops containing data here----WHY????


            Catch ex As Microsoft.VisualBasic.
                        FileIO.MalformedLineException
                MsgBox("OBS! Noe gikk galt ved uthenting av high score")
            End Try
        End While
    End Using


    'Sorterer array etter data-størrelse - Noe kødd her!!
    TempArray.Sort(TempArray)
    TempArray.Reverse(TempArray)



    'Skriver de 5 første (og største) verdiene i temp-array til liste shared array i modul
    Array.Copy(TempArray, HSarray, 5)




    'Sletter innhold
    'Erase TempArray
    'ReDim TempArray(0)

End Sub

Answer 1

必须在过程级别声明数组变量。见https://msdn.microsoft.com/en-us/library/w8k3cys2.aspx。 您只能在程序级别使用ReDim。因此，变量的声明上下文必须是一个过程;它不能是源文件，命名空间，接口，类，结构，模块或块。我会尝试再次在程序级别声明它，但这次没有大小参数。

If counter > 0

然后删除Else和整个nextrow子句，使其每次循环都重新开始。

Visual Basic - 数组丢失For Each循环外的值

1 个答案: