MY_STRING = "1234567" IF MY_STRING IS NBR THEN PRINT "ITS A NUMBER!"
Tweet
FUNCTION isNumeric(Answer AS STRING) AS LONG
Answer = TRIM$(Answer) 'may be required if right-justified text
IF (LEN(Answer) = 0) OR _
(VERIFY (Answer , ".-0123456789")) OR _
(RIGHT$(Answer,1) = ".") OR _
(INSTR(-1,Answer,"-") > 1) OR _
(TALLY(Answer,".") > 1) THEN
EXIT FUNCTION 'exit, return 0 not-numeric
END IF
FUNCTION = -1 'numeric
END FUNCTION
Function NonNegativeWholeNumber(ByVal a As String) As Long ' Boolean Local i As Long 'exclude strings such as 0000004 Local b As String ' b = LTrim$(a,"0") ' If a <> "0" And a <> b Then ' Function = 0 ' Exit Function ' End If ' For i = 1 To Len(a) If Asc(a, i) < 48 Or Asc(a, i) > 57 Then Exit For Next Function = (i > Len(a)) End Function
IF VARNAME [is] {NUMERIC|ALPHABETIC|ALPHANUMERIC} [THEN]
it is what you tested
IF VERIFY (test$,"0123456789.+-") THEN
print"Test string is not all numeric": beep
else
print"Test string is all numeric"
end if
FUNCTION PBMAIN () AS LONG
LOCAL test AS STRING
test$ = "...+++---"
IF VERIFY (test$,"0123456789.+-") THEN
? "Test string is not all numeric": BEEP
ELSE
? "Test string is all numeric"
END IF
END FUNCTION
22.33.55.66
.-.-1
FUNCTION isNumeric(Answer AS STRING) AS LONG
Answer = TRIM$(Answer) 'may be required if right-justified text
IF (LEN(Answer) = 0) OR _
(VERIFY (Answer , ".-0123456789")) OR _
(RIGHT$(Answer,1) = ".") OR _
(INSTR(-1,Answer,"-") > 1) OR _
(TALLY(Answer,".") > 1) THEN
EXIT FUNCTION 'exit, return 0 not-numeric
END IF
FUNCTION = 1
END FUNCTION
#DIM ALL
FUNCTION PBMAIN () AS LONG
LOCAL sTitle,MY_STRING AS STRING
MY_STRING = "1234567"
DO
MY_STRING = INPUTBOX$("Type anything",sTitle,MY_STRING)
IF LEN(MY_STRING) = 0 THEN EXIT DO
IF IsNumeric(MY_STRING) THEN
sTitle = "ITS A NUMBER!"
ELSE
sTitle = "NOT A NUMBER"
BEEP
END IF
LOOP
END FUNCTION
FUNCTION isNumeric(Answer AS STRING) AS LONG
Answer = TRIM$(Answer) 'may be required if right-justified text
IF (LEN(Answer) = 0) OR _
(VERIFY (Answer , ".-0123456789")) OR _
(RIGHT$(Answer,1) = ".") OR _
(INSTR(-1,Answer,"-") > 1) OR _
(TALLY(Answer,".") > 1) THEN
EXIT FUNCTION 'exit, return 0 not-numeric
END IF
FUNCTION = 1
END FUNCTION
sText = "1234567" IF sText = FORMAT$( VAL( sText), 18) THEN PRINT "ITS A NUMBER!"
FUNCTION PBMAIN () AS LONG
LOCAL sPrompt,sTitle,sDefault AS STRING
sDefault = "8.0"
DO
sDefault = INPUTBOX$(sPrompt,sTitle,sDefault)
IF LEN(sDefault) = 0 THEN EXIT FUNCTION
IF IsNum(sDefault) THEN sTitle = "ITS A NUMBER!" ELSE sTitle = "INVALID NUBBER"
LOOP
END FUNCTION
FUNCTION IsNum(sText AS STRING) AS LONG
IF sText = FORMAT$(VAL(sText),18) THEN FUNCTION = 1
END FUNCTION
IF VAL (sText) = VAL (FORMAT$(VAL(sText))) THEN
it's 'a number' whatever that means
SPECIAL-NAMES.
CLASS DIGITSDECIMALSANDSIGNS IS '0123456789+-.'.
CLASS LOWERCASE IS 'a' THRU 'z' .
....
PROCEDURE DIVISION.
...
IF character-var IS DIGITSDECIMALSANDSIGNS [THEN]
PERFORM whatever
ELSE
IF character-var IS LOWERCASE THEN
PERFORM something-else.
Comment