Perdona JmGarcia, leyendo la documetnacion me he dado cuenta que parece ser que me he bajado funcky para delphy. Seguiré buscanso a ver si lo encuntro para clipper/xharbour.
Gracias de todas formas.
antolin wrote:...Lo que me falta ahora son los ficheros de cabecera (.ch),...
Ok JmGarcia, ya entiendo. Más fácil de lo que parecía.
Muchas gracias
Daniel Garcia-Gil wrote:Saludos
Puedes mirar la clase TFile de fivewin
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local nWords := 0
local oBar
define window oWnd
define buttonbar oBar of oWnd
define button of oBar action MsgRun( "Please Wait...", "Wait while fill file", {|| FillFileTxt( oWnd ) } )
define button of oBar action FindText()
activate window oWnd
return nil
//----------------------------------------------------------------------------//
Function FillFileTxt( oWnd )
local cStr
local oFile := TTxtFile():Create( "testing.txt" )
for n = 1 to 500000
cStr = StrZero( n, 7 ) + " " + Time() + " Testing TTxtFile Class " + StrZero( n, 7 )
oFile:Add( cStr )
next
oFile:Close()
return nil
//----------------------------------------------------------------------------//
Function FindText()
local oFile := TTxtFile():New( "testing.txt" )
local nRec := 0
local cRec
if MsgGet( "Number to seek", "Number:", @nRec )
cRec = StrZero( nRec, 7 )
oFile:Seek( cRec )
? oFile:ReadLine()
endif
return nil
//----------------------------------------------------------------------------//Daniel, la verdad es que no he tenido mucho tiempo para trabajar. He probado el EXE y va muy bien, la verdad.
He aprovechado para echarle un vistaso a esa clase y a la clase ttxfile, pues en mi FW la clase tFile no tiene método ::ReadLine() y me parece muy, muy intersante. De hecho creo que voy a pasar de Funcky y quedarme con lo que tenemos.
Gracias
Antolin
la clase TTxtFile es una extencion mejorada de TFile
do you make an email exstractor from ......web pages ?
this is no legal...!
Silvio wrote:do you make an email exstractor from ......web pages ?
this is no legal...!
