LER DETERMINADA LINHA DO TXT?

TAMANINI 23/08/2006 14:39:24
#166820
Como faço para acessar determinada linha do arquivo txt?
Depois de ler algumas linhas com o comando:
Line Input #intFreeFile, strLineFile
preciso voltar a uma linha X e assim ler as linhas em diante novamente.
USUARIO.EXCLUIDOS 23/08/2006 14:44:18
#166823 Resposta escolhida
Colega, para "ficar movendo" entre as linhas, aconselho q use o Input direto junto ao Split e coloque os itens num Array, tipo:

Dim intFreeFile As Integer, Arquivo As string
Dim Dados() As String, i As Integer
intFreeFile = FreeFile
Arquivo = "[caminho do arquivo]"
Open Arquivo For Input As #intFreeFile
  Dados = Split(Input(LOF(intFreeFile),intFreeFile), vbCrLf)
Close #intFreeFile

'Dessa forma cada linha do arquivo será um item no array Dados, a partir do 0,
' para ler tudo:
For i = 0 To UBound(Dados)
  MsgBox "O conteúdo da linha " & (i + 1) & " é: " & Dados(i)
Next i

'Caso queira a linha 3 por exemplo:
MsgBox Dados(2)


Sacou? Qualquer dúvida poste...T+
TAMANINI 23/08/2006 15:05:17
#166833
Obrigado, Matioli.
Tópico encerrado , respostas não são mais permitidas
Voltar