Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Старожил


Сообщения: 352
Благодарности: 193

Профиль | Отправить PM | Цитировать


динозавра,
Вариант с изменением последней цифры
Скрытый текст
Код: Выделить весь код
;Using https://nsis.sourceforge.io/NsisXML_plug-in_(by_Wizou)

Name "nsisXML-acrobat-example"
OutFile "nsisXML-acrobat-example.exe"

ShowInstDetails show
AutoCloseWindow false
SetOverwrite on
RequestExecutionLevel user

Page instfiles

Section ""
	nsisXML::create
	nsisXML::load "$EXEDIR\application.xml"
	nsisXML::select '/Configuration/Other/Data[@key="TrialSerialNumber"]'
	nsisXML::getText
	DetailPrint "get: $3"
	
;	Отрезаем в R1 всю строку без последней цифры
	StrCpy $R1 $3 -1

;	Отрезаем в R0 последнюю цифру
	StrCpy $R0 $3 "" -1

;	Увеличиваеи значение на 1
	IntOp $R0 $R0 + 1

;	Проверяем: если R0 равно 10, то записываем в R0 = 0
	StrCmp $R0 10 0 +2
	StrCpy $R0 0

;	Подклеиваем к R1 новое значение R0
	StrCpy $R1 "$R1$R0"
	
	DetailPrint "<: $3"
	DetailPrint ">: $R1"
	
	nsisXML::setText $R1
	nsisXML::save "$EXEDIR\application-new.xml"
SectionEnd

Последний раз редактировалось iglezz, 14-09-2019 в 22:06.

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:57, 14-09-2019 | #2305