home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / LPAS / YG604W95.ZIP / YGREP32.BAS < prev    next >
BASIC Source File  |  1997-08-04  |  4KB  |  68 lines
  1. REM    -----------------------------------------------------------------------
  2. REM    $Id: YGREP32.BAS 1.5 1997/07/13 19:58:03 Y.Roumazeilles Exp Y.Roumazeilles $
  3. REM    -----------------------------------------------------------------------
  4.  
  5. REM    -----------------------------------------------------------------------
  6. REM    YGrep Search Engine v6.03    (C) Copyright 1996-97 - Yves Roumazeilles
  7. REM
  8. REM    YGREP32.BAS: Interface description for YGREP32.DLL
  9. REM                 (YGrep Search Engine 32 bit edition)
  10. REM    Note: You cannot access to all the functions of the YGrep Search Engine
  11. REM          but there is a large subset provided by the Scalar-parameter-only
  12. REM          functions interfaced here.
  13. REM    -----------------------------------------------------------------------
  14.  
  15. REM    -----------------------------------------------------------------------
  16. REM    Sample code for a Visual Basic 4 (32-bits) use of various functions.
  17. REM    
  18. REM        Dim lpStrAddress As Long
  19. REM        Dim RetStr$
  20. REM        RetStr$ = String$(1024, 0)
  21. REM        
  22. REM        Etiquette1.Caption = "toto"
  23. REM        FileIn$ = "C:\usr\local\src\ygrep5\test.txt" + Chr$(0)
  24. REM        ss = SFileOpen(FileIn$)
  25. REM        Pattern$ = "YGrep" + Chr$(0)
  26. REM        ss = SCompileRGrep(Pattern$, False)
  27. REM        
  28. REM        lpStrAddress = SFileRGrep()
  29. REM        lpStrAddress = lstrcpy(RetStr$, lpStrAddress)
  30. REM        Etiquette1.Caption = RetStr$
  31. REM    
  32. REM    Thanks!
  33. REM    -----------------------------------------------------------------------
  34.  
  35. Private Declare Function lstrcpy Lib "Kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
  36.  
  37.  
  38. Private Declare function SCompileAGrep Lib "YGrep32.dll" (ByVal lpszGrepString As String, ByVal k As Integer, ByVal bMatchCase As Integer) As Integer
  39. Private Declare function SAGrep Lib "YGrep32.dll" (ByVal lpszStringToSearch As String) As Integer
  40. Private Declare sub      SAGrepInit Lib "YGrep32.dll" ()
  41. Private Declare sub      SAGrepEmpty Lib "YGrep32.dll" ()
  42. Private Declare function SAGrepSubsBuild Lib "YGrep32.dll" (ByVal lpszPattern As String, ByVal lpszDest As String, ByVal lSize As Long) As Integer
  43.  
  44. Private Declare function SCompileRGrep Lib "YGrep32.dll" (ByVal lpszGrepString As String, ByVal bMatchCase As Integer) As Integer
  45. Private Declare function SRGrep Lib "YGrep32.dll" (ByVal lpszStringToSearch As String) As Integer
  46. Private Declare function SRGrepSubsBuild Lib "YGrep32.dll" (ByVal lpszPattern As String, ByVal lpszDest As String, ByVal lSize As Long) As Integer
  47.  
  48. Private Declare function SCompileSGrep Lib "YGrep32.dll" (ByVal lpszGrepString As String, ByVal bMatchCase As Integer) As Integer
  49. Private Declare function SSGrep Lib "YGrep32.dll" (ByVal lpszStringToSearch As String) As Integer
  50. Private Declare function SSGrepSubsBuild Lib "YGrep32.dll" (ByVal lpszPattern As String, ByVal lpszDest As String, ByVal lSize As Long) As Integer
  51.  
  52. Private Declare sub      InitWordCharTable Lib "YGrep32.dll" ()
  53. Private Declare function AddWordChar Lib "YGrep32.dll" (ByVal lpszS As String) As Integer
  54. Private Declare function RemoveWordChar Lib "YGrep32.dll" (ByVal lpszS As String) As Integer
  55.  
  56. Private Declare sub      SFileSetFlags Lib "YGrep32.dll" ( ByVal bPrintFileName As Integer, ByVal bPrintBlockNumber As Integer, ByVal bPrintLineNumber As Integer, ByVal bCountsOnly As Integer, ByVal bNonMatching As Integer, ByVal bFileModeText As Integer )
  57. Private Declare function SFileOpen Lib "YGrep32.dll" ( ByVal strFileName As String ) As Integer
  58. Private Declare function SFileAGrep Lib "YGrep32.dll" () As Long
  59. Private Declare function SFileRGrep Lib "YGrep32.dll" () As Long
  60. Private Declare function SFileSGrep Lib "YGrep32.dll" () As Long
  61. Private Declare function SFileTextAGrep Lib "YGrep32.dll" () As Long
  62. Private Declare function SFileTextRGrep Lib "YGrep32.dll" () As Long
  63. Private Declare function SFileTextSGrep Lib "YGrep32.dll" () As Long
  64. Private Declare function SFileBinaryAGrep Lib "YGrep32.dll" () As Long
  65. Private Declare function SFileBinaryRGrep Lib "YGrep32.dll" () As Long
  66. Private Declare function SFileBinarySGrep Lib "YGrep32.dll" () As Long
  67. Private Declare function SFileClose Lib "YGrep32.dll" () As Long
  68.