1

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)
11
  • Seria bom colocar qual é o erro e onde ocorre, qual é o dado que está sendo analisado (itens e ListBox1.Items), etc.
    – Maniero
    1/05/2016 às 22:43
  • Pronto, adicionei. 1/05/2016 às 22:46
  • Mas qual é o conteúdo de itens?
    – Maniero
    1/05/2016 às 22:48
  • Corrigido acima. 1/05/2016 às 22:55
  • Estou falando do conteúdo, não da sua definição. Eu vou tentar responder do jeito que dá.
    – Maniero
    1/05/2016 às 22:55

2 Respostas 2

2

Claramente o dado que está sendo analisado não possui os ponto e vírgula esperados. Isto é um dado mal formado, algo que pode acontecer.

Salvo ser uma interpretação errada do que o código deveria fazer, o correto é verificar antes de acessar o dado. Tem que decidir o que fazer se o dado está mal formado, provavelmente indicar um erro. Ou seja, não pode simplesmente acessar o separa(0), separa(1) e separa(2), antes de fazer isto tem que ver se o tamanho do array é 3. Se não for, tem que interromper o algoritmo e informar que o arquivo é inválido.

Um outro detalhe a ser analisado é se este For está servindo para alguma coisa. Me parece que não. Talvez seja intenção fazer algo com ele, mas neste momento ele é inútil.

Com a edição o problema pode ser outro. Eu fiz um teste com os dados passados e tudo funciona. Tive que mudar algumas coisas, o código nem compilava.

Veja funcionando no ideone. E no .NET Fiddle. Também coloquei no GitHub para referência futura.

A resposta continua valendo porque mesmo que os dados não estejam com problema agora, um dia poderão estar.

1
  • Desculpe se acabei te irritando. Conheço muito de VB, mas é a primeira vez que me aventuro no que estou precisando fazer. Estou testando seu código aqui, mas não sei o que está acontecendo que não compila, ele diz que não consegue criar formulário porque o valor não pode ser nulo. 1/05/2016 às 23:29
1
Dim posicao As String = String.Join(";", itens)
Dim separa As String() = posicao.split(;)
Dim contagem As Integer = separa.count

 cpf = separa(0)
 nome = separa(1) 
 anonasc = separa(2)

for x as integer = 0 to Contagem-1
    textbox1.text = textbox1.text & ";" & separa(x)
next

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .