Exporting Hyperion Business Rules as Text files

Question

Hyperion 9.3.1 installtion...
Does anyone have any nifty scripts or techniques for getting the HBR code out into flat files (ideally named as the Rule)...
I Know you can export via AAS, but all I want is the raw code so I can use some differencing tools on them.
Basically I've rules being changed in Prod, and Dev, and need to manage the situation.
Using the individual export option is painfully slow with 100+ rules.
Surely there is a way to query the [dbo].*AAS.HBRRules* table feild '*Body*' which is of type 'Image' and convert it into ASCII ?
Anyone done such a thing? or automated the export facility?
Cheers,
BossHogg.

Answer 1

Here is my variant on it.
It differs in that it accepts command line parameters for SQLServer, Output Dir (defaults to {Desktop}\Rules) & DBName (defaults to AAS). It also has header size changed to 201 which works here. Finaly some of the EOF checks have been fixed as the original posting seems to have lost the 'not equals' characters...
I Save this as HBRulesExport.vbs the execute it via a batch script twice using 'start /w ....' to export Dev & Prod to two seperate dirs for comparison.
'Force "cscript"
Dim numRules
Dim ID
Dim length
Dim index
Dim headerSize
Dim fileName
Dim rule
Dim DirPath
Dim SQLSERVER
Dim DBCAT
'ORIGINAL :- headerSize = 233
headerSize = 201
Set fs = CreateObject("Scripting.FileSystemObject")
Set rs = CreateObject("ADODB.Recordset")
Set cnSS = CreateObject("ADODB.Connection")
Set shellObj = CreateObject( "WScript.Shell" )
If Wscript.Arguments.Count < 1 Then
     MsgBox "This script requires at least a SQLServer DB name to get to HBRules. Parms are as follows..." & vbCrLf & vbCrLf & Wscript.ScriptFullName & " {SQL Server Name} [{OutputPath}] [{Db Name}]"
     Wscript.Quit 1
Else
     SQLSERVER = Wscript.Arguments(0)
     If Wscript.Arguments.Count = 3 Then
          DBCAT = Wscript.Arguments(2)
          DirPath = Wscript.Arguments(1)
     Else
          DBCAT = "AAS"
          If Wscript.Arguments.Count = 2 Then
               DirPath = Wscript.Arguments(1)
          Else
               DirPath = shellObj.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\rules"
          End if
     End if
End If
if (fs.FolderExists(DirPath) = False) Then
     fs.CreateFolder (DirPath)
End If
cnSS.Open "Provider=sqloledb;" & "Data Source=" & SQLSERVER & ";" & "Initial Catalog=" & DBCAT & ";" & "Integrated Security=SSPI"
strQuery = "Select max(id) from hbrrules"
rs.Open strQuery, cnSS
If (Not rs.EOF) Then
     numRules = rs.fields(0)
     For ID = 1 To numRules
          rule = ""
          strQuery = "Select name from hbrrules where id=" & ID
          rs.Close
          rs.Open strQuery, cnSS
          If (Not rs.EOF) Then
               fileName = rs.fields(0)
               rs.Close
               strQuery = "Select body from hbrrules where id=" & ID
               Set rulefile = fs.CreateTextFile(DirPath & "\" & fileName & ".hbr", True, True)
               rs.Open strQuery, cnSS
               If (Not rs.EOF) Then
                    length = rs.fields(0).ActualSize
                    For count = 1 To length - headerSize - 5
                         index = count + headerSize
                         character=AscB(MidB(rs.fields(0).Value, index, 1))
                         If Character = 10 Then
                              rule = rule & VBNEWLINE
                         Else
                              ' Filter for normal ASCII character range
                              If (Character > 31) And (character < 127) then
                                   rule = rule & Chr(Character)
                              Else
                                   rule = rule & " "
                              End if
                         End If
                    Next
                    rulefile.WriteLine(rule)
                    rulefile.Close
               End If
          End If
     Next
     MsgBox "Finished extracting HBRules from " & DBCAT & " on server " & SQLSERVER & vbCrLf & "Extracted " & numRules & " to Dir - " & DirPath
Else
     MsgBox "Query of DB " & DBCAT & " on server " & SQLSERVER & " - Returned no rows"
End If
rs.Close
'CODE ENDS
Edited by: djhogg on 09-Dec-2008 06:30