NUMERO DE LINHAS DE UM ARQUIVO TEXTO

FAUZE 19/09/2011 17:44:55
#384685
Olá pessoal,

Estou fazendo a leitura de um arquivo texto, é possível saber quantas linhas tem esse arquivo ao abrí-lo?

Abaixo o código:

Open App.Path & [Ô]\municipios.txt[Ô] For Input As #1

While Not EOF(1)
Line Input #1, vInfo
Sql = [Ô]SELECT codigo, uf FROM ufs WHERE codigo = [ô][Ô] & Left(vInfo, 2) & [Ô][ô][Ô]
rstUfs.Open Sql, cnn, adOpenKeyset, adLockOptimistic

cnn.Execute ([Ô]insert into Munic(cod_munic, municipio, uf)[Ô] & _
[Ô]values([ô][Ô] & Left(vInfo, 7) & [Ô][ô],[ô][Ô] & Replace(UCase(Mid(vInfo, 8)), [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô],[ô][Ô] & rstUfs!uf & [Ô][ô])[Ô])

rstUfs.Close

Wend
Close #1
Exit Sub
KERPLUNK 19/09/2011 17:48:01
#384688
Não sem correr ele até o fim. Mas se for um arquivo estruturado(CSV ou com espaços definidos), vc pode usar uma conexão pra ele com ADO e usar a propriedade RecordCount
FAUZE 19/09/2011 17:50:36
#384690
Citação:

Mas se for um arquivo estruturado(CSV ou com espaços definidos), vc pode usar uma conexão pra ele com ADO e usar a propriedade RecordCount



Kerplunk, vc tem um exemplo?

Esse é meu arquivo:
1600212Cutias
1600238Ferreira Gomes
1600253Itaubal
1600279Laranjal do Jari
1600303Macapá
1600402Mazagão
1600501Oiapoque
1600154Pedra Branca do Amapari
1600535Porto Grande
1600550Pracuúba
KERPLUNK 19/09/2011 18:05:29
#384694
Não, nesse formato não tem como não... bom, até tem, mas dá um trabalhão...
MARCELO.TREZE 19/09/2011 18:53:20
#384699
assim

[txt-color=#0000f0]Dim TotalLinhas As Integer[/txt-color]
[txt-color=#0000f0]TotalLinhas = 0[/txt-color]
Open App.Path & [Ô]\municipios.txt[Ô] For Input As #1

While Not EOF(1)
Line Input #1, vInfo
[txt-color=#0000f0]TotalLinhas = TotalLinhas + 1[/txt-color]
Sql = [Ô]SELECT codigo, uf FROM ufs WHERE codigo = [ô][Ô] & Left(vInfo, 2) & [Ô][ô][Ô]
rstUfs.Open Sql, cnn, adOpenKeyset, adLockOptimistic

cnn.Execute ([Ô]insert into Munic(cod_munic, municipio, uf)[Ô] & _
[Ô]values([ô][Ô] & Left(vInfo, 7) & [Ô][ô],[ô][Ô] & Replace(UCase(Mid(vInfo, 8)), [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô],[ô][Ô] & rstUfs!uf & [Ô][ô])[Ô])

rstUfs.Close

Wend
Close #1

[txt-color=#0000f0]msgbox TotalLinhas[/txt-color]
Exit Sub
Tópico encerrado , respostas não são mais permitidas
Voltar