Textsearch:
        invoke  CreateFile,FileName, GENERIC_READ + GENERIC_WRITE, 0, 0,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0
        mov     [hFile], eax
        cmp     [hFile],INVALID_HANDLE_VALUE
        je      .inValHandle

        invoke  GetFileSize,fileSize,0

        mov     [fileSize],eax
        invoke  GlobalAlloc,0,fileSize
        mov     [dwBufferSize],eax
        cmp     [dwBufferSize],0
        je      .fileNtAlloc
        invoke  ReadFile,[hFile],dwBufferSize,fileSize,dwTextLength,0
        mov     edi,[dwBufferSize]
        mov     ecx,[fileSize]
        mov     esi,stxt
        mov     al, byte[esi]
        call    sloop

.inValHandle:
        invoke  MessageBox,[hwnddlg],text2,caption,NULL+MB_OK
        call    endn
;.invalTxtLen:
        ;invoke  MessageBox,[hwnddlg],text5,caption,NULL+MB_OK
        ;call    endn
.fileNtAlloc:
        invoke  MessageBox,[hwnddlg],text4,caption,NULL+MB_OK
        call    endn
sloop:
        repnz   scasb
        cmp     ecx,0
        je      .notfound
        invoke  lstrlen,stxt
        mov     [strlenth],eax
        mov     ecx,strlenth
        repz    cmpsb
        cmp     ecx,0
        je      .success
        jmp     sloop
        invoke  GlobalFree,dwBufferSize
        invoke  CloseHandle,[hFile]
        call    endn
.notfound:
        invoke  MessageBox,[hwnddlg],text6,caption,NULL+MB_OK
        call    endn
.success:

        invoke  MessageBox,[hwnddlg],text7,caption,NULL+MB_OK
        call    endn
endn:
        retn    

proc search bString,szFind
ret
endp

proc main

ReadFile,data

stdcall search,data,"string to search"