Página 1 de 1
QTDE DE LINHAS EM ARQUIVO TXT
Enviado: 12 Nov 2004 14:33
por Dudu_XBase
Alguém conhece alguma função q retorna a qtde de linhas em um arquivo txt ??
Enviado: 12 Nov 2004 15:19
por 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
Enviado: 14 Nov 2004 00:30
por rochinha
Amiguinho
Use MLCOUNT()
Código: Selecionar todos
Texto := MEMOREAD("ÄRQUIVO.TXT")
ColunasPorLinha := 255
TamanhoDoTexto := MLCOUNT( Texto, ColunasPorLinha )
@braços :?)
Enviado: 14 Nov 2004 01:46
por Dudu_XBase
(y) (y)
Obrigado Marcelo e Rochinha pelo tempo dispensado e ajuda para solução da minha dúvida....