FiveTech Software tech support forums

... cTest:=cTest+"-"+chr(13)+chr(10) cTest:=cTest+"Creating 10M file with 1000KB segments **"+chr(13)+chr (10) nStart:=seconds() handle:=fcreate(cFile) for i:=1 to 10000 fwrite(handle,space(1000)) next fclose(handle) nEnd:=seconds()-nStart cTest:=cTest+"Done. ...

Jairo,

Podrias usar un control TRichEdit para mostrar el texto y cambiarle el color a las palabras buscadas:

oRichEdit:Colorize( nStart, nEnd, nColor )

... FUNCTION dbAppFrom( lExport, cFile, cDelimArg, aFields, bFor, bWhile, nNext, nRecord, lRest ) LOCAL index, handle, lWriteSep, cFileName := cFile, nStart, nCount, oErr LOCAL cSeparator := "," LOCAL cDelim := CHR( 34 ) //------------------ local Pos:=0 local nPosFl:=0 local nDimBuff:=65535 local ...

... de crear una xls por bloques, usando la class TExcelScript():New('Victor') y TClipBoard():New() aunque tambien se puede con ELE directo. nRow := 2 nStart := nRow cMemo := "" dbselectArea( cArtics ) dbgotop() do while !eof() cMemo += field->codigo cMemo += chr(9)+field->alterno cMemo += chr(9)+field->unidad ...

... ClickRow :=0 STATIC startDay :="" STATIC oBrush STATIC lMove :=.f. STATIC hBru STATIC hPen STATIC hPen1 STATIC hPen3 STATIC aTemp := {} STATIC nStartZeile := 0 /* ********** added by rochinha, modify by Quique ********** */ STATIC nYear /* ********** added by rochinha, modify by Quique ********** ...

... &end ); hb_stornl( start, 2 ); hb_stornl( end, 3 ); hb_retl( retval ); } in gets.c and METHOD GetSel( nStart, nEnd ) CLASS TGet LOCAL iFirst LOCAL iLast LOCAL lRetVal iFirst := 0 iLast := 0 lRetVal := GetGetSel( ::hWnd, @iFirst, ...

... DS_MODALFRAME 128 // 0x80 //----------------------------------------------------------------------------// function WaitSeconds( nSecs ) local nStart := GetTickCount() DEFAULT nSecs := 1 while GetTickCount() - nStart < ( 1000 * nSecs ) end return nil //----------------------------------------------------------------------------// ...

Mi idea es que una función me entregue todos los nStart en un array para poder de este modo "colorizar".
Ahora tengo una orientación y trataré de crear esa función.
Antonio, muchas Gracias por la Ayuda.
Rolando

... Revisé el método Colorize() y, en principio me sirve para lo que necesito. Ahora necesitaría un método o función para obtener todas las posiciones nStart en la que se encuentra la palabra para pasarle como parámetro al método y me "colorice" todas las palabras. ¿Existe o debo crearlo?. Si debo ...

AEVAL(<aArray>, <bBlock>,
[<nStart>], [<nCount>]) --> aArray

nCount te permite indicar cuantos elementos procesar a partir de nStart

... => TCLIPBOARD:OPEN(0) Called from: EXCEL1.PRG => MAIN(54) // dbf2xls conversion #include "fivewin.ch" function Main() local nCounter, nStart, oClipBoard local oExcel, oWorkBook, oSheet // create excel objects oExcel = CREATEOBJECT( "Excel.Application" ) oExcel:WorkBooks:Add() oWorkBook ...

Gracias por tu respuesta.

Ya solucione el problema. era que estaba usando la posicion del record como nStart

... George George, No se exactamente desde que version, pero en xHarbour se usa de la siguiente manera: At( <cSearch>, <cString>, [<nStart>], [<nEnd>] )

... oMM2Dlg,oBack,oNext LOCAL oRadio,oCancel,lGoOn:=.F. LOCAL oChkStart,oChkFinish,oCBXStart,oCBXFinish LOCAL aItem1:={},aItem2 LOCAL cStart,cFinish,nStart,nFinish nLength := Len(aMatMed[HEADING]) FOR i := 1 TO nLength AAdd(aItem1,aMatMed[HEADING,i,1]) NEXT aItem2 := aItem1 aMatMed[START] := .F. ...