oFile:=cFile:=""
cFile := cGetFile( "*.txt", cFile )
if empty(cFile)
return(nil)
endif
if ! msgyesno("Confirma processamento do arquivo "+cFile,"ATENÇÃO")
return(nil)
endif
******** CANCELADOS
QUANTOS:=0
QUANTOS2:=0
VALOR:=0
cFile1:=cFile+"X"
oText := TTxtFile():New( cFile )
oText1=TTxtFile():New(cFile1)
oText1:Open()
cTotLinha:= oText:RecCount()+1
oMeter:SetRange(0,cTotLinha/100 )
oMeter:SetPos( 0 )
for n = 1 to cTotLinha
cLinha:= oText:ReadLine()
if substr(cLinha,1,17) ="|D100|1|0||57|02|"
zLinha:= StrToken( cLinha,9, "|" ) // irá pegar o nono campo da linha lida
oText1:Add(zLinha)
QUANTOS+=1
endif
oText:Skip()
QUANTOS2+=1
oMeter:SetPos( QUANTOS2/100 )
next
* oText:Close()
oTExt1:close()