數組邊界不能出現在類型說明符中

Question

嗨，我想讀取一個數組，但我得到這個錯誤：數組邊界不能出現在類型說明符中，我想獲取數組數據以使對象在行Dim用戶作爲USUARIOS（行（0））.....

Try 
    Dim filePath As String 
    filePath = System.IO.Path.Combine(
       My.Computer.FileSystem.SpecialDirectories.MyDocuments, "Clients.txt") 
    Dim fileReader As System.IO.StreamReader 
    fileReader = My.Computer.FileSystem.OpenTextFileReader(filePath) 
    While fileReader.EndOfStream <> True 
     Dim line As String = fileReader.ReadLine 
     Dim lineSplit As String() = line.Split("/") 
     Dim user As Usuarios(line(0)) 
     ComboBox1.Items.Add(line) 
     MsgBox(line) 
    End While 
Catch ex As Exception 
    MsgBox("Error, file not found Clientes.txt") 
End Try 

當前類

Public Class Usuarios 
Private _nombre As String 
Private _erApellido As String 
Private _onApellido As String 
Private _Dni As String 
Private _movil As Integer 
Private _direccion As String 
'Private _fecha As Date 

'Constructor 
Public Sub New(ByVal Nombre As String, ByVal erApellido As String, 
      ByVal onApellido As String, ByVal Dni As String, 
      ByVal tel As Integer, ByVal direccion As String) 
    Me._nombre = Nombre 
    Me._erApellido = erApellido 
    Me._onApellido = onApellido 
    Me._Dni = Dni 
    Me._movil = tel 
    Me._direccion = direccion 
    'Me._fecha = fecha 
End Sub 

'Getters y Setters 
Public Property Nombre() As String 
    Get 
     Return _nombre 
    End Get 
    Set(ByVal Value As String) 
     _nombre = Value 
    End Set 
End Property 

Public Property erApellido() As String 
    Get 
     Return _erApellido 
    End Get 
    Set(ByVal Value As String) 
     _erApellido = Value 
    End Set 
End Property 

Public Property onApellido() As String 
    Get 
     Return _onApellido 
    End Get 
    Set(ByVal Value As String) 
     _onApellido = Value 
    End Set 
End Property 

Public Property Dni() As String 
    Get 
     Return _Dni 
    End Get 
    Set(ByVal Value As String) 
     _Dni = Value 
    End Set 
End Property 

Public Property Movil() As Integer 
    Get 
     Return _movil 
    End Get 
    Set(ByVal Value As Integer) 
     _movil = Value 
    End Set 
End Property 

Public Overrides Function ToString() As String 
    Return String.Format(Me._Dni + "/" + Me._nombre + "/" + Me._erApellido + "/" + Me._onApellido + "/" + String.Format(Me._movil)) 
End Function 

End Class 

電流.txt格式名稱/姓/ .... 我的目標，分割包含的信息在.txt上並使用戶對象保存在數組列表中。

Answer 1

首先，您應該瞭解Scope in Visual Basic。 其中你聲明一個變量決定了它的範圍 - 它的存在位置。因此，在你的代碼：

Try 
    ... 
    While fileReader.EndOfStream <> True 

     Dim lineSplit As String() = line.Split("/") 
     Dim user As Usuarios(line(0)) 

    End While 
Catch ex As Exception 

End Try 

Dim聲明user的While塊裏面，所以當它結束時，將user不復存在。在頂部，try/catch語句外聲明它：

Dim user As Usuarios 

然後，寫的，你只能創建一個新的Usuarios通過這5個數據，我想來自文件。所以你需要通過他們，當你創建一個：

Dim data = line.Split("/"c) 
user = New Usuarios(data(0), data(1), data(2), data(3), 
         Convert.ToInt32(data(4)), data(5)) 

Dim聲明變量及其類型。 New創建一個實例。

你的代碼應該檢查是否產生所有數據元素的分割。順便說一句，如果tel As Integer意味着電話號碼，他們確實不是數字/整數。這會比字符串更好。

幫你一個忙，打開Option Strict它會讓編譯器告訴你有關錯誤的信息。

This post可能會幫助您瞭解範圍。

---

如果您使用Visual Studio 2010或更高版本，則不需要屬性的所有樣板代碼。所有你需要的是：

Public Property erApellido As String 

ByVal不再需要，因爲它是默認了。