home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / fp_demo / fldpak12.bas next >
BASIC Source File  |  1993-11-24  |  3KB  |  52 lines
  1.  
  2. ' fldpak12.bas
  3.  
  4. ' FieldPack initialization
  5.  
  6. Declare Function FP_Password Lib "FLDPAK12.DLL" (Password$) As Integer
  7.  
  8. ' SuperString Tools for VB
  9.  
  10. Declare Function SS_StoreAll Lib "FLDPAK12.DLL" (TypeInstance As Any, SSFormat$, DestSString$) As Integer
  11. Declare Function SS_FetchAll Lib "FLDPAK12.DLL" (SString$, SSFormat$, DestTypeInstance As Any) As Integer
  12.  
  13. Declare Function SS_StoreItem Lib "FLDPAK12.DLL" (SString$, SSFormat$, ItemNo%, ItemType$, ItemData As Any) As Integer
  14. Declare Function SS_FetchItem Lib "FLDPAK12.DLL" (SString$, SSFormat$, ItemNo%, ItemType$, DestItemData As Any) As Integer
  15.  
  16. Declare Function SS_PieceCount Lib "FLDPAK12.DLL" (SSFormat$) As Integer
  17. Declare Function SS_PieceItemNo Lib "FLDPAK12.DLL" (SSFormat$, PieceNo%) As Integer
  18. Declare Function SS_PieceSize Lib "FLDPAK12.DLL" (SSFormat$, PieceNo%) As Integer
  19. Declare Function SS_ItemCount Lib "FLDPAK12.DLL" (SSFormat$) As Integer
  20. Declare Function SS_ItemType Lib "FLDPAK12.DLL" (SSFormat$, ItemNo%) As String
  21.  
  22. ' Delimited Substring Tools for VB
  23.  
  24. Declare Function DS_GetField Lib "FLDPAK12.DLL" (Svar$, Dlm$, FieldNo%) As String
  25. Declare Function DS_PutField Lib "FLDPAK12.DLL" (Svar$, Dlm$, FieldNo%, NewField$) As String
  26. Declare Function DS_InsertField Lib "FLDPAK12.DLL" (Svar$, Dlm$, FieldNo%, NewField$) As String
  27. Declare Function DS_RemoveField Lib "FLDPAK12.DLL" (Svar$, Dlm$, FieldNo%) As String
  28. Declare Function DS_FindField Lib "FLDPAK12.DLL" (Svar$, Dlm$, StartField%, Search$, Mode%) As Integer
  29.  
  30. Declare Function DS_TellField Lib "FLDPAK12.DLL" (Svar$, Dlm$, Pos&) As Integer
  31. Declare Function DS_CountDlms Lib "FLDPAK12.DLL" (Svar$, Dlm$) As Integer
  32. Declare Function DS_ReplaceDlms Lib "FLDPAK12.DLL" (Svar$, OldDlm$, NewDlm$) As String
  33. Declare Function DS_FindDlm Lib "FLDPAK12.DLL" (Svar$, Dlm$, Occurence%) As Long
  34.  
  35. ' Utility String Tools for VB
  36.  
  37. Declare Function US_Trim Lib "FLDPAK12.DLL" (Svar$) As String
  38.  
  39. Declare Function US_Proper Lib "FLDPAK12.DLL" (Svar$) As String
  40. Declare Function US_Reverse Lib "FLDPAK12.DLL" (Svar$) As String
  41.  
  42. Declare Function US_LJustify Lib "FLDPAK12.DLL" (Svar$, XWidth%, FillChar$) As String
  43. Declare Function US_CJustify Lib "FLDPAK12.DLL" (Svar$, XWidth%, FillChar$) As String
  44. Declare Function US_RJustify Lib "FLDPAK12.DLL" (Svar$, XWidth%, FillChar$) As String
  45.  
  46. Declare Function US_StripOut Lib "FLDPAK12.DLL" (Svar$, StripChars$) As String
  47. Declare Function US_LeaveOnly Lib "FLDPAK12.DLL" (Svar$, LeaveChars$) As String
  48. Declare Function US_Translate Lib "FLDPAK12.DLL" (Svar$, OldChars$, NewChars$) As String
  49.  
  50. ' end fldpak12.bas
  51.  
  52.