convert "<>" into "[]" in pin names

hi all,

I found above code in cadence library. The actual code is below.  It converts label "Aenu<23>" into "Aenu<23>[23]". But i need to convert label  "Aenu<23>" into "Aenu[23]".

;*Title:       ; How to change Pin labels from "<>" to "["
; Name: CCSchangeLabelDelimiter.il
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Save this code to a file such as CCSchangeLabelDelimiter.il
; and then load in CIW as
; load("CCSchangeLabelDelimiter.il").
; Then type CCSchangeLabelDelimiter() in CIW.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
procedure(CCSchangeLabelDelimiter()
 let( (cv mylabels myUniquelabels tmpcv labelText name
      index newlab)
      ;;cv = geGetEditCellView()
      cv = dbOpenCellViewByType("venu" "practice"
      "layout" nil "a")
      ;;search the cell hierarchy for labels that start
      ;with "A" and end with ">"
      ;;The third argument defines the number of hierarchy
         ;levels you wish to search
         mylabels=leSearchHierarchy( cv cv~>bBox 32
         "label"
         list( list( "text" "==" "^A" ) list("text"
         "==" ">$"))
         )
      ;;create a list of unique labels
         myUniquelabels = nil
         foreach(x mylabels
         unless(member(x myUniquelabels)
         myUniquelabels = cons(x
         myUniquelabels)
         )
         )
         foreach(lab myUniquelabels
         labelText =
         lab~>theLabel
         name =
         car(parseString(labelText
         "["))
         index=
         car(parseString(cadr(parseString(labelText
         "<")) ">"))
         newlab=
         buildString(list(buildString(list(name
         index ) "[") "]") "")
         printf("Original Label was %s\n"
         labelText)
         printf("The new Label would be
         %s\n" newlab)
         ;;if label is not in top level, we need to
         ;open the instance master in edit
         ;;mode to modify the label
         if(lab~>cellView~>cellName !=
         cv~>cellName then
         tmpcv =
         dbOpenCellViewByType(lab~>cellView~>libName
         lab~>cellView~>cellName
         lab~>cellView~>viewName
         nil "a")
         ;;println(lab~>name)
         lab~>theLabel = newlab
         dbSave(tmpcv)
         dbClose(tmpcv)
         )
         ;; for top level labels
         ;;println(lab~>name)
         lab~>theLabel = newlab
         )
         dbSave(cv)
         dbClose(cv)
         );let
         );procedure
;
; Save this code to a file such as CCSchangeLabelDelimiter.il
; Load in the Virtuoso CIW using load("CCSchangeLabelDelimiter.il")
; Then type CCSchangeLabelDelimiter() in the CIW.
;
;; End of CCSchangeLabelDelimiter.il
 

hi all,

I found above code in cadence library. The actual code is below.  It converts label "Aenu<23>" into "Aenu<23>[23]". But i need to convert label  "Aenu<23>" into "Aenu[23]".

;*Title:       ; How to change Pin labels from "<>" to "["
; Name: CCSchangeLabelDelimiter.il
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Save this code to a file such as CCSchangeLabelDelimiter.il
; and then load in CIW as
; load("CCSchangeLabelDelimiter.il").
; Then type CCSchangeLabelDelimiter() in CIW.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
procedure(CCSchangeLabelDelimiter()
 let( (cv mylabels myUniquelabels tmpcv labelText name
      index newlab)
      ;;cv = geGetEditCellView()
      cv = dbOpenCellViewByType("venu" "practice"
      "layout" nil "a")
      ;;search the cell hierarchy for labels that start
      ;with "A" and end with ">"
      ;;The third argument defines the number of hierarchy
         ;levels you wish to search
         mylabels=leSearchHierarchy( cv cv~>bBox 32
         "label"
         list( list( "text" "==" "^A" ) list("text"
         "==" ">$"))
         )
      ;;create a list of unique labels
         myUniquelabels = nil
         foreach(x mylabels
         unless(member(x myUniquelabels)
         myUniquelabels = cons(x
         myUniquelabels)
         )
         )
         foreach(lab myUniquelabels
         labelText =
         lab~>theLabel
         name =
         car(parseString(labelText
         "["))
         index=
         car(parseString(cadr(parseString(labelText
         "<")) ">"))
         newlab=
         buildString(list(buildString(list(name
         index ) "[") "]") "")
         printf("Original Label was %s\n"
         labelText)
         printf("The new Label would be
         %s\n" newlab)
         ;;if label is not in top level, we need to
         ;open the instance master in edit
         ;;mode to modify the label
         if(lab~>cellView~>cellName !=
         cv~>cellName then
         tmpcv =
         dbOpenCellViewByType(lab~>cellView~>libName
         lab~>cellView~>cellName
         lab~>cellView~>viewName
         nil "a")
         ;;println(lab~>name)
         lab~>theLabel = newlab
         dbSave(tmpcv)
         dbClose(tmpcv)
         )
         ;; for top level labels
         ;;println(lab~>name)
         lab~>theLabel = newlab
         )
         dbSave(cv)
         dbClose(cv)
         );let
         );procedure
;
; Save this code to a file such as CCSchangeLabelDelimiter.il
; Load in the Virtuoso CIW using load("CCSchangeLabelDelimiter.il")
; Then type CCSchangeLabelDelimiter() in the CIW.
;
;; End of CCSchangeLabelDelimiter.il