Вопрос Inno Setup. Работа с файлами

[jason]

Необходимо в скопированном файле File.txt найти значение "FromStr" и поменять его на "ToStr" Нагуглил следующий код, но почему-то он не работает, пробовал экспериментировать читать мануал, но похоже программист из меня не очень,. Пожалуйста помогите найти ошибку. Дистрибутив inno setup v5.5.8-unicode.exe, ос windows 7

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Files]
Source: "File.txt"; DestDir: "{app}\Files"; Flags: ignoreversion;

[Code]
var
  UnicodeStr: string;
  ANSIStr: AnsiString;
begin
  LoadStringFromFile(ExpandConstant('{app}\Files\File.txt'), ANSIStr)
  UnicodeStr := String(ANSIStr);
  StringChangeEx(UnicodeStr, ExpandConstant('"FromStr"'), ExpandConstant('"ToStr"'), False)
  SaveStringToFile('{app}\Files\File.txt', AnsiString(UnicodeStr), True);
end.

 

[Shegorat]

jason
Кавычки нужно убрать у текста, если я правильно понял суть проблемы. Функция ищет точное значение. Она заменит значение "FromStr" на "ToStr".

[Code]
var
  UnicodeStr: string;
  ANSIStr: AnsiString;
begin
  LoadStringFromFile(ExpandConstant('{app}\Files\File.txt'), ANSIStr)
  UnicodeStr := String(ANSIStr);
  StringChangeEx(UnicodeStr, 'FromStr', 'ToStr', False)
  SaveStringToFile('{app}\Files\File.txt', AnsiString(UnicodeStr), True);
end.

 

[jason]

Shegorat
Попробовал скопировать ваш код, проверял в том числе еще несколько комбинаций.
Файл вроде обычный txt, в нем может быть проблема? http://www45.zippyshare.com/v/mRxrz1LC/file.html
А как посмотреть значение переменной UnicodeStr в текущий момент, в AutoIt бывает msgbox, может в innosetup есть подобное? И еще интересно когда выполняется секция Code (после или во время установки основной части инсталлятора)?

 

[Shegorat]

Так, стоп. А где собственно вызов этого кода? Вот так он будет вызван на этапе установки, после извлечения всех файлов.

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  UnicodeStr: string;
  ANSIStr: AnsiString;
begin
  if (CurStep = ssPostInstall) then begin
    LoadStringFromFile(ExpandConstant('{app}\Files\File.txt'), ANSIStr)
    UnicodeStr := String(ANSIStr);
    StringChangeEx(UnicodeStr, 'FromStr', 'ToStr', False)
    SaveStringToFile('{app}\Files\File.txt', AnsiString(UnicodeStr), True);
  end;
end;

В Inno определены процедуры, которые вызываются на каждом этапе установки. Почитайте справку по этому поводу.

 

[jason]

Спасибо за помощь! После нескольких попыток исталлятор обработал файл,

Оказалось что еще в SaveStringToFile нужно указать параметр False вместо True. Иначе на выходе получается смесь из двух файлов
И добавить ExpandConstant в пути до сохраняемого файла чтобы он обрабатывал значение переменной {app}

Получился такой код , может быть еще кому-нибудь пригодится

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Files]
Source: "File.txt"; DestDir: "{app}\Files"; Flags: ignoreversion;

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  UnicodeStr: string;
  ANSIStr: AnsiString;
begin
  if (CurStep = ssPostInstall) then
  begin
  LoadStringFromFile(ExpandConstant('{app}\Files\File.txt'), ANSIStr)
  UnicodeStr := String(ANSIStr);
  StringChangeEx(UnicodeStr, 'FromStr', 'ToStr', False)
  SaveStringToFile(ExpandConstant('{app}\Files\File.txt'), AnsiString(UnicodeStr), False);
  end;
end;

 

[jason]

Обнаружил еще одну проблему, у меня вместо значения 'ToStr' будет ExpandConstant('{userdocs}') с кириллическими символами, а редактируемый текстовый файл в кодировке UTF-8.
Как можно сохранить файл в кодировке UTF-8 чтобы не было кракозябр?

Нашел упоминание об этом здесь -
http://stackoverflow.com/questions/14693425/does-inno-setups-expandconstant-support-utf-8
http://www.jrsoftware.org/ishelp/index.php?topic=unicode
http://stackoverflow.com/questions/35117362/save-ini-file-in-utf-8-rather-than-ansi-in-inno-setup
Но не хватает знаний разобраться

 

[SBalykov]

Обнаружил еще одну проблему, у меня вместо значения 'ToStr' будет ExpandConstant('{userdocs}') с кириллическими символами, а редактируемый текстовый файл в кодировке UTF-8.
Как можно сохранить файл в кодировке UTF-8 чтобы не было кракозябр?

Unicode Converter
А вообще, в UTF-8 кириллица читается нормально ...

 

[Доктор ВОВАН]

Здравствуйте. А можно ли в эту строчку внести путь установки {app}" (выделено)
т.е мне надо DSTCOPY заменить на DSTCOPY = "{pf}\my prog (например)
в текстовом файле ops.txt

procedure CurStepChanged(CurStep: TSetupStep);
var
  UnicodeStr: string;
  ANSIStr: AnsiString;
begin
  if (CurStep = ssPostInstall) then
  begin
  LoadStringFromFile(ExpandConstant('{app}\Files\ops.txt'), ANSIStr)
  UnicodeStr := String(ANSIStr);
  StringChangeEx(UnicodeStr, 'DSTCOPY', 'DSTCOPY = "{app}"', False)
  SaveStringToFile(ExpandConstant('{app}\Files\ops.txt'), AnsiString(UnicodeStr), False);
  end;
end;

Спасибо заранее.

 

[Nemko]

Доктор ВОВАН, можно использовать функцию WizardDirValue, передающую путь установки:

Спойлер: Exp

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={sd}\My Application

[Files]
Source: "ops.txt"; DestDir: "{app}\Files";

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  UnicodeStr: String;
  ANSIStr: AnsiString;
begin
  if (CurStep = ssPostInstall) then begin
    LoadStringFromFile(ExpandConstant('{app}\Files\ops.txt'), ANSIStr);
    UnicodeStr:=String(ANSIStr);
    StringChangeEx(UnicodeStr, 'DSTCOPY', 'DSTCOPY = ' + WizardDirValue, False);
    SaveStringToFile(ExpandConstant('{app}\Files\ops.txt'), AnsiString(UnicodeStr), False);
  end;
end;

 

[LexBell]

Еще проще, если файл имеет структуру ini, что очен похоже, можно использовать встроенные средства работы с ini файлами

 

[Доктор ВОВАН]

LexBell, точно не ини. простой текст файл.
вопрос решился отлично тк. нужно было еще "" кавычки добавить. "{pf}\my prog" Может кому пригодится. Спасибо товарисчу Gnom_aka_Lexander

StringChangeEx(UnicodeStr, 'DSTCOPY', 'DSTCOPY = "'+ExpandConstant('{app}')+'"', False

Nemko, Здоровья и Удачи Вам. Спасибо.