home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_tools / vbit11 / idbtable.bas < prev    next >
BASIC Source File  |  1995-01-22  |  3KB  |  58 lines
  1. Declare Function ITabDir& Lib "IDBTOOLS.DLL" (ByVal fileName$, ByVal fileType&)
  2. Declare Function ITabEnvList& Lib "IDBTOOLS.DLL" ()
  3. Declare Function ITabFind% Lib "IDBTOOLS.DLL" (ByVal table&, ByVal findStr$, ByVal row%, ByVal col%, ByVal typ%)
  4. Declare Function ITabFindGE% Lib "IDBTOOLS.DLL" (ByVal table&, ByVal findStr$, ByVal col%)
  5. Declare Function ITabGet$ Lib "IDBTOOLS.DLL" (ByVal table&, ByVal lin%, ByVal col%)
  6. Declare Function ITabGetColWidth% Lib "IDBTOOLS.DLL" (ByVal table&, ByVal col%)
  7. Declare Function ITabGetInt% Lib "IDBTOOLS.DLL" (ByVal table&, ByVal lin%, ByVal col%)
  8. Declare Function ITabGetLine$ Lib "IDBTOOLS.DLL" (ByVal table&, ByVal lin%)
  9. Declare Function ITabGetLong& Lib "IDBTOOLS.DLL" (ByVal table&, ByVal lin%, ByVal col%)
  10. Declare Function ITabGetNumColumns% Lib "IDBTOOLS.DLL" (ByVal table&)
  11. Declare Function ITabGetNumLines% Lib "IDBTOOLS.DLL" (ByVal table&)
  12. Declare Function ITabGetReal# Lib "IDBTOOLS.DLL" (ByVal table&, ByVal lin%, ByVal col%)
  13. Declare Function ITabGetSize& Lib "IDBTOOLS.DLL" (ByVal table&)
  14. Declare Function ITabNew& Lib "IDBTOOLS.DLL" (ByVal lines%, ByVal cols%)
  15. Declare Function ITabNewArray& Lib "IDBTOOLS.DLL" (ByVal lines%)
  16. Declare Function ITabRead& Lib "IDBTOOLS.DLL" (ByVal fileName$, ByVal fileType&)
  17. Declare Function ITabReadFixedRecLenFile& Lib "IDBTOOLS.DLL" (ByVal fileName$, ByVal fmt$)
  18. Declare Function ITabWrite% Lib "IDBTOOLS.DLL" (ByVal table&, ByVal fileName$, ByVal fileType&)
  19. Declare Sub ITabBlankLine Lib "IDBTOOLS.DLL" (ByVal table&, ByVal atLine%)
  20. Declare Sub ITabBlankLines Lib "IDBTOOLS.DLL" (ByVal table&, ByVal atLine%, ByVal num%)
  21. Declare Sub ITabDelete Lib "IDBTOOLS.DLL" (table&)
  22. Declare Sub ITabInsertLine Lib "IDBTOOLS.DLL" (ByVal table&, ByVal atLine%)
  23. Declare Sub ITabInsertLines Lib "IDBTOOLS.DLL" (ByVal table&, ByVal atLine%, ByVal num%)
  24. Declare Sub ITabPut Lib "IDBTOOLS.DLL" (ByVal table&, ByVal lin%, ByVal col%, ByVal datastr$)
  25. Declare Sub ITabPutInt Lib "IDBTOOLS.DLL" (ByVal table&, ByVal lin%, ByVal col%, ByVal value%)
  26. Declare Sub ITabPutLine Lib "IDBTOOLS.DLL" (ByVal table&, ByVal lin%, ByVal datastr$)
  27. Declare Sub ITabPutLong Lib "IDBTOOLS.DLL" (ByVal table&, ByVal lin%, ByVal col%, ByVal value&)
  28. Declare Sub ITabPutReal Lib "IDBTOOLS.DLL" (ByVal table&, ByVal lin%, ByVal col%, value#)
  29. Declare Sub ITabRemoveLine Lib "IDBTOOLS.DLL" (ByVal table&, ByVal atLine%)
  30. Declare Sub ITabRemoveLines Lib "IDBTOOLS.DLL" (ByVal table&, ByVal atLine%, ByVal num%)
  31. Declare Sub ITabSmartSort Lib "IDBTOOLS.DLL" (ByVal table&, ByVal col%)
  32.  
  33. ' For debug/testing:
  34. Declare Function ITabUsed& Lib "IDBTOOLS.DLL" ()
  35. Declare Function ITabChainGetFirst& Lib "IDBTOOLS.DLL" ()
  36. Declare Function ITabChainGetNext& Lib "IDBTOOLS.DLL" (ByVal table&)
  37. Declare Function ITabDeleteAll& Lib "IDBTOOLS.DLL" ()
  38.  
  39. ' Itab <-> Formula One:
  40. Declare Sub ITabCopyToVTSS Lib "IDBVTSS.DLL" (ByVal table&, ByVal ssHandle&)
  41. Declare Function ITabCopyFromVTSS& Lib "IDBVTSS.DLL" (ByVal ssHandle&)
  42.  
  43. 'Test
  44. Declare Sub ITabCopyToGrid Lib "IDBVTSS.DLL" (ByVal table&, ByVal ssHandle&)
  45.  
  46. 'Constants for ITabRead/ITabWrite (may also use STRIP* defined in IDBTOOLS.BAS)
  47. Global Const IT_TEXTFILE% = 0
  48. Global Const IT_TABFILE& = &H10000
  49. Global Const IT_CSVFILE& = &H20000
  50. Global Const IT_CSV0FILE& = &H40000
  51. Global Const IT_ASCII% = &H800
  52.  
  53. 'Constants for ITabFind..
  54. Global Const IT_EXACT% = 0
  55. Global Const IT_WILD% = 2048
  56. Global Const IT_FOLD% = 4096
  57.  
  58.