FiveTech Software tech support forums

... }; // SEGUN FORO DE FIVEWIN function LRC( cText ) local nCheckSum := 0 local n for n = 1 to Len( cText ) nCheckSum = nXor( nCheckSum, Asc( SubStr( cText, n, 1 ) ) ) next return (nCheckSum) // valores esperados vs obtenidos con metodo fivewin LRC() // valor esperado ... valor obtenido ...

If the column is already ordered oCol:SetOrder() toggles ASC and DESC.
You need not have set aCols[ 2 ]:SetOrder() because it was already in the descending order.

I needed to find out if the string consists only of numbers or not. I wrote such a function: if AtLine(adr, "{|xx|asc(xx)<48.or.asc(xx)>57}")=0 ............................................... endif function AtLine(itm, xBk)  local st, nOk:=0 ** itm - string  ** xBk ...

Utf8 encoding uses either 1 or 2 or 3 bytes for each character. All latin characters upto asc 127 are represented by the same single character both in Ansi and Utf8 encodings. Accented WU characters are encoded with 2 bytes. Complex scripts like Asian languages use 3 ...

1. Why write oGet1:bKeyDown :={ |k|If( k == ASC("V") .and. GetKeyState(VK_CONTROL ), Check CRL F(), ) } for each control if the method can be modified :KeyDown via Override ? With override, the change applies to all Gets and we need ...

Thank you, Rao, a good solution ! Please explain such points: 1. Why write oGet1:bKeyDown :={ |k|If( k == ASC("V") .and. GetKeyState(VK_CONTROL ), Check CRL F(), ) } for each control if the method can be modified :KeyDown via Override ? 2. Will this function work when ...

hi, here are German Sign from 32 to 255 STRTOHEX( cSign ) = "20" ASC( cSign ) = 32 STRTOHEX( cSign ) = "21" ASC( cSign ) = 33 STRTOHEX( cSign ) = "22" ASC( cSign ) = 34 STRTOHEX( cSign ) = "23" ASC( cSign ) = 35 STRTOHEX( ...

... with German "Umlaute" using DrXlsx --- when you ask me for STRTOHEX() i got xValue = "„" STRTOHEX(xValue) = "84" ASC(xValue) = 132 xValue = "”" STRTOHEX(xValue) = "94" ASC(xValue) = 148 xValue = "" STRTOHEX(xValue) = "81" ...

hi, this i got when have use DBU and fill it with German Umlaute xValue = "ä" STRTOHEX(xValue) = "84" ASC(xValue) = 132 xValue = "ö" STRTOHEX(xValue) = "94" ASC(xValue) = 148 xValue = "ü" STRTOHEX(xValue) = "81" ASC(xValue) ...

... := SUBSTR( cLine, ii, 1 )         // IF AT(cSign,cLine) > 0         IF cSign $ aSign            cRet += cSign         ELSEfwlog cSign, ASC( cSign ), cRet, RECNO()            cRet := ""            EXIT         ENDIF      NEXT   ENDIFRETURN cRet If you don't ...

... for those "old" Style OEM DBF with XLSwriter here my full German OEM (DE850) "translate" for UTF8 Editor cSign = "ä" ASC( cSign ) = 228 cSign = "ö" ASC( cSign ) = 246 cSign = "ü" ASC( cSign ) = 252 cSign = "Ä" ASC( cSign ) = 196 cSign ...

Carles/Jorge, haz las pruebas, Cambia la letra en formato Ansi/Oem(ASC) a normal. Cambia el nombre de la función a: CAMBIAR_LETRAS()

Cual éS el ASC de � ?? Comprendes?

Gracias.

Regards, saludos.

... y carácter a carácter intento enviarlo a la pantalla (antes ya me he posicionado en el 'get' del whasapp), mediante los códigos que proporciona ASC(). Le he metido trazas y parece que lo estoy haciendo bien, para una 'a' envía el código 97 y en pantalla muestra el número 1, para otros caracteres: ...

... [bBlock/naCols] ) for multi-column sort. 4th Parameter: -nil/codeblock: functionality is exactly same as ASort(...) -nColNo: Sortede on nColNo asc if +ve and desc if -ve. -aCols: Array of column numbers or codeblocks. Multi-column sort is performed on the column numbers in the array. Asc if ...

... solucion es la siguiente: Crea una CLASSDATA lAllowAsterics INIT .F. en la clase y en la linea 3867, sustituye elseIf nKey > 31 .and. nKey != Asc( '*' ) .and. nKey != Asc( '?' ) por elseIf nKey > 31 .and. ( nKey != Asc( '*' ) .or. ::lAllowAsterics ) .and. nKey != Asc( '?' ) Al comienzo ...