Database Search

TechHome

• Add Commas to Numbers to Make Readable
• Change a Single Floating Point to WB Floating
• Check Characters Allowed for Building Identifier Name
• Computing Large Integers
• Converting Binary Dates
• Decimals and Floating Point Numbers
• Determine Percentage
• Dividing Integers example
• Find Prime Factor of Integer Value
• Floating Point and Currency Calculations
• Floating Point Number Discussion
• Floating Point Scientific Notation
• Format Numbers with Commas - Using MSScriptControl
• Format Numbers with Commas for a Nice Display
• How to Convert a Hex String to Char
• Integer to floating point conversion
• Make a Hex Dump
• Prime Number Generator 2
• Prime Number Generator
• Retrieve Ascii Chars from Hex Dump
• Round a Number up to Nearest 1000
• Single to Double and the Reverse
• Two complement of a Decimal
• Working with Numbers Greater than 2GB

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Check which Characters are allowed for building an Identifier name

Keywords: 	 identifier ID script

;Testprogram follows:
; Check which Characters are allowed for building an Identifier name
; Test Range Num2Char(2..255)

MagicNumbers = "135,136,158,159,185"
For cluster=0 to 15
   BoxOpen("Processing", "Be patient")
   list = ""
   For num=0 to 15
      CharNum = (cluster * 16) + num
      If CharNum==0 then continue
      If CharNum==1 then continue
      char = num2char(CharNum)
      BoxText(StrCat(CharNum,@tab,char))

      Skip = @FALSE
      If ItemLocate(CharNum,MagicNumbers,",") > 0
         Skip = (@YES==AskYesNo("Caution", "Skip over next character ?"))
      EndIf

      If Skip
         LastErrMsg = "===> magic character <==="
         ;char = ""
      else
         Error = 0
         IntControl(73,2,0,0,0)
         SimpleCmd = StrCat(char,"=1")
         %SimpleCmd%
         LastErrMsg = IntControl(34,Error,0,0,0)
         If LastErrMsg == "" then LastErrMsg = "=== good character ==="
      EndIf
      item = StrCat(Charnum,@tab,char,@tab,LastErrMsg)
      list = iteminsert(item,-1,list,num2char(1))
      If Error==0 then drop(%char%)
   Next num
   BoxShut()
   IntControl(63, 200, 200, 800, 700)
   AskItemList("Number  Character  ErrorMessage", list, num2char(1), @unsorted, @single)
Next cluster
Exit

:WBERRORHANDLER
Error=LastError()
Return

Article ID:   W14900

File Created: 2001:11:08:12:40:54

Last Updated: 2001:11:08:12:40:54