COMO PEGAR DETERMINADA LINHA DE UM ARQUIVO TXT?
Pessoal como posso pegar uma determinada linha de um arquivo txt? Por exemplo meu arquivo tem 10 linhas mas quero apenas os dados da de numero 5.
Obrigada!
Obrigada!
faz assim:
Const sArq = "C:\o.txt"
Dim sAux As String
Dim iTam As Integer
Dim vAux As Variant
Open sArq For Binary As #1
sAux = Input(FileLen(sArq), #1)
Close #1
vAux = Split(sAux, Chr(13) & Chr(10))
para pegar o valor da linha número 5:
ValorLinha = vAux(5 - 1) 'O valor da linha que você quer, menos 1, porque o vetor começa em 0
Const sArq = "C:\o.txt"
Dim sAux As String
Dim iTam As Integer
Dim vAux As Variant
Open sArq For Binary As #1
sAux = Input(FileLen(sArq), #1)
Close #1
vAux = Split(sAux, Chr(13) & Chr(10))
para pegar o valor da linha número 5:
ValorLinha = vAux(5 - 1) 'O valor da linha que você quer, menos 1, porque o vetor começa em 0
Tópico encerrado , respostas não são mais permitidas