home *** CD-ROM | disk | FTP | other *** search
-
- '---- ToUpper.Fn
- ' The Upper$ function converts alphabetic characters in a string
- ' value to uppercase letters.
-
- DEF FN ToUpper$(TextVal$)
-
- STATIC I%, Number$, Character$
-
- ' Find the length of the string value recieved.
- Number% = LEN(TextVal$)
-
- ' Examine each character in the string, and convert as necessary.
- FOR I% = 1 to Number%
- Character$ = MID$(TextVal$, I%, 1)
- IF (Character$ >= "a" AND Character$ <= "z") THEN
- MID$(TextVal$, I%) = CHR$(ASC(Character$) - 32)
- END IF
- NEXT I%
- FN ToUpper$ = TextVal$
-
- END DEF
-
-