franciscocamellon

Olá para todos, sou iniciante em vb.net e estou tentando traduzir uma macro em vb que era usada em um software CAD antigo e estou tendo problemas com os códigos. Gostaria de uma ajuda para traduzir para vb.net. Em resumo, esta macro lê um arquivo .txt delimitado por ",". Neste arquivo tem as informações de Nome e posição x e y de um conjunto de pontos que fecha um polígono qualquer. Depois de ler o arquivo esta macro atribui estes valores à uma variável Type(Structure) definida pelo usuário e usa para fazer um cálculo de área entre outros. Meu problema é justamente na linha que atribui os valores à variável Type(Structure). Segue o código que já consegui fazer: Public Class Form1 Structure DadosdoPonto 'variavel definida por mim Dim nome As Integer Dim coordE As Double Dim coordN As Double End Structure Dim Ponto() As DadosdoPonto Dim Contador As Integer = 0 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If OpenFileDialog1.ShowDialog() = DialogResult.OK Then FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) 'Open Arquivo For Input Access Read As #1 =>código antigo 'tive dificuldade nesta linha (FileOpen) mas consigo ler o arquivo com ela, fiz um teste com uma msgbox Do While Not EOF(1)'aqui a macro deveria ler linha por linha até o final do arquivo e atribuir 'os valores ao formato definido pelo structure ReDim Preserve Ponto(Contador) 'Input #1, Ponto(Contador).Nome, Ponto(Contador).CoordE, Ponto(Contador).CoordN =>código antigo Contador += 1 Loop FileClose(1) End If End Sub End Class