Re: test if a string is a valid 'number'?

From:

"AliR $VC++ MVP$" <AliR@online.nospam>

Newsgroups:

microsoft.public.vc.mfc

Date:

Wed, 30 May 2007 21:19:06 GMT

Message-ID:

<eTl7i.24570$JZ3.23961@newssvr13.news.prodigy.net>

Shaving with a swiss army knife will also work. Would you use it is another
question? (
I was going to say sword, but you can't really compare VB to a sword.)

I tried your code and had to make a modification to get it to work:

return ( LOWORD(lNumeric) != 0 );

Second, it doesn't return the correct results when it comes to the actual
conversion. It says that 12,234,345.00 is numeric, which is correct, but
strtol or atol will chock on the camma,

What if vbe6.dll is not installed.

What if it is in a different directory.

In short, this is an MFC newsgroup, please don't post code that talks to a
vb dll.

AliR.

"Ashot Geodakov" <a_geodakov@nospam.hotmail.com> wrote in message
news:e8ZcnsvoHHA.588@TK2MSFTNGP06.phx.gbl...

"Doug Harrison [MVP]" <dsh@mvps.org> wrote in message
news:88or53ddfip8v2bcdud4jqh8m4lge0q1lg@4ax.com...

On Wed, 30 May 2007 13:28:16 -0700, "Ashot Geodakov"
<a_geodakov@nospam.hotmail.com> wrote:

#include <windows.h>

typedef long ( *ISNUMERIC )( VARIANT* );

BOOL IsNumeric( LPTSTR szString )
{
   HINSTANCE hinstLib;
   ISNUMERIC ProcAdd;

   hinstLib = LoadLibrary( TEXT( "C:\\Program Files\\Common
Files\\Microsoft Shared\\VBA\\VBA6\\vbe6.dll" ) );

   if( hinstLib != NULL )
   {
       long lNumeric = 0;
       ProcAdd = (ISNUMERIC)GetProcAddress( hinstLib, "rtcIsNumeric" );

       if( NULL != ProcAdd )
       {
           VARIANT vtExpression;
           vtExpression.vt = VT_BSTR;
           vtExpression.bstrVal = SysAllocString( szString );
           __asm
           {
               lea eax, [vtExpression]
               push eax
               call (ProcAdd)
               mov lNumeric, eax
           }
           SysFreeString( vtExpression.bstrVal );
       }

       FreeLibrary( hinstLib );
       return ( lNumeric != 0 );
   }
   else return FALSE;
}

void main( void )
{
   BOOL bNumeric = IsNumeric( TEXT( "1245789.00" ) );
   bNumeric = IsNumeric( TEXT( "sdf1245789.00" ) );
   bNumeric = IsNumeric( TEXT( "+234.43E-24" ) );
   bNumeric = IsNumeric( TEXT( "12,234,345.00" ) );
   bNumeric = IsNumeric( TEXT( "sdf1245789.00" ) );
}

Shirley you're just kiddin' around.

Why? It works...