Kinook Software Forum

Go Back   Kinook Software Forum > Visual Build Professional > [VBP] User Tips, Tricks and Samples
FAQ Community Calendar Today's Posts Search

 
 
Thread Tools Rating: Thread Rating: 2 votes, 3.00 average. Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 04-14-2010, 10:10 AM
HippyCraig HippyCraig is offline
Registered User
 
Join Date: 07-27-2006
Location: Philly
Posts: 211
Modify scripts with another script

I am working on a script to modify a batch of scripts in a folder, I have a script action as follows:

'Create Sub Call
Option Explicit

Dim objApp, objStep, objMacro

' create VisBuildPro app object
Set objApp = CreateObject("VisBuildSvr7.Application")
objApp.Project.Load "%PROCFILES_FULLPATH%"

Set objStep = objApp.Project.Steps(vbldStepMain).Add("Subroutine Call", 6)
objStep.Name = "Get Version History List"
objStep.Indent = 2
objStep.Property("SubName") = "SUB Get Version History List"
objStep.Property("Expand") = -1

objApp.Project.Save


When I run the script it modify's creates the following in a script file:

<step action='Subroutine Call'>
<Expand type='2'>-1</Expand>
<SubName>SUB Get Version History List</SubName>
<indent type='3'>2</indent>
<name>Get Version History List</name>
</step>


If I create the same step manually it looks like this:

<step action='Subroutine Call'>
<Expand type='11'>-1</Expand>
<SubName>SUB Get Version History List</SubName>
<indent type='3'>2</indent>
<name>Get Version History List</name>
</step>


The main difference between the two is teh type value of the Expand in one its 11 and when I create it through script its a value of 2

My question is what does the value of type represent and how do I change it? Also what is the type value in indent property represent?
Reply With Quote
 


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off



All times are GMT -5. The time now is 11:14 AM.


Copyright © 1999-2023 Kinook Software, Inc.