home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / TEXT / PDX_ALL.ZIP / TI519.ASC < prev    next >
Text File  |  1991-09-11  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.   PRODUCT  :  PARADOX                                NUMBER  :  519
  8.   VERSION  :  ALL
  9.        OS  :  DOS
  10.      DATE  :  September 11, 1991                       PAGE  :  1/1
  11.  
  12.     TITLE  :  EXAMPLE SCRIPT TO REMOVE LEADING BLANKS
  13.               FROM ALL RECORDS FOR A SINGLE FIELD
  14.  
  15.  
  16.  
  17.  
  18.   In the example below, we are modifying a field named "Short"
  19.   within a table named "Tabname".  The script removes the leading
  20.   blanks from all the "Short" values within the table "Tabname".
  21.  
  22.   Edit "Tabname"          ; Place table in edit mode.
  23.   Scan                    ; Scan each element in table.
  24.      while true           ; Loop until all blanks are removed.
  25.          if match([Short]," ..",temp) = false then
  26.          quitloop         ; Leave while-loop, if
  27.          endif            ; no leading blanks exist.
  28.          [Short] = temp
  29.                           ; Update field value each
  30.                           ; time a blank is removed with the
  31.                           ; temporary variable temp.
  32.      EndWhile
  33.   EndScan
  34.   Do_It!                  ; Save all changes.
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.