LEITURA DE ARQUIVO TXT COMPLEXA

Private Sub updateAnalisys()

    Dim strLinha As String
    Dim lineCurrent As Integer
    Dim strSampleName As String

    Dim strSQL As String
    Dim intContador As Integer
    Dim elements() As Variant
    Dim colunasElementos() As Variant

    F = FreeFile

    lineCurrent = 0

    abreConexaoBanco

    Open [Ô]G:\VM\D\Teclink\RaioX1.txt[Ô] For Input As F    [ô] Abre o arquivo a ser importado

    Do While Not EOF(F)
        Line Input #F, strLinha

        lineCurrent = lineCurrent + 1    [ô]Saber em qual linha está o LOOP

        If lineCurrent = 8 Then    [ô]Verifica se chegou para linha 8 para verificar qual a posição de cada elemento

            elements = Array([Ô]Zn[Ô], [Ô]Fe[Ô], [Ô]Al2o3[Ô], [Ô]CaO[Ô], [Ô]MgO[Ô], [Ô]SiO2[Ô], [Ô]Pb[Ô], [Ô]S [Ô], [Ô]Au[Ô], [Ô]Ag[Ô])    [ô]Elementos que deverão ser buscado no arquivo

            ReDim colunasElementos(UBound(elements))    [ô]Redimenciona o array que guarda as posições de cada elemento para o quantidade de elementos que está pesquisando

            For intContador = 0 To UBound(elements)    [ô]Começa o FOR para localizar e guardar dentro do array qual a posição de cada elemento dentro do arquivo

                Dim varColuna As Integer

                varColuna = InStr(1, strLinha, elements(intContador), vbTextCompare)    [ô]Armazena na variável a localização do elemento atual

                If varColuna <> 0 Then    [ô]Verifica se elemento foi encontrado, caso não seja ele joga vazio para o elemento não encontrado
                    colunasElementos(intContador) = varColuna
                Else
                    colunasElementos(intContador) = Empty
                End If

            Next

        End If

        If lineCurrent >= 12 Then    [ô] Verifica se a linha atual é a linha 12, pois é a partir dela que contém os resultados químicos

            strSampleName = Trim(Mid(strLinha, 5, 18))    [ô]Pega o nome da amostra

            Set rs = Con.Execute([Ô]SELECT SampleName FROM Results WHERE SampleName = [ô][Ô] & strSampleName & [Ô][ô][Ô])    [ô]Faz uma consulta no banco de dados para verificar se a amostra existe

            If rs.EOF = False Then    [ô]Caso a amostra exista começa o processo de criação da instrução SQL para atualizar os resultados químicos

                strSQL = [Ô]UPDATE Results SET [Ô]

                For intContador = 0 To UBound(colunasElementos)

                    If colunasElementos(intContador) <> Empty Then    [ô]Verifica dentro do array que armazena as posições do elementos se não existe algum elemento que não foi encontrado

                        Dim resultadoAnalise

                        resultadoAnalise = Trim(Mid(strLinha, colunasElementos(intContador), 5))  [ô]Armazena na variável o resultado químico do elemento atual

                        If resultadoAnalise = Empty Then    [ô]Caso o resultado químico esteja limpo/vazio, colocamos como o resultadoAnalise como NULO
                            resultadoAnalise = [Ô]Null[Ô]
                        End If

                        strSQL = strSQL & Trim(elements(intContador)) & [Ô]=[Ô] & resultadoAnalise & [Ô],[Ô]    [ô]Amazena na instruação SQL os elementos e resultados encontrados no arquivo

                    End If

                Next

                strSQL = Left(strSQL, Len(strSQL) - 1) & [Ô] WHERE SampleName = [ô][Ô] & strSampleName & [Ô][ô][Ô]    [ô]Termino da construção SQL

                Con.Execute strSQL    [ô]Atualiza os resultados das amostras no banco de dados

            End If

        End If

    Loop

    Close #F
    
End Sub