Buscar texto en un fichero

[antolin]

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.

[JmGarcia]

...Lo que me falta ahora son los ficheros de cabecera (.ch),...

No hacen falta los ficheros de cabecera si usas COM.

function main()
oFuncky:=CreateObject("FUNCky") // Aqui esta el truco
msginfo(oFuncky:ChrCount("t","Esto es un test")) // Visualiza un 3 (el número "t")
msginfo(oFuncky:ChrCount("A", "1234567")) // Visualiza 0 (no hay ninguna "A")
return nil

[antolin]

Ok JmGarcia, ya entiendo. Más fácil de lo que parecía.
Muchas gracias

[Daniel Garcia-Gil]

Saludos


Puedes mirar la clase TFile de fivewin

Antolin

disculpa la pregunta, pero encontraste algun problema con la sugerencia que te expuse....???

aqui hay un ejemplo simple del funcionamiento de la clase...

el 1ero botton crea un archivo de texto bastante grande y el 2do hace una busqueda

descarga el exe desde aqui

Code: Select all  Expand view

#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
//----------------------------------------------------------------------------//


 

[antolin]

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

[Daniel Garcia-Gil]

Antolin

la clase TTxtFile es una extencion mejorada de TFile

[Silvio]

do you make an email exstractor from ......web pages ?
this is no legal...!

[Daniel Garcia-Gil]

do you make an email exstractor from ......web pages ?
this is no legal...!

???