I want to delete tags from all files except one tag SEEDS2TBLK

I want to delete sets tags from all files except one ast tag which is seed2blk. Can someone help me with this .

I have 100s of files and i i want only one tag SEEDS2TBLK and remove all other tags from all files in a one process don't want to go manually for every file 

Is it possible to do with keyin or project manager ?

Please check the screenshot on tags

Please can anyone

  • I appreciate any answer to my question 
Parents
  • If all files use same tagsets then there is one option with old v8 MSMACRO to open dialog and delete tags using dialog buttons.

    See this example it does the opposite but could help.

    Sub main
        Dim startPoint As MbePoint
        Dim point As MbePoint, point2 As MbePoint
    
    '   Start a command
        MbeSendCommand "DIALOG MDL "
        
    
        MbeSendCommand "MDL SILENTLOAD TAGS DEFINE;DMSG FOCUSDIALOG 1 TAGS;VBA EXECUTE Sendkeys ""%FIT"""
    
    mbemacro.suspend
    MbeState.modalDialogByUser=1
    '   Opened modal dialog "Open Tag Library"
    '   Opened modal dialog "Import Sets"
    '   MbeSendCommand "MBE1 CLOSEMODAL OK"
    
        MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\V8i_Workspaces\WorkSpace\Projects\ATIS\data\"
    
        MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd ATIS_Tagset.tlb"
        
        
    
    '   Closed modal dialog "Open Tag Library"
       MbeSendCommand "MBE1 CLOSEMODAL OK"
    
    End Sub
     

    Another example how to move in dialog box using DMSG keyins.

    Sub main
       
    Mbesendcommand "set sharecell on"
    
    
    Mbesendcommand "DMSG FOCUSDIALOG CELLMAINTENANCE"
       Mbesendcommand "DMSG CURSOR RIGHT"
        Mbesendcommand "DMSG CURSOR RIGHT"
        Mbesendcommand "DMSG CURSOR RIGHT"
        Mbesendcommand "DMSG ACTION OKAY"
        
        Mbesendcommand "place cell"
    
        End Sub

    Afterwards this macro can be used on batch process but you will need v8i version.

Reply
  • If all files use same tagsets then there is one option with old v8 MSMACRO to open dialog and delete tags using dialog buttons.

    See this example it does the opposite but could help.

    Sub main
        Dim startPoint As MbePoint
        Dim point As MbePoint, point2 As MbePoint
    
    '   Start a command
        MbeSendCommand "DIALOG MDL "
        
    
        MbeSendCommand "MDL SILENTLOAD TAGS DEFINE;DMSG FOCUSDIALOG 1 TAGS;VBA EXECUTE Sendkeys ""%FIT"""
    
    mbemacro.suspend
    MbeState.modalDialogByUser=1
    '   Opened modal dialog "Open Tag Library"
    '   Opened modal dialog "Import Sets"
    '   MbeSendCommand "MBE1 CLOSEMODAL OK"
    
        MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\V8i_Workspaces\WorkSpace\Projects\ATIS\data\"
    
        MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd ATIS_Tagset.tlb"
        
        
    
    '   Closed modal dialog "Open Tag Library"
       MbeSendCommand "MBE1 CLOSEMODAL OK"
    
    End Sub
     

    Another example how to move in dialog box using DMSG keyins.

    Sub main
       
    Mbesendcommand "set sharecell on"
    
    
    Mbesendcommand "DMSG FOCUSDIALOG CELLMAINTENANCE"
       Mbesendcommand "DMSG CURSOR RIGHT"
        Mbesendcommand "DMSG CURSOR RIGHT"
        Mbesendcommand "DMSG CURSOR RIGHT"
        Mbesendcommand "DMSG ACTION OKAY"
        
        Mbesendcommand "place cell"
    
        End Sub

    Afterwards this macro can be used on batch process but you will need v8i version.

Children
No Data