You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
108 lines
5.5 KiB
108 lines
5.5 KiB
<!--
|
|
VBScript used to generate wival.inc from a Windows Installer schema.msi
|
|
|
|
wival.inc is used by the candle compiler for the _Validation table
|
|
data
|
|
|
|
2000/02/17 - created - [email protected]
|
|
-->
|
|
<job id='wi_compile'>
|
|
<!-- main -->
|
|
<script Language='VBScript'>
|
|
'Option Explicit
|
|
|
|
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
|
|
Set ts = fso.CreateTextFile("wival.inc", True)
|
|
Set Installer = WScript.CreateObject("WindowsInstaller.Installer")
|
|
Set db = Installer.OpenDatabase("schema.msi", 0)
|
|
|
|
Set vw = db.OpenView("SELECT * FROM `_Validation` ORDER BY `Table`")
|
|
vw.Execute
|
|
|
|
ts.WriteLine "'<script language='VBScript'>"
|
|
ts.WriteLine "' wival.inc - Windows Installer _Validation table definitions"
|
|
ts.WriteLine "'"
|
|
ts.WriteLine "' " & Now & " - created - val.wsf (tool by [email protected])"
|
|
ts.WriteLine "'"
|
|
ts.WriteLine "' requires:"
|
|
ts.WriteLine "' none"
|
|
ts.WriteLine "'"
|
|
ts.WriteLine "' entrypoints:"
|
|
ts.WriteLine "' AddValidation"
|
|
ts.WriteLine "'" & vbCrLf
|
|
|
|
ts.WriteLine "Dim val_dicValidation : Set val_dicValidation = CreateObject(""Scripting.Dictionary"")"
|
|
|
|
i = 0
|
|
sTable = Empty
|
|
Set rec = vw.Fetch
|
|
Do Until rec Is Nothing
|
|
If sTable <> rec.StringData(1) Then
|
|
If Not IsEmpty(sTable) Then
|
|
ts.WriteLine "Dim val_" & sTable & "(" & i - 1 & ")"
|
|
ts.Write s
|
|
ts.WriteLine "val_dicValidation.Add """ & sTable & """, val_" & sTable & vbCrLf
|
|
End If
|
|
|
|
i = 0
|
|
s = ""
|
|
sTable = rec.StringData(1)
|
|
End If
|
|
|
|
' s = s & "val_" & sTable & "(" & i & ") = ""INSERT INTO `_Validation`(`Table`, `Column`, `Nullable`, `MinValue`, `MaxValue`, `KeyTable`, `KeyColumn`, `Category`, `Set`, `Description`) VALUES("
|
|
' s = s & "'" & rec.StringData(1) & "', '" & rec.StringData(2) & "', '" & rec.StringData(3) & "', " & rec.IntegerData(4) & ", " & rec.IntegerData(5) & ", '"
|
|
' s = s & rec.StringData(6) & "', " & rec.IntegerData(7) & ", '" & rec.StringData(8) & "', '" & rec.StringData(9) & "', '" & Replace(Replace(rec.StringData(10), """", """"""), "'", "") & "')""" & vbCrLf
|
|
|
|
s = s & "val_" & sTable & "(" & i & ") = ""'" & rec.StringData(1) & "'&&'" & rec.StringData(2) & "'&&'" & rec.StringData(3) & "'&&'" & rec.StringData(4) & "'&&'" & rec.StringData(5)
|
|
s = s & "'&&'" & rec.StringData(6) & "'&&'" & rec.StringData(7) & "'&&'" & rec.StringData(8) & "'&&'" & rec.StringData(9) & "'&&'" & Replace(rec.StringData(10), """", """""") & "'""" & vbCrLf
|
|
|
|
' s = s & "val_" & sTable & "_Table(" & i & ") = """ & rec.StringData(1) & """" & vbCrLf
|
|
' s = s & "val_" & sTable & "_Column(" & i & ") = """ & rec.StringData(2) & """" & vbCrLf
|
|
' s = s & "val_" & sTable & "_Nullable(" & i & ") = """ & rec.StringData(3) & """" & vbCrLf
|
|
' s = s & "val_" & sTable & "_MinValue(" & i & ") = """ & rec.StringData(4) & """" & vbCrLf
|
|
' s = s & "val_" & sTable & "_MaxValue(" & i & ") = """ & rec.StringData(5) & """" & vbCrLf
|
|
' s = s & "val_" & sTable & "_KeyTable(" & i & ") = """ & rec.StringData(6) & """" & vbCrLf
|
|
' s = s & "val_" & sTable & "_KeyColumn(" & i & ") = """ & rec.StringData(7) & """" & vbCrLf
|
|
' s = s & "val_" & sTable & "_Category(" & i & ") = """ & rec.StringData(8) & """" & vbCrLf
|
|
' s = s & "val_" & sTable & "_Set(" & i & ") = """ & rec.StringData(9) & """" & vbCrLf
|
|
' s = s & "val_" & sTable & "_Description(" & i & ") = """ & Replace(rec.StringData(10), """", """""") & """"' & vbCrLf
|
|
|
|
|
|
i = i + 1
|
|
|
|
Set rec = vw.Fetch
|
|
Loop
|
|
|
|
If Not IsEmpty(sTable) Then
|
|
ts.WriteLine "Dim val_" & sTable & "(" & i - 1 & ")"
|
|
ts.WriteLine s
|
|
ts.WriteLine "val_dicValidation.Add """ & sTable & """, val_" & sTable
|
|
End If
|
|
|
|
ts.WriteLine vbCrLf & "Sub AddValidation(installer, db, sTable, fVerbose)"
|
|
ts.WriteLine vbTab & "Dim vw, rec, arrSplit"
|
|
ts.WriteLine vbTab & "' create the validation table if necessary"
|
|
ts.WriteLine vbTab & "If db.TablePersistent(""_Validation"") = 2 Then"
|
|
ts.WriteLine vbTab & vbTab & "Set vw = db.OpenView(""CREATE TABLE _Validation(`Table` CHAR(32) NOT NULL, `Column` CHAR(32) NOT NULL, `Nullable` CHAR(4) NOT NULL, `MinValue` LONG, `MaxValue` LONG, `KeyTable` CHAR(255), `KeyColumn` SHORT, `Category` CHAR(32), `Set` CHAR(255), `Description` CHAR(255) PRIMARY KEY `Table`, `Column`)"")"
|
|
ts.WriteLine vbTab & vbTab & "vw.Execute"
|
|
ts.WriteLine vbTab & vbTab & "AddValidation installer, db, ""_Validation"", fVerbose"
|
|
ts.WriteLine vbTab & "End If"
|
|
ts.WriteLine vbTab & "If val_dicValidation.Exists(sTable) Then"
|
|
ts.WriteLine vbTab & vbTab & "Dim i, arTable : arTable = val_dicValidation.Item(sTable)"
|
|
ts.WriteLine vbTab & vbTab & "Set vw = db.OpenView(""SELECT `Table`, `Column`, `Nullable`, `MinValue`, `MaxValue`, `KeyTable`, `KeyColumn`, `Category`, `Set`, `Description` FROM `_Validation`"")"
|
|
ts.WriteLine vbTab & vbTab & "vw.Execute"
|
|
ts.WriteLine vbTab & vbTab & "Set rec = installer.CreateRecord(10)"
|
|
ts.WriteLine vbTab & vbTab & "For i = 0 To UBound(arTable)"
|
|
ts.WriteLine vbTab & vbTab & vbTab & "If fVerbose Then WScript.Echo arTable(i)"
|
|
ts.WriteLine vbTab & vbTab & vbTab & "arrSplit = Split(arTable(i), ""&&"")"
|
|
ts.WriteLine vbTab & vbTab & vbTab & "For j = 0 To UBound(arrSplit)"
|
|
' ts.WriteLine vbTab & vbTab & vbTab & "db.OpenView(arTable(i)).Execute"
|
|
ts.WriteLine vbTab & vbTab & vbTab & vbTab & "rec.StringData(j + 1) = Mid(arrSplit(j), 2, Len(arrSplit(j)) - 2)"
|
|
ts.WriteLine vbTab & vbTab & vbTab & "Next"
|
|
ts.WriteLine vbTab & vbTab & vbTab & "vw.Modify 1, rec"
|
|
ts.WriteLine vbTab & vbTab & "Next"
|
|
ts.WriteLine vbTab & "End If"
|
|
ts.WriteLine "End Sub"
|
|
|
|
</script>
|
|
</job>
|