none
Traduzindo vb4 para vb.net RRS feed

  • Pergunta

  • 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

    Agradeço a quem puder me ajudar!! Abcs

    domingo, 16 de abril de 2017 14:30