[MKN]

Вариант с перемещением вроде как работает, но отсчёт начинается почему то с 2. Как исправить ?

Код:

outfile rename_enumerate-test.exe
Var /global n

Section
StrCpy $n 0
ClearErrors
FindFirst $0 $1 $EXEDIR\D\*.*
loop:
StrCmp $1 "" done
Rename "$EXEDIR\D\$1" "$EXEDIR\D1\$1"
Rename "$EXEDIR\D1\$1" "$EXEDIR\D1\0$n"
IntOp $n $n + 1
FindNext $0 $1
Goto loop
done:
FindClose $0
SectionEnd

[K.A.V.]

но отсчёт начинается почему то с 2 »

Я же в посте выше всё описал...

Ещё один момент, когда перечисляешь все файлы в папке командой Find*, в переменную имени файла сбрасывается значение "." и "..", из-за чего счетчик так же может быть не правильным, проверку на эти значения я так же прописал »

Код:

outfile rename_enumerate-test.exe
Var /global n

Section
StrCpy $n 0
ClearErrors
FindFirst $0 $1 $EXEDIR\D\*.*
loop:
StrCmp $1 "" done
StrCmp $1 "." next
StrCmp $1 ".." next
Rename "$EXEDIR\D\$1" "$EXEDIR\D1\$1"
Rename "$EXEDIR\D1\$1" "$EXEDIR\D1\0$n"
IntOp $n $n + 1
next:
FindNext $0 $1
Goto loop
done:
FindClose $0
SectionEnd

p.s.
а зачем, вообще, ты 2 раза команду прописываешь? одной разве не достаточно?

Код:

Rename "$EXEDIR\D\$1" "$EXEDIR\D1\0$n"

[MKN]

в переменную имени файла сбрасывается значение "." и ".." »

точно так, прозевал этот момент... А с чего вдруг образуются эти странные значения ?

одной разве не достаточно? »

Начинал с одной, но почему то получается ахинея с нумерацией, если файлов много и имена начинаются с цифр...

ps Возвращаясь к поиску HEX значений в файлах, для которых "класический" код работает , как черепаха, т.е. не годен для практики.
Оказывается есть иной приём поиска. HEX-последовательность ищется сначала в первых 300 кб, потом в следующих и т.д.
Поэтому поиск выполняется очень быстро. Есть и готовая реализация, но на AutoIt3. Было бы интересно переконвертировтаь этот код в NSIS...

читать дальше »

Код:

#cs HEX-последовательность ищется сначала в первых 300 кб, потом в следующих и т.д.
Поэтому поиск выполняется очень быстро.
#ce

Opt('MustDeclareVars', 1)

;~ поменяйте $sFile и $sHex на свои
Global $sFile = 'C:\ProgramNoAdmin\AutoIt3_381\AutoIt3.exe', $sHex = 'C4 04 84 C0 74 0B 84 DB 75 2D 32 C0 5B 8B E5', _
        $iOffSet, $hFile, $sRead

$iOffSet = _Find_HexString_In_File($sFile, $sHex)
If @error Then Exit ConsoleWrite('Error: ' & @error & @LF)
If Not $iOffSet Then Exit ConsoleWrite('Not hex string' & @LF)

ConsoleWrite('Offset = ' & $iOffSet & ' (hex offset = 0x' & Hex($iOffSet, 8) & ')' & @LF)
;~ проверяем полученный результат:
$hFile = FileOpen($sFile, 16)
FileSetPos($hFile, $iOffSet, 0);$FILE_BEGIN = 0
$sRead = Hex(FileRead($hFile, StringLen(StringStripWS($sHex, 8)) / 2))
FileClose($hFile)
ConsoleWrite($sRead & @TAB & ($sRead = StringStripWS($sHex, 8)) & @LF)

#cs
    Вернет при успехе позицию вхождения $s_HexString в файле $s_File или 0, если нет вхождения.
    При неудаче вернет 0 и флаг @error = :
    1   - нет файла $s_File;
    2   - длина $s_HexString не кратна 2;
    3   - не получилось открыть файл $s_File;
    4   - ошибка функции FileSetPos.

    Читает весь файл подряд по 300 Кб, можно поменять на нужные Вам
#ce
Func _Find_HexString_In_File($s_File, $s_HexString)
    Local Const $i_Read = 300 * 1024, $__FILE_CURRENT_ = 1
    Local $i_Len, $h_File, $b_Read, $i_Pos, $i_Count, $i_Err

    If Not FileExists($s_File) Then Return SetError(1, 0, 0)
    If IsBinary($s_HexString) Then
        $s_HexString = Hex($s_HexString)
    Else
        $s_HexString = StringStripWS($s_HexString, 8)
    EndIf
    $i_Len = StringLen($s_HexString)
    If Mod($i_Len, 2) Then Return SetError(2, 0, 0)
    $i_Len /= 2
    $h_File = FileOpen($s_File, 16)
    If $h_File = -1 Then Return SetError(3, 0, 0)
    While 1
        $b_Read = FileRead($h_File, $i_Read)
        If @extended <= $i_Len Then ExitLoop
        $i_Pos = StringInStr($b_Read, $s_HexString, 2)
        If Mod($i_Pos, 2) Then ExitLoop
        $i_Pos = 0
        If Not FileSetPos($h_File, -$i_Len, $__FILE_CURRENT_) Then
            $i_Err = 4
            ExitLoop
        EndIf
        $i_Count += 1
    WEnd
    FileClose($h_File)
    If $i_Err Then Return SetError($i_Err, 0, 0)
    If $i_Pos Then Return Int(($i_Pos - 1) / 2 - 1 + ($i_Read - $i_Len) * $i_Count)
    Return 0
EndFunc   ;==>_Find_HexString_In_File

[K.A.V.]

А с чего вдруг образуются эти странные значения ? »

яжнепрограммист, откуда я знаю, видимо, из-за того, что перечисляются все файлы, а не конкретного типа

Было бы интересно переконвертировтаь этот код в NSIS... »

Вот кому интересно, тот пусть и конвертирует, я AutoIt3 не знаю и разбираться в неизвестном мне языке как-то не особо хочется

[wolkow70]

Что-то не могу собрать скрипт с конструкцией типа:

Section
StrCpy $0 "7"
${If} $0 => 5
MessageBox MB_OK "$0=>5"
${EndIf}
SectionEnd

Показывает, что нет такого "=>"
!insertmacro: macro named "_=>" not found!
Пример секции из справки, библиотека LogicLib.nsh есть, но у меня старый NSIS 2.46

[MKN]

wolkow70,

нет такого "=>" »

потому что нет...
есть (во всяком случае в С# ) :
>= Больше или равно

[K.A.V.]

Что-то не могу собрать скрипт с конструкцией типа: Section StrCpy $0 "7" ${If} $0 => 5 MessageBox MB_OK "$0=>5" ${EndIf} SectionEnd Показывает, что нет такого "=>" !insertmacro: macro named "_=>" not found! Пример секции из справки, библиотека LogicLib.nsh есть, но у меня старый NSIS 2.46 »

Опечатка в нашем файле справки.
Вам нужно указать >=

LogicLib.nsh

; The following "expressions" are available:
; Standard (built-in) string tests (which are case-insensitive):
; a == b; a != b
; Additional case-insensitive string tests (using System.dll):
; a S< b; a S>= b; a S> b; a S<= b
; Case-sensitive string tests:
; a S== b; a S!= b
; Standard (built-in) signed integer tests:
; a = b; a <> b; a < b; a >= b; a > b; a <= b
; Standard (built-in) unsigned integer tests:
; a U< b; a U>= b; a U> b; a U<= b
; 64-bit integer tests (using System.dll):
; a L= b; a L<> b; a L< b; a L>= b; a L> b; a L<= b
; ptrdiff_t integer tests
; a P= b; a P<> b; a P< b; a P>= b; a P> b; a P<= b
; Built-in NSIS flag tests:
; ${Abort}; ${Errors}; ${RebootFlag}; ${Silent}
; Built-in NSIS other tests:
; ${FileExists} a
; Any conditional NSIS instruction test:
; ${Cmd} a
; Section flag tests:
; ${SectionIsSelected} a; ${SectionIsSectionGroup} a;
; ${SectionIsSectionGroupEnd} a; ${SectionIsBold} a;
; ${SectionIsReadOnly} a; ${SectionIsExpanded} a;
; ${SectionIsPartiallySelected} a

Примеры использования есть так же в файле "<NSIS>\Examples\LogicLib.nsi"

[wolkow70]

потому что нет... есть : >= Больше или равно »

Благодарствую за подсказку.
В таком случае, нужно авторам Справочника поправить ошибку, так как пример оттуда.

Вам нужно указать >= »

Спасибо за подсказку, заработало.

[MKN]

Столкнулся с не возможностью совместного использования "FileVerInfo.nsh" и "FileFunc.nsh". При компиляции - ругань (отдельно, FileVerInfo.nsh работает нормально) .
Как их подружить ?

[K.A.V.]

Столкнулся с не возможностью совместного использования "FileVerInfo.nsh" и "FileFunc.nsh" »

FileVerInfo.nsh - что это и где его достать то? В дистрибутиве NSIS - нету, поиском по сайту NSIS - нету, лениво вбил в гугл - и снова ничего