// This script file is licensed under a Creative Commons
// Attribution 4.0 International License (cc by 4.0):
// http://creativecommons.org/licenses/by/4.0/
// You may adapt and/or share this script file for any purpose,
// provided you give credit to http://bridgecomposer.com
//
//  This script clears the commentary in all boards in a PBN file.
//  Caution: There is no undo (unless you call this from the BC Script menu).
//
//  $Id: CommentaryClear.wsf 7 2021-04-07 00:32:26Z Ray $
<job>
<script language="JScript" src="BCConst.js" />
<script language="JScript">
var nMod = 0;

function Clear(bd, section)
{
  if (bd.Commentary(section) !== '') {
    bd.Commentary(section) = '';
    ++nMod;
  }
}

(function ()
{
  var bc = WScript.CreateObject('BridgeComposer.Object');
  if (WScript.Arguments.length > 0) {
    bc.Open(WScript.Arguments(0));
  } else {
    if (!bc.Open()) WScript.Quit();
  }
  var bds = bc.Boards;
  while (bds.MoveNext()) {
    var bd = bds.Current;
    
    //  Customization: You may skip clearing a specific commentary section
    //  (in all boards) by commenting out the corresponding line below.
    //  (That is, edit the line to begin with two slashes: //.)
    
    Clear(bd, CMTY_EVENT);
    Clear(bd, CMTY_DIAGRAM);
    Clear(bd, CMTY_AUCTION);
    Clear(bd, CMTY_FINAL);
  }
  
  if (nMod)
  {
    bc.Save();
  }
})();
</script>
</job>