Skip to main content
removeu 418 caracteres do conteúdo
Fonte Link

Eu faria:Para lêr apenas a primeira linha, não utilize o ciclo Do.

Dim conexao As String
Open "C:\Sistema\Conexao.txt" For Input Shared As #1: Close 1 'Dá erro se o ficheiro não existir
Open "C:\Sistema\Conexao.txt" For Binary Access Read Shared As #1
conexao = String(LOF(#1), 0)
Get #1, , conexao
Close #1

OuContudo, melhorparece-me que este código faz alguma validação para procurar a primeira linha começada (ou não) por "*". E sendo este o caso, usaria uma função:o ciclo é necessário.

Function LerFicheiro(ByVal Nome As String) As String
    Dim n As Integer
    n = FreeFile(1)
    Open Nome For Input Shared As n: Close n
    Open Nome For Binary Access Read Shared As n
    LerFicheiro = String(LOF(n), 0)
    Get n, , LerFicheiro
    Close n
End Function

Eu faria:

Dim conexao As String
Open "C:\Sistema\Conexao.txt" For Input Shared As #1: Close 1 'Dá erro se o ficheiro não existir
Open "C:\Sistema\Conexao.txt" For Binary Access Read Shared As #1
conexao = String(LOF(#1), 0)
Get #1, , conexao
Close #1

Ou, melhor, usaria uma função:

Function LerFicheiro(ByVal Nome As String) As String
    Dim n As Integer
    n = FreeFile(1)
    Open Nome For Input Shared As n: Close n
    Open Nome For Binary Access Read Shared As n
    LerFicheiro = String(LOF(n), 0)
    Get n, , LerFicheiro
    Close n
End Function

Para lêr apenas a primeira linha, não utilize o ciclo Do.

Contudo, parece-me que este código faz alguma validação para procurar a primeira linha começada (ou não) por "*". E sendo este o caso, o ciclo é necessário.

Fonte Link

Eu faria:

Dim conexao As String
Open "C:\Sistema\Conexao.txt" For Input Shared As #1: Close 1 'Dá erro se o ficheiro não existir
Open "C:\Sistema\Conexao.txt" For Binary Access Read Shared As #1
conexao = String(LOF(#1), 0)
Get #1, , conexao
Close #1

Ou, melhor, usaria uma função:

Function LerFicheiro(ByVal Nome As String) As String
    Dim n As Integer
    n = FreeFile(1)
    Open Nome For Input Shared As n: Close n
    Open Nome For Binary Access Read Shared As n
    LerFicheiro = String(LOF(n), 0)
    Get n, , LerFicheiro
    Close n
End Function