home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l196 / 3.ddi / STRTONUM.BA$ < prev    next >
Encoding:
Text File  |  1990-06-24  |  1004 b   |  35 lines
  1. DECLARE FUNCTION Filter$ (Txt$, FilterString$)
  2.  
  3. ' Input a line:
  4. LINE INPUT "Enter a number with commas: "; A$
  5.  
  6. ' Look only for valid numeric characters (0123456789.-)
  7. ' in the input string:
  8. CleanNum$ = Filter$(A$, "0123456789.-")
  9.  
  10. ' Convert the string to a number:
  11. PRINT "The number's value = "; VAL(CleanNum$)
  12. END
  13.  
  14. ' ========================== FILTER =======================
  15. '         Takes unwanted characters out of a string by
  16. '         comparing them with a filter string containing
  17. '         only acceptable numeric characters
  18. ' =========================================================
  19. FUNCTION Filter$ (Txt$, FilterString$) STATIC
  20.    Temp$ = ""
  21.    TxtLength = LEN(Txt$)
  22.  
  23.    FOR I = 1 TO TxtLength     ' Isolate each character in
  24.       C$ = MID$(Txt$, I, 1)   ' the string.
  25.  
  26.       ' If the character is in the filter string, save it:
  27.       IF INSTR(FilterString$, C$) <> 0 THEN
  28.          Temp$ = Temp$ + C$
  29.       END IF
  30.    NEXT I
  31.  
  32.    Filter$ = Temp$
  33. END FUNCTION
  34.  
  35.