FiveTech Software tech support forums

Dear Yuri,

METHOD Find( cFind, lDown, lCase, lWord ) CLASS TRichEdit5

... chr( 13 ) + chr( 10 ) else wrecset:AbsolutePosition = tregistro[ i ] //wrecset:find("factura"=jk ) //oRs:Find( "file_num = '"+cFIND+"'" ) if tfactura[ i, 2 ] $ "CCNC" xsaldo := wrecset:Fields( "saldo" ):value SQLMVen = SQLMVen + "UPDATE " ...

It is not my cup of thea, but maybe also with this function something can be done ? cFind = "Xbrowse" cText = ((XLM code color)) + "Xbrowse" + ((XLM code endcolor)) and the function below will do it ? METHOD ReplaceAll( lUndo, cFind, lDown, ...

HI Ali

use at() function.

nPos := at(alltrim(cFind),cAddSub)

Colin

... A24_0154_USW2_4CR_1231.PDF A24_0154_USW2_4CR_1231.PDF A29_0154_USW2_4CR_1231.PDF A24_0154_USW2_4CR_1231.PDF ... The folder name is for example: cFind := "c:\pdffiles\W2forms\" The client code I want to extract: cUserID := "A29" When I want to extract only the PDF files which ...

... %bcdir%\bin\brc32 -r -d__FLAT__ %1 in Makefile Sample : Testget6.prg #include "FiveWin.ch" function Main() local oDlg, oFind, oBtn local cFind1 := space( 100 ), cFind2 := space( 100 ) local nDir := 1 local lCase := .t., lWord := .f. oNormal := TFont():New( "Arial", 0, 20,.F.,.F., ...

For me it is working.

This is my code:

@ 2,20 GET oSay VAR cFind OF oGruppe PIXEL SIZE 100,16

oGruppe is the ribbon group

Best regards,
Otto

... MB_ICONQUESTION, MB_YESNOCANCEL ) ) //----------------------------------------------------------------------------// static function Find() local cFind := Space( 100 ) local nDir := 1 local lCase := .f. local lWord := .t. local oDlg, oFind DEFINE DIALOG oDlg RESOURCE "Find" REDEFINE ...

Lisa:

Try this way

Reg:=oRs:Find("Campo1= " + "'" + cFind + "'")

Regards

Ciao a tutti, ho provato questo codice per una ricerca in un file MDB: cFind:="K" oRs:MoveFirst() Reg:=oRs:Find("Campo1='"+cFind+"'") msginfo(Reg) oRs:Absoluteposition:=Reg il valore restituito in Reg è uguale a nil dove sbaglio? ...

... " cSQL += "AND ADDR.STOP_DATE IS NULL " cSQL += "AND STANDARDTASKS.GETNAME( FAC.TANK_OWNER_EID,'NO_NUM' )LIKE '"+cFIND+"%'order by owner" I get the first column as a bunch of ************************************ however, all the rest of the columns are ...

... ) SysReFresh() Return(nil) //---------------- Static Func _OpenUm(oDlg, cSQL, oWNDMDI, lFROMLINK, xPROJECTEID ) LOCAL oErr, SAYING, cSTRING, cFIND IF cSQL = " " cSQL := "SELECT * FROM PROJECT order by projname" ENDIF SysReFresh() oRsProj := TOleAuto():New( "ADODB.Recordset" ) oRsProj:CursorType ...

I use the sort option when I have multiple search possibliities .. consider this code : oRs:Sort := "fname" oRs:MoveFirst() oRs:Find("fname = '"+cFIND+"'" ) oLBX:ReFresh() SysReFresh() .. or oRs:Sort := "lname" oRs:MoveFirst() oRs:Find("lname = '"+cFIND+"'" ) oLBX:ReFresh() SysReFresh() .. Rick ...

... ad 4) to get this functionality I use the following code. Regards, Otto @ 3, 1 LISTBOX oLbx FIELDs STR(umsatz->renr) ... @ 0.3,38 GET oSay VAR cFind OF oBar SIZE 160,26 UPDATE READONLY oLbx:bkeyChar :={|nKey|iif(nKey == K_ENTER, ; prn_RgKOPIE(nhorzM,nVertM), ; cFind := KeySeek(nKey,oLbx_PR,oSay,@cFind) ...

Rick Lipkin wrote:oRs:MoveFirst()
oRs:Find("reg_no = '"+cFIND+"'" )

Great! Then it seems that SEEK can be implemented via Find() method without the need of SET INDEX. One could eventually add indexes to database to speed up the search.

Antonio?

EMG