How to format with GTL within vbscript ?

Question

hi,
i could not found a solution how to use the formating options from GTL within a vbscript
based on e.g. Attribute of a Model
on a Model => i execute a method
Sub %Method%(obj)
   output "CurrentTargetCode =" + "%CurrentTargetCode%"                 ' is working
   output "CODE-1 =" + "%Code%"                                                   ' i get not the code back ?
   output "CODE-2 =" + "%U:CurrentTargetCode%"                            ' is not upper case and not translated ?  
   output "CODE-3 =" + obj.code                                                     ' is working
   output "CODE-4 =" + obj.getattribute("code")                                 ' is working
   output "CODE-5 =" + obj.getattribute("%code%")                          ' raising an error
End Sub
nothin i could use to get an attribute formated back. 
what i realy want is this
output "CODE-7 =" + obj.getattribute("%-10.-3:.code%")          
is there a solution or tipp how to use it from vb scripting ?
/br
ps: i know i could use vbscript formating but i want to use the capability of PD.

Answer 1

Hi,
You need to use the "EvaluateTextFor" method to instanciate GTL processor withing VBScript.
change method content with
<<
output obj.EvaluateTextFor("CurrentTargetCode =" + "%CurrentTargetCode%")
output obj.EvaluateTextFor("CODE-1 =" + "%.L:Code%" )
output obj.EvaluateTextFor("CODE-2 =" + "%U:CurrentTargetCode%" )
output obj.EvaluateTextFor("CODE-3 =" + obj.code )
output obj.EvaluateTextFor("CODE-4 =" + obj.getattribute("code") )
>>
Marc
Edit: The output you expect should then be <<obj.EvaluateTextFor("%-10.-3:.Code%" )>>