Display table statistics in a new DBF table

Summary

This article provides an Avenue example of how to retrieve statistics for all numeric fields in a table and display them in a new DBF table.

Procedure

1. Open a new script window.
   
   
   A. Activate the Project window.
   B. Click the Scripts icon.
   C. Click New.
   
   
2. Copy the following script:
   
   

   Code:
   RESULTFILE = FILEDIALOG.PUT("result.dbf".ASFILENAME,"*.*","FILE")
   RESULTVTAB = VTAB.MAKENEW(RESULTFILE,DBASE)
   RESULTTABLE = TABLE.MAKE(RESULTVTAB)
   F1 = FIELD.MAKE("FIELD_NAME",#FIELD_CHAR,12,0)
   F2 = FIELD.MAKE("Sum",#FIELD_DOUBLE,12,5)
   F3 = FIELD.MAKE("Count",#FIELD_DOUBLE,10,0)
   F4 = FIELD.MAKE("Mean",#FIELD_DOUBLE,10,5)
   F5 = FIELD.MAKE("Maximum",#FIELD_DOUBLE,10,5)
   F6 = FIELD.MAKE("Minimum",#FIELD_DOUBLE,10,5)
   F7 = FIELD.MAKE("Range",#FIELD_DOUBLE,10,5)
   F8 = FIELD.MAKE("Variance",#FIELD_DOUBLE,12,5)
   F9 = FIELD.MAKE("Standard Deviation",#FIELD_DOUBLE,10,5)
   RESULTVTAB.ADDFIELDS({F1,F2,F3,F4,F5,F6,F7,F8,F9})
   theTable = av.GetActiveDoc
   theVTab = theTable.GetVTab
   THEFIELDLIST = THEVTAB.GETFIELDS
   for each THEFIELD in THEFIELDLIST
      FIELDTYPE = THEFIELD.GETTYPE
      if ((FIELDTYPE = #FIELD_DECIMAL) or 
          (FIELDTYPE = #FIELD_BYTE) or 
          (FIELDTYPE = #FIELD_DOUBLE) or
          (FIELDTYPE = #FIELD_FLOAT) or
          (FIELDTYPE = #FIELD_LONG) or
          (FIELDTYPE = #FIELD_MONEY) or
          (FIELDTYPE = #FIELD_SHORT)) then
         thePrecision = "d.dddddddddd"
         theFieldPrecision = theField.GetPrecision
         Script.The.SetNumberFormat( thePrecision.Left( theFieldPrecision + 2 ) )
         if ( theVTab.GetSelection.Count = 0 ) then
           theSet = theVTab
         else
           theSet = theVTab.GetSelection
         end
         theSum = 0
         theCount = 0
         theMinimum = nil
         theMaximum = nil
         for each rec in theSet
           theValue = theVTab.ReturnValueNumber( theField, rec )
           if ( not ( theValue.IsNull ) ) then
             if ( theMinimum = nil ) then
               theMinimum = theValue
               theMaximum = theValue
             else
               theMinimum = theMinimum min theValue
               theMaximum = theMaximum max theValue
             end
             theSum = theValue + theSum
             theCount = theCount + 1
           end
         end
         theMean = theSum / theCount
         theSumSqDev = 0
         for each rec in theSet
           theValue = theVTab.ReturnValueNumber( theField, rec )
           if ( not ( theValue.IsNull ) ) then
             theSqDev = ( theValue - theMean ) * ( theValue - theMean )
             theSumSqDev = theSqDev + theSumSqDev
           end
         end
         if (theCount > 1) then
           theVariance = theSumsqdev / (theCount - 1)
           theStdDev = theVariance.Sqrt
         else
           theVariance = 0
           theStdDev = 0
         end
         REC = RESULTVTAB.ADDRECORD
         RESULTVTAB.SETVALUE(F1,REC,THEFIELD.GETNAME)
         RESULTVTAB.SETVALUE(F2,REC,THESUM)
         RESULTVTAB.SETVALUE(F3,REC,THECOUNT)
         RESULTVTAB.SETVALUE(F4,REC,THEMEAN)
         RESULTVTAB.SETVALUE(F5,REC,THEMAXIMUM)
         RESULTVTAB.SETVALUE(F6,REC,THEMINIMUM)
         RESULTVTAB.SETVALUE(F7,REC,(THEMAXIMUM - THEMINIMUM))
         RESULTVTAB.SETVALUE(F8,REC,THEVARIANCE)
         RESULTVTAB.SETVALUE(F9,REC,THESTDDEV)
     end
   end
   RESULTTABLE.SETNAME(RESULTFILE.GETBASENAME)
   RESULTTABLE.GETWIN.OPEN
   

   
   
3. Attach the script to a button on the Table GUI.
   
   
   A. Compile the script.
   B. Switch to the Project window.
   C. Select Customize from the Project menu.
   D. Select Table under the Type dropdown on the Customize dialog.
   E. Select Buttons under Category.
   F. Click the New button.
   G. Double-click the Click property in the Customize dialog box.
   H. Enter the name of the script in the Script Manager and click Select.
   I. Close the Customize dialog box.
   
   For more information, see 'Customize dialog box' in ArcView Help.
   
   
4. Load a table into ArcView.
5. Click the newly added button.
6. Specify a name and location for the DBF table.
7. View results in the table.