home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / bonus / winer / dbstruct.bas < prev    next >
BASIC Source File  |  1992-05-12  |  1KB  |  43 lines
  1. '*********** DBSTRUCT.BAS - displays the structure of a DBF file
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. DEFINT A-Z
  6. '$INCLUDE: 'DBF.BI'
  7. '$INCLUDE: 'DBACCESS.BI'
  8.  
  9. DEF FnTrim$ (DateInfo) = LTRIM$(STR$(DateInfo))
  10. DIM Header AS DBFHeadStruc
  11. REDIM FldStruc(1 TO 1) AS FieldStruc
  12.  
  13. CLS
  14. LINE INPUT "Enter the DBF file name: ", DBFName$
  15. IF INSTR(DBFName$, ".") = 0 THEN
  16.   DBFName$ = DBFName$ + ".DBF"
  17. END IF
  18.  
  19. CALL OpenDBF(1, DBFName$, Header, FldStruc())
  20. CLOSE #1
  21.  
  22. PRINT "Structure of " + DBFName$
  23. PRINT
  24.  
  25. PRINT "Version:     "; Header.Version
  26. PRINT "Last Update: "; FnTrim$(Header.Month);
  27. PRINT "/" + FnTrim$(Header.Day);
  28. PRINT "/" + FnTrim$(Header.Year)
  29. PRINT "# Records:   "; Header.TRecs
  30. PRINT "Rec Length:  "; Header.RecLen
  31. PRINT "# Fields:    "; Header.TFields
  32. PRINT
  33. PRINT "Name", "Type", "Offset", "Length", "# Decimals"
  34. PRINT "----", "----", "------", "------", "----------"
  35.  
  36. FOR X = 1 TO Header.TFields
  37.   PRINT FldStruc(X).FName,
  38.   PRINT FldStruc(X).FType,
  39.   PRINT FldStruc(X).FOff,
  40.   PRINT FldStruc(X).FLen,
  41.   PRINT FldStruc(X).Dec
  42. NEXT
  43.