miaozk2006

Sub Main()
    Dim lStartTime As Long

    '±È½ÏÁ½¸ö·½Ê½µÄÔËÐÐËÙ¶È
    lStartTime = GetTickCount
    Call FindText("G:/Inst/С˵/²×º£·ï¸è.txt", "´ò´òÇï·ç") '´Ë·µ»ØֵΪ×Ö·ûλÖÃ
    Debug.Print GetTickCount - lStartTime
End Sub

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4

Private Declare Function CreateFileMapping Lib "kernel32" Alias "CreateFileMappingA" (ByVal hFile As Long, ByVal lpFileMappigAttributes As Long, ByVal flProtect As Long, ByVal dwMaximumSizeHigh As Long, ByVal dwMaximumSizeLow As Long, ByVal lpName As String) As Long
Private Declare Function MapViewOfFile Lib "kernel32" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long) As Long
Private Declare Function UnmapViewOfFile Lib "kernel32" (lpBaseAddress As Any) As Long
Private Const PAGE_READWRITE = &H4
Private Const FILE_MAP_READ = &H4

Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long
Private Type SAFEARRAYBOUND
    cElements As Long
    lLbound As Long
End Type
Private Type SAFEARRAY1D
    cDims As Integer
    fFeatures As Integer
    cbElements As Long
    clocks As Long
    pvData As Long
    rgsabound(0) As SAFEARRAYBOUND
End Type

'ʹÓÃÄÚ´æÓ³É䷽ʽ²éÕÒ´óÐÍÎļþÖаüº¬µÄ×Ö·û´®
Function FindTextInFile(ByVal strFileName As String, ByVal strText As String) As Long
    Dim hFile As Long, hFileMap As Long
    Dim nFileSize As Long, lpszFileText As Long, pbFileText() As Byte
    Dim ppSA As Long, pSA As Long
    Dim tagNewSA As SAFEARRAY1D, tagOldSA As SAFEARRAY1D

    hFile = CreateFile(strFileName, _
            GENERIC_READ Or GENERIC_WRITE, _
            FILE_SHARE_READ Or FILE_SHARE_WRITE, _
            0, _
            OPEN_EXISTING, _
            FILE_ATTRIBUTE_NORMAL Or FILE_ATTRIBUTE_ARCHIVE Or FILE_ATTRIBUTE_READONLY Or _
            FILE_ATTRIBUTE_HIDDEN Or FILE_ATTRIBUTE_SYSTEM, _
            0) '´ò¿ªÎļþ
    If hFile <> 0 Then
        nFileSize = GetFileSize(hFile, ByVal 0&) '»ñµÃÎļþ´óС
        hFileMap = CreateFileMapping(hFile, 0, PAGE_READWRITE, 0, 0, vbNullString) '´´½¨ÎļþÓ³Éä¶ÔÏó
        lpszFileText = MapViewOfFile(hFileMap, FILE_MAP_READ, 0, 0, 0) '½«Ó³Éä¶ÔÏóÓ³Éäµ½½ø³ÌÄÚ²¿µÄµØÖ·¿Õ¼ä
       
        ReDim pbFileText(0) '³õʼ»¯Êý×é
        ppSA = VarPtrArray(pbFileText) '»ñµÃÖ¸ÏòSAFEARRAYµÄÖ¸ÕëµÄÖ¸Õë
        CopyMemory pSA, ByVal ppSA, 4 '»ñµÃÖ¸ÏòSAFEARRAYµÄÖ¸Õë
        CopyMemory tagOldSA, ByVal pSA, Len(tagOldSA) '±£´æÔ­À´µÄSAFEARRAY³ÉÔ±ÐÅÏ¢
        CopyMemory tagNewSA, tagOldSA, Len(tagNewSA) '¸´ÖÆSAFEARRAY³ÉÔ±ÐÅÏ¢
        tagNewSA.rgsabound(0).cElements = nFileSize 'ÐÞ¸ÄÊý×éÔªËظöÊý
        tagNewSA.pvData = lpszFileText 'ÐÞ¸ÄÊý×éÊý¾ÝµØÖ·
        CopyMemory ByVal pSA, tagNewSA, Len(tagNewSA) '½«Ó³ÉäºóµÄÊý¾ÝµØÖ·°ó¶¨ÖÁÊý×é
       
        FindTextInFile = InStr(pbFileText, StrConv(strText, vbFromUnicode)) '²éÕÒ×Ó×Ö·û´®Î»ÖÃ
       
        CopyMemory ByVal pSA, tagOldSA, Len(tagOldSA) '»Ö¸´Êý×éµÄSAFEARRAY½á¹¹³ÉÔ±ÐÅÏ¢
        Erase pbFileText 'ɾ³ýÊý×é
       
        UnmapViewOfFile lpszFileText 'È¡ÏûµØÖ·Ó³Éä
        CloseHandle hFileMap '¹Ø±ÕÎļþÓ³Éä¶ÔÏóµÄ¾ä±ú
    End If
    CloseHandle hFile '¹Ø±ÕÎļþ
End Function