.: NSIS

inco1 · Отправлено: **23:28, 07-04-2023** | #**2711**

Вот спасибо. Пол дня пытался понять, что не так. Я и подозревал, что что то считывается невидимое, потому что, если напрямую присваивал любые одинаковые значения, то было всё правильно.
Начну знакомство с очисткой.

P.S. Я так понял, что нельзя в моём конкретном примере обойтись как нибудь без $\n и неизвестной для меня очистки? Ведь будет только одна строка.

iglezz · Отправлено: **23:35, 07-04-2023** | #**2712**

Самый простой способ хранения значений в файле - использовать ini-файл (ReadINIStr/WriteINIStr)

inco1 · Отправлено: **23:39, 07-04-2023** | #**2713**

Попробую.

Добавлено:

Всё получилось и работает как надо. Это я так хочу использовать "уникальную метку" системы. Но не уверен, что данные, те что я использую будут уникальными для всех систем:

Код:

    StrCpy $R6 "c:\"
    System::Call 'Kernel32::GetVolumeInformation(t "$R6",t.r3,i ${NSIS_MAX_STRLEN},*i,*i,*i.r1,t.r2,i ${NSIS_MAX_STRLEN})i.r0'

В связи с этим еще один вопрос, откуда в системе виндовс можно взять "метку", чтобы на 100 процентов или почти на 100 процентов эти данные были "уникальными" для каждой системы?

MKN · Отправлено: **09:24, 08-04-2023** | #**2714**

Цитата inco1:

откуда в системе виндовс можно взять "метку", чтобы на 100 процентов или почти на 100 процентов эти данные были "уникальными" для каждой системы? »

Кроме ID винта, используют MAC сетевухи, время создания системных каталогов или всё это в совокупности + иногда математика с этими данными...

inco1 · Отправлено: **09:37, 08-04-2023** | #**2715**

MKN, приветствую.
Как записать ID винта? Или ID винта это его серийный номер?

MKN · Отправлено: **12:04, 08-04-2023** | #**2716**

inco1,

есть миниатюрный плагин для определения инфы о HDD (см. прикреплённый файл)

или

Цитата:

OutFile "GetVolumeInformation.exe"
; под серийным номером подразумевается "Volume ID"
var ser
var ser1
var disk

!define GetVolumeInformation "Kernel32::GetVolumeInformation(t,t,i,*i,*i,*i,t,i) i"

Section
; определяем системный диск
StrCpy $disk $windir
StrCpy $disk $windir 3
MessageBox MB_OK $disk

System::Call '${GetVolumeInformation} ("$disk",,${NSIS_MAX_STRLEN},.r0,,,,${NSIS_MAX_STRLEN})'
IntFmt $ser "%08X" $0 ; из цифрового - HEX

; стандартное представление: 4 символа-4символа
StrCpy $ser1 $ser 4 ; берём первые 4 символа
StrCpy $ser $ser "" 4 ; отсекаем первые 4 символа
StrCpy $ser "$ser1-$ser"
MessageBox MB_OK "VolumeID $ser"
SectionEnd

inco1 · Отправлено: **14:46, 09-04-2023** | #**2717**

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

iglezz · Отправлено: **15:22, 09-04-2023** | #**2718**

inco1, да, в nsis вечно забываю сбрасывать error флаг
в макросе FileFindStr_macro перед

Код:

FileOpen $2 $0 R

надо добавить

Код:

ClearErrors

inco1 · Отправлено: **15:44, 09-04-2023** | #**2719**

iglezz,

Теперь заработало, как надо. Спасибо за оперативный отклик.

P.S. Сравнивал скорость поиска по ${LineRead} и вашим кодом. Брал 400 строк и нужная вконце, одна строка - одно слово. Ваш код находит мгновенно, а через ${LineRead} около 8-10 секунд.

inco1 · Отправлено: **19:30, 25-04-2023** | #**2720**

Всем доброго дня.
Помогите, пожалуйста с такой проблемой. В одной из папок имеются одна папка с известным названием и несколько неизвестных папок ("Test kkkkkk", "Test ххх", "Test yyyyyyyy", "Test zzzz", ....). Во всех папок первое слово одинаковое. Нужно удалить неизвестные папки, у которых значения k, x, Y, z, ... непостоянные (неизвестные).
Как вариант подойдет что нибудь типа "удалить все папки, кроме одной с известным названием".