Re[5]: вопрос от новичка. помогите! как починить кривую посл
От: Eugen_Stogniy  
Дата: 19.10.07 15:33
Оценка:
А>Кажется поняла, почему у меня не происходит апгрейд. Ревизия у меня меняется только в дллках инсталлируемго продукта. В Product Properties у меня стоит Version=1.0.0 без четвертой цифры вообще. Я так написала, потому что не нашла как при каждом билде передавать новый revision number в проект. Не подскажете, как с этим побороться?

Я боролся ВБскриптовым файлом — который открывает как текстовый файл хмл ИнсталлШилда и вставляет в значение Версион намбер новый номер

fname2 — путь к файлу инсталлшилда

versionit — 3 цифра

versionbuild — 4 цифра

iterationXX -Константа с 1 и 2 цифрой
Sub WriteNewVersion (fname2, versionit, versionbuild)
    Dim VersionNumber
    Dim Line
   Dim startPos, endPos
   Dim f1, ts, fContent
   Dim originalVersion
   Dim nCount
   Dim text
   Line = "<row><td>ProductVersion</td><td>"
   
   Set f1 = fso.GetFile(fName2)
   Set ts = f1.OpenAsTextStream(ForReading, TristateUseDefault)
   fContent = ts.ReadAll
   ts.Close
   
   startPos = InStr(1, fContent, Line, 1)
   endPos = InStr(startPos, fContent, "</td><td/></row>" , 1)
   startPos = startPos + Len(Line)
   result = Mid(fContent, startPos , endPos - startPos)
    VersionNumber = iterationXX & versionit & "." & versionbuild
        
    nCount = Len(VersionNumber)
    
    
  text = Replace(fContent, result, VersionNumber , 1, nCount, 1)
          
  Set f1 = fso.GetFile(fName2)
  Set ts = f1.OpenAsTextStream(ForWriting, TristateUseDefault)
  ts.Write(text)
  ts.Close
     
     
     
 End Sub
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.