megarom
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребяты, а такая штука отработает?
Код:
==СОДЕ секция==
Const
Cp='.\ASC\code\company_and_passw.txt';
Rt='.\ASC\code\readme_template.txt';
Rn='.\ASC\code\readme.txt';
Var
Cptempstrarray,Rttempstrarray: TArrayOfString;
ReadmeFileName, CompanyName, Password: String;
i, j, PosChrTab: Integer;
Procedure MakeFileName();
begin
Try
LoadStringsFromFile(Cp,Cptempstrarray);
except
MsgBox('Loaded the '+Cp+' file.', mbInformation, mb_Ok);
end;
LoadStringsFromFile(Rt,Rttempstrarray);
for i:=1 to GetArrayLength(Cptempstrarray) do
begin
CompanyName:='';
PosChrTab:=Pos(' ',Cptempstrarray[i]);
CompanyName:=RemoveQuotes(Copy(Cptempstrarray[i],1,PosChrTab));
Password:='';
Password:=Copy(Cptempstrarray[i],PosChrTab,Length(Cptempstrarray[i])-PosChrTab);
For j:=1 to GetArrayLength(Rttempstrarray) do
begin
If Pos('COMPANYNAME',Rttempstrarray[j])>0 then
begin
StringChange(Rttempstrarray[j],'COMPANYNAME',CompanyName);
ReadmeFileName:=Rn+'_'+CompanyName;
FileCopy(Rt,ReadmeFileName,False);
SaveStringsToFile(ReadmeFileName,Rttempstrarray,False);
end;
end;
end;
end;
begin
MakeFileName();
end.
|
Короче мне надо чтобы из одного файла брались названия и пароли,
вставлялись в файл ридми и этот файл собирался в дистрибутив.
Ну и соответственно надо чтобы скрипт отработал несколько раз и создал несколько инсталляшек, с разными ридми и паролями...
Помогите плиззз, а то я похоже не в ту степь полез. |
