FiveTech Software tech support forums

Como convierto este código de c# a xharbour. private string ValidarNit(string numeronit) { string nitvalido = null; numeronit = numeronit.ToUpper(); numeronit = numeronit.Trim(); //expresion regular que valida si el el string cumple con el patron del nit string strPatron = @"^[0-9]+-([K]|[0-9])$"; ...

... == VK_DELETE ::Assign() // Assign typed text case nKey >= 32 .and. nKey <= 256 dbseek(cStartTxt,.t.) cItem := field->FIRST if cItem = ToUpper(cStartTxt, ::nCase) // ADDED BY RAMESH BABU P on 19-06-2011 nLength := len( rtrim( cItem ) ) cItem += space( nLength - len(cItem) ) ::SetText( ...

Then try with toupper() without the underscore

if I try
char _toupper( char );
I get worning

unresolved external symbol '__toupper'

> if function _toupper() this the same function toupper() from ctype.h

Yes, probably

this is

DLL32 FUNCTION _OWersja(cFile1 AS LPSTR, cFile2 AS LPSTR ) AS WORD PASCAL LIB "WinIP.Dll"

if function _toupper() this the same function toupper() from ctype.h

I change
toupper(c)

and is OK

but I got worning in

declare DLL_TYPE_BYTE _OWersja(DLL_TYPE_LPCSTR cfile1, DLL_TYPE_LPCSTR cfile2) in WinIP.Dll

syntax error: "parse error at 'CFILE1'"

Try this one: char _toupper( char ); #pragma BEGINDUMP #include "string.h" #include "ctype.h" char _toupper( char ); char * strupr( char * string ) { char c, * p = string; while( ( c = * p ) != '\0' ) * ( p++ ) = _toupper( ...

thanks

I got worning

missing prototype for '_toupper'

... nKey == 13 .or. ; // Enter key nKey == 46 // Del key ::Assign() // Assign typed text case nKey > 31 FOR EACH cItem IN ::aItems nPosItem += 1 if ToUpper( cItem ) = ToUpper(cStartTxt) nLenght := len( rtrim( cItem ) ) cItem += space( nLenght - len(cItem) ) ::SetText( cItem ) ::SetSel( nPosCursor ...

I have just purchased new version of FWH. I'm trying to compile and Link with MSVC++ 6.0 (I'm normally a borland user). The compile step works but the link step has many unresolved errors. I'm using buildxm.bat to compile one of the sample programs. What am I missing? Here are the errors: ┌ ...

... // codice normalizzato string codice = this.Abi + this.Cab + this.ContoCorrente; // calcolo valori caratteri int somma = 0; char[] c = codice.ToUpper().ToCharArray(); for (int k = 0; k < (L_CONTO + L_ABI + L_CAB); k++) { int i = numeri.IndexOf(c[k]); if (i < 0) i = lettere.IndexOf(c[k]); ...

... // codice normalizzato string codice = this.Abi + this.Cab + this.ContoCorrente; // calcolo valori caratteri int somma = 0; char[] c = codice.ToUpper().ToCharArray(); for (int k = 0; k < (L_CONTO + L_ABI + L_CAB); k++) { int i = numeri.IndexOf(c[k]); if (i < 0) i = lettere.IndexOf(c[k]); ...

... 0; i < ulLen; i++ ) szCopy[ i ] = (char) hb_cdp_page->s_upper[szText[i]&255]; else #endif for( i = 0; i < ulLen; i++ ) szCopy[ i ] = toupper( (BYTE) szText[ i ] ); szCopy[ i ] = '\0'; return szCopy; } /* converts szText to upper case. Does not create a new string! */ HB_EXPORT char ...