FiveTech Software tech support forums

... JS : var cUsrName = 'juan perez'; To change it FW: cNwName := Upper( cUsrName ) JS: cNwName = cUsrName.toUpperCase(); To know how many chars FW: nChars := len( cUsrName ) JS: nChars = cUsrName.length; And off course you can concatenate several methods in one single line : aNames = cUsrName.toUpperCase().split(' ...

... UPPER, UPPERCASE> ] ; [ <lUpdate: UPDATE> ] ; [ WHEN <uWhen> ] ; [ VALID <uValid> ] ; [ <limittext: LIMITTEXT> [ BY <nchars> CHARS ] ] ; [ <cuebanner: CUEBANNER, PLACEHOLDER> <cCueText> ] ; => ;

... TXBrowse method ToExcel() now exports images also. * Enhancement: TEdit control: Addtional clauses (1) [ <limittext: LIMITTEXT> [ BY <nchars> CHARS ] ] By default, Edit control does not limit the characters entered like' TGet. When LIMITTEXT clause is used, the input is limited ...

Marco,
oMGet:LimitText( nChars ) limits the length of text to nChars and oMGet:LimitText()
without parameters allows edit without any limit.
(from Whatsnew Dec.2009)

... nBytesend, nBytes:= Len( cString ) nByteSend := WriteComm( hComm, @cString, nBytes ) Return ( nByteSend == nBytes ) Function ComRead( nHdlCom, nChars ) LOCAL nBytes, cBuffIn := Space(BUFF_IN) nBytes := ReadComm( nHdlCom, @cBuffIn, nChars ) RETURN if( nBytes >0, Left( cBuffIn, nBytes ),"" ...

Hola

la clase MGet proporsiona un metodo para limitar el texto

METHOD LimitText( nChars )

y la forma de usarlo es

oMGet:LimitText( 5 )

espero te sirva de algo

Saluditos

Saludos...

la clase MGet proporsiona un metodo para limitar el texto

METHOD LimitText( nChars )

la forma de usarlo

oMGet:LimitText( 5 )

... de caracteres a la cuarta vez que lo intenteto:   IF ::MaxLong > 0 .AND. nKey > 31 .AND. LEN( ::cText ) >= ::MaxLong       ++::nChars      MsgBeep()      IF ::nChars = 4     IF ::bPassMax # NIL        EVAL(::bPassMax,::MaxLong)     ELSE        MSGSTOP( "ESTE ...

... Class TMGet method LimitText: Now number of characters to limit the length of text can be specified as paramter to LimitText. oMGet:LimitText( nChars ) limits the length of text to nChars and oMGet:LimitText() without parameters allows edit without any limit. * Enhancement: CLASS TScrollBar ...

... going on ? Thank you. #define CFILENAME "TEST.CSV" #define CR CHR(13) #define LF CHR(10) #define LINEFEED CHR(13) + CHR(10) #define NCHARS 1 #define NMAXLINELENGTH (4096 * 3) #define NSPLIT_LINES 25000 #include "Common.ch" #include "FiveWin.ch" FUNCTION Main (cFile) ...

... + ", lIRmode:"+if(lIRmode,".t.",".f.")) IF ComSend( hComm, "hi there" ) msginfo("ComSend(hithere) regreso .T.") cRead:=ComRead( nHdlCom, nChars ) msginfo("ComRead() regreso: "+cRead+ ",("+alltrim(str(len(cRead)))+" chs)") else msginfo("ComSend(hithere) regreso .FALSO.") ENDIF ComClose( ...

... tiene sus limitaciones. He modificado la clase TMultiGet de la siguiente forma: 1º He añadidio tres datas: DATA MaxLong AS NUMERIC INIT 0 DATA nChars AS NUMERIC INIT 0 DATA bPassMax 2º He modificado el METHOD KeyChar: Añadiendo, despues de las líneas: if nKey == VK_TAB ... endif, lo siguiente: ...

Que tal a Todos: En clipper tengo funcionando lo siguiente: ..... DO WHILE .T. nTrab := nChars := nInicio := 0 cStatus:="" /* Limpiar el buffer para una nueva lectura*/ COM_FLUSH(nPuerto) DO WHILE (nChars := COM_COUNT(nPuerto)) <= 6 // Asegura @ 18,17 SAY "Leyendo ...

Que tal a Todos: En clipper tengo funcionando lo siguiente: ..... DO WHILE .T. nTrab := nChars := nInicio := 0 cStatus:="" /* Limpiar el buffer para una nueva lectura*/ COM_FLUSH(nPuerto) DO WHILE (nChars := COM_COUNT(nPuerto)) <= 6 // Asegura @ 18,17 SAY "Leyendo ...

... FALSE ; // Self }; }; }; if( lBig5_2nd == FALSE ) szText[ i ] = tolower( szText[ i ] ); }; } else { #ifndef HB_CDP_SUPPORT_OFF if( hb_cdp_page->nChars ) for( i = 0; i < ulLen; i++ ) szText[ i ] = (char) hb_cdp_page->s_lower[szText[i]&255]; else #endif for( i = 0; i < ulLen; i++ ...