Oi pessoal, como faço para abrir um arquivo txt e extrair informacoes de um local especifico, ou seja tipo (exemplo) da linha 102, coluna 45 a coluna 55., depois visualiz-lo este fragmento do texto ??

    Dim ArqTxt1    As Integer
    Dim sSql1       As String
    Dim pos As Integer
    ArqTxt1 = FreeFile(2)
        
    If Dir(App.Path & "config.ini") = "" Then
        Open App.Path & "config.ini" For Input As #ArqTxt1
        Input #ArqTxt1, sEmpresa
        Input #ArqTxt1, Caminho
        Input #ArqTxt1, sServidor01
        Input #ArqTxt1, sServidor02
        Input #ArqTxt1, sServidor03
        Input #ArqTxt1, sServidor04
        Input #ArqTxt1, sServidor05
        Input #ArqTxt1, sServidor06
        Input #ArqTxt1, sServidor07
        Input #ArqTxt1, sServidor08
        Input #ArqTxt1, sServidor09
        Input #ArqTxt1, sServidor10
        Input #ArqTxt1, sServidorMySQL
        Input #ArqTxt1, sSenha

    End If

 

se quiser pegar determinada linha

faça um For x = 1 to numero da linha

quando ele sair da do For estará na linha que voce deseja.

Use Mid para pegar a coluna desejada.

 

Exemplo

resultado = mid(sServidor08,45,5)

45 = coluna

5 = quantos caracteres que voce deseja pegar.

 

Espero ter ajudado

 

abraços,