home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / BOZOL2 / BOZOL2.ZIP / VSET.BAS < prev   
Encoding:
BASIC Source File  |  1994-02-08  |  1.7 KB  |  55 lines
  1. SUB VSET (VAR$, Value$)
  2.     VAR$=LTRIM$(RTRIM$(UCASE$(VAR$),ANY CHR$(32,0)),ANY CHR$(32,0))
  3.         VALUE$=LTRIM$(RTRIM$(VALUE$))
  4.                 IF LEN(VAR$) THEN
  5.                           ARRAY SCAN VAR$(1),COLLATE UCASE, =VAR$, TO i%
  6.                         IF i% THEN
  7.                             VALUE$(i%)=VALUE$
  8.                         ELSE
  9.                             INCR NextVar%
  10.                                 VALUE$(NextVar%)=VALUE$
  11.                                 VAR$(NextVar%)=VAR$
  12.                         END IF
  13.                 END IF
  14.  
  15. END SUB
  16.  
  17.  
  18. SUB VCLEAR (VAR$)
  19.     VAR$=LTRIM$(RTRIM$(UCASE$(VAR$),ANY CHR$(32,0)),ANY CHR$(32,0))
  20.                 IF LEN(VAR$) THEN
  21.                           ARRAY SCAN VAR$(1),COLLATE UCASE, =VAR$, TO i%
  22.                         IF i% THEN
  23.                                 ARRAY DELETE VAR$(i%)
  24.                                 ARRAY DELETE VALUE$(i%)
  25.                             DECR NextVar%
  26.                         END IF
  27.                 END IF
  28. END SUB
  29.  
  30.  
  31. FUNCTION GetVar$ (VariableName$)
  32. GetVar$="??"
  33. VARIABLENAME$=LTRIM$(RTRIM$(UCASE$(VARIABLENAME$),ANY CHR$(32,0)),ANY CHR$(32,0))
  34.  
  35. IF LEN(VARIABLENAME$) THEN
  36.     ARRAY SCAN VAR$(1),COLLATE UCASE, =VARIABLENAME$, TO i%
  37.     IF i% THEN
  38.          GetVar$=VALUE$(i%)
  39.         ELSE
  40.         For i%=1 TO NumberOfFields?
  41.                         IF INSTR(DBS(i%).FieldName,VARIABLENAME$)=1 THEN
  42.                       IF DBS(i%).FieldType="N" THEN
  43.                         GetVar$=STR$(DBGetNField!((DBS(i%).FieldName),e%))
  44.                   ELSE
  45.                         GetVar$=rtrim$(DBGetCField$((DBS(i%).FieldName),e%))
  46.                       END IF
  47.                           EXIT FOR
  48.                     END IF
  49.                 NEXT i%
  50.  
  51.     END IF
  52. END IF
  53.  
  54. END FUNCTION
  55.