Estou tentando colocar os itens em posições de uma matriz, mas fico recebendo o erro de que a variável está fora dos limites da matriz. Não sei como arrumar o erro e preciso de ajuda.
Segue o código:
Dim posicao As String = String.Join("", itens)
Dim separa As String()
Dim contagem As String
contagem = ListBox1.Items.Count
Dim i As Integer
For i = 0 To contagem
separa = Split(posicao, ";")
cpf = separa(0)
nome = separa(1) 'O erro ocorre aqui.
anonasc = separa(2)
Next
TextBox1.Items.Add(cpf & ";" & nome & ";" & anonasc)
O programa não me aponta erros de código. Estou analisando a variável itens, que recebe as linhas de um arquivo .txt.
A variável local_arquivo recebe o .FileName de uma OpenFileDialog.
Variável itens
:
Dim local_arquivo As String
itens = (My.Computer.FileSystem.ReadAllText(local_arquivo, System.Text.Encoding.Default)).Replace(vbLf, String.Empty).Split((CChar(vbCr)))
ListBox1.Items.AddRange(itens)
itens
eListBox1.Items
), etc.itens
?