iglezz, Доброго вам дня и здоровья.
Походу в вашем коде поиска строки баг. Вчера целый день потратил, чтобы найти проблему. Я то ведь сразу вставлял ваш код в мой огромный код и строку не искало. А экзешник с одного вашего кода четко и быстро находит. Я потом давай убирать с моего кода по строкам всё, пока не нашел причину.
Вот экзешник с вашим кодом, который прекрасно находит слово "Word.com" в файле hosts:
Код:
RequestExecutionLevel user
SilentInstall silent
!include Util.nsh
!include LogicLib.nsh
!include StrFunc.nsh
${Using:StrFunc} StrLoc
!define FileReadAuto `!insertmacro FileReadAuto`
!macro FileReadAuto ISUTF16LE HANDLE READLINE
StrCmp ${ISUTF16LE} 0 0 +3
FileRead ${HANDLE} ${READLINE}
Goto +2
FileReadUTF16LE ${HANDLE} ${READLINE}
!macroend
!define FileFindStrStruct `(i, i, &t${NSIS_MAX_STRLEN}) p`
!define FileFindStr `!insertmacro FileFindStr`
!macro FileFindStr OUTPUT FILENAME STRTOFIND
Push '${STRTOFIND}'
Push '${FILENAME}'
${CallArtificialFunction} FileFindStr_macro
Pop ${OUTPUT}
!macroend
!macro FileFindStr_macro
Exch $0
Exch
Exch $1
Push $2
Push $3
Push $4
Push $5
Push $6
Push $7
StrCpy $5 0
StrCpy $7 0
FileOpen $2 $0 R
IfErrors FileFindStr_macro_end
FileReadWord $2 $4
${If} $4 = 0xFEFF
StrCpy $3 1
${Else}
StrCpy $3 0
${EndIf}
FileSeek $2 0 SET
${Do}
${FileReadAuto} $3 $2 $4
${IfThen} ${Errors} ${|} ${ExitDo} ${|}
IntOp $5 $5 + 1
${StrLoc} $6 $4 $1 >
${If} $6 != ''
System::Call '*${FileFindStrStruct} (r5, r6, r4) .r7'
${ExitDo}
${EndIf}
${Loop}
FileClose $2
FileFindStr_macro_end:
StrCpy $0 $7
Pop $7
Pop $6
Pop $5
Pop $4
Pop $3
Pop $2
Pop $1
Exch $0
!macroend
Section
${FileFindStr} $0 '$SYSDIR\drivers\etc\hosts' 'Word.com'
${If} $0 <> 0
MessageBox MB_OK " Нужное слово найдено "
${Else}
MessageBox MB_OK " Нужное слово НЕ найдено "
${EndIf}
SectionEnd
А вот в код добавлена функция с двумя строчками и он перестал искать.
Код:
RequestExecutionLevel user
SilentInstall silent
!include Util.nsh
!include LogicLib.nsh
!include StrFunc.nsh
${Using:StrFunc} StrLoc
!define FileReadAuto `!insertmacro FileReadAuto`
!macro FileReadAuto ISUTF16LE HANDLE READLINE
StrCmp ${ISUTF16LE} 0 0 +3
FileRead ${HANDLE} ${READLINE}
Goto +2
FileReadUTF16LE ${HANDLE} ${READLINE}
!macroend
!define FileFindStrStruct `(i, i, &t${NSIS_MAX_STRLEN}) p`
!define FileFindStr `!insertmacro FileFindStr`
!macro FileFindStr OUTPUT FILENAME STRTOFIND
Push '${STRTOFIND}'
Push '${FILENAME}'
${CallArtificialFunction} FileFindStr_macro
Pop ${OUTPUT}
!macroend
!macro FileFindStr_macro
Exch $0
Exch
Exch $1
Push $2
Push $3
Push $4
Push $5
Push $6
Push $7
StrCpy $5 0
StrCpy $7 0
FileOpen $2 $0 R
IfErrors FileFindStr_macro_end
FileReadWord $2 $4
${If} $4 = 0xFEFF
StrCpy $3 1
${Else}
StrCpy $3 0
${EndIf}
FileSeek $2 0 SET
${Do}
${FileReadAuto} $3 $2 $4
${IfThen} ${Errors} ${|} ${ExitDo} ${|}
IntOp $5 $5 + 1
${StrLoc} $6 $4 $1 >
${If} $6 != ''
System::Call '*${FileFindStrStruct} (r5, r6, r4) .r7'
${ExitDo}
${EndIf}
${Loop}
FileClose $2
FileFindStr_macro_end:
StrCpy $0 $7
Pop $7
Pop $6
Pop $5
Pop $4
Pop $3
Pop $2
Pop $1
Exch $0
!macroend
Section
${FileFindStr} $0 '$SYSDIR\drivers\etc\hosts' 'Word.com'
${If} $0 <> 0
MessageBox MB_OK " Нужное слово найдено "
${Else}
MessageBox MB_OK " Нужное слово НЕ найдено "
${EndIf}
SectionEnd
Function .onInit
Var /GLOBAL Proga
ReadRegStr $Proga HKLM "SOFTWARE\Test" "Test"
FunctionEnd
