QTDE DE LINHAS EM ARQUIVO TXT

[Dudu_XBase]

Alguém conhece alguma função q retorna a qtde de linhas em um arquivo txt ??

[Clipper]

Lá vai um códigozinho meia-boca mas funciona...

Código: Selecionar todos

aStructure := {} 
aAdd( aStructure, { "TEXTO","C",256,0 } )
dbCreate( "TEXTO.DBF",aStructure)
USE TEXTO
APPEND FROM TEXTO.TXT SDF
TOTAL=LASTREC()
CLS
@ 01,00 SAY "Total de linhas do arquivo : "+STR(TOTAL,5)
INKEY(0)
USE
FERASE("TEXTO.DBF")
RETURN

Até logo.

Marcelo

[rochinha]

Amiguinho

Use MLCOUNT()

Código: Selecionar todos

Texto                  := MEMOREAD("ÄRQUIVO.TXT")
ColunasPorLinha  := 255
TamanhoDoTexto := MLCOUNT( Texto, ColunasPorLinha )

@braços :?)

[Dudu_XBase]

(y) (y)
Obrigado Marcelo e Rochinha pelo tempo dispensado e ajuda para solução da minha dúvida....