forum.vdsworld.com

[Serge]

I need to check that an edit box only contains numbers with either a "." or a "," to allow for the decimal point as used by different countries.

I am needing to check some 75 such edit boxes and was wondering if someone had a quick way of being able to do that.

I tried @numeric() but it only works with numbers and not with the decimal point.

I could do it the hard way checking that each edit box only contains numeric characters together with the decimal point but i was wondering if someone had a better way of doing it.

Thanks in advance,

Serge

[LiquidCode]

Well, I think an easy was would be to name your edit boxes with
numbers like Edit_1 - Edit_10. Then you can use repeat until
to check each edit box. You can use the @pos() to look for the
"." or "," in the number... Something like this

[Skit3000]

Here is a example that looks for the ASCII code, and if it is a number it will put it in a variable...

[arcray]

Internally I only work with numeric data. For presentation purposes sometimes I include commas for ease of legibility. I insert and remove with the following sub-routines:-

:CommasIn
gosub Stripcommas
IF @NOT(@EQUAL(%X,NA))
gosub Insertcommas
END
EXIT

:CommasOut
:Stripcommas
REPEAT
%X = @strdel(%X,@POS(",",%X))
UNTIL @ZERO(@POS(",",%X))

EXIT

:Insertcommas
IF @NOT(@NUMERIC(%X))
info Problem with a field that should contain a number.@CR()It currently contains:- %X@CR()@CR()Please inform Andy Gray on 020 798 798 14
END

%X = @FORMAT(%X,7.2)

%L = @len(%X)

IF @EQUAL(%L,7)
%X = @strins(%X,2,",")
END

IF @EQUAL(%L,8)
%X = @strins(%X,3,",")
END

IF @EQUAL(%L,9)
%X = @strins(%X,4,",")
END

IF @EQUAL(%L,10)
%X = @strins(%X,2,",")
%X = @strins(%X,6,",")
END

EXIT

[Skit3000]

Oops.... We've all posted at the same moment....

[Mac]

One more idea.... This subroutine can be modified for
any char check (alpha, numeric, etc.) by changing the
valid chars in the var "%v". The loops stops checking
if an invalid char is found. It also shows invalid if the
string "%s" is empty.

Call the following subroutine for each edit box (or string)
with these two lines:
%s = @dlgtext(EditBoxName)
GOSUB IsValid

[Serge]

Thanks for all your answers

I did try the @numeric() but it reports an error if the edit box contains a "." or a ",". It would have been nice if @numeric() was set to test for numbers with decimal points rather than integers only

I will have a close look at all your suggestions.

Thanks a bunch,

Serge

[arcray]

It does work! But it'll only work with numbers that your windows system thinks are numbers. And that depends on what has been put in to the Numbers dialog in Regional settings...