Code: Select all

if (UltraEdit.document.length > 0)  // Is any file opened?
{
   var asStrings = [ "word1", "string2", "one more string", "etc\\." ];

   // Define environment for this script.
   UltraEdit.insertMode();
   if (typeof(UltraEdit.columnModeOff) == "function") UltraEdit.columnModeOff();
   else if (typeof(UltraEdit.activeDocument.columnModeOff) == "function") UltraEdit.activeDocument.columnModeOff();

   // Make sure the last line of file has also a line termination.
   UltraEdit.activeDocument.bottom();
   if (UltraEdit.activeDocument.isColNumGt(1))
   {
      UltraEdit.activeDocument.insertLine();
      // If last line has indenting whitespaces and auto-indent feature
      // is enabled, UltraEdit inserts not only the line termination,
      // but also the indenting spaces/tabs which must be removed to
      // let the file really end with a line termination.
      if (UltraEdit.activeDocument.isColNumGt(1))
      {
         UltraEdit.activeDocument.deleteToStartOfLine();
      }
   }

   // Define the parameters for Perl regular expression Replace All deleting
   // all lines containing one of the strings in the array defined above.
   UltraEdit.perlReOn();
   UltraEdit.activeDocument.findReplace.mode=0;
   UltraEdit.activeDocument.findReplace.matchCase=false;
   UltraEdit.activeDocument.findReplace.matchWord=false;
   UltraEdit.activeDocument.findReplace.regExp=true;
   UltraEdit.activeDocument.findReplace.searchDown=true;
   UltraEdit.activeDocument.findReplace.searchInColumn=false;
   UltraEdit.activeDocument.findReplace.preserveCase=false;
   UltraEdit.activeDocument.findReplace.replaceAll=true;
   UltraEdit.activeDocument.findReplace.replaceInAllOpen=false;

   // Run the following loop until all strings from array at top of this
   // script was used in the Perl regular expression Replace All executed
   // inside the loop to delete the lines containing one of the strings.
   var nNextStringIndex = 0;
   while (nNextStringIndex < asStrings.length)
   {
      // A Perl OR expression is used to delete lines containing one of the
      // strings defined at top of this script. But as number of strings in
      // an OR expression is not unlimited (depends on length of the strings),
      // the number for OR expression is set to a maximum of 50 per loop run.
      var nStringsForThisReplace = asStrings.length - nNextStringIndex;
      if (nStringsForThisReplace > 50) nStringsForThisReplace = 50;
      var nLastStringIndex = nNextStringIndex + nStringsForThisReplace;

      // Extract (copy) the first 50 strings or all remaining from array
      // of strings into a new array which is joined to a single string
      // with | which is the OR operator in a Perl regular expression.
      var sPerlRegExOR = asStrings.slice(nNextStringIndex,nLastStringIndex).join("|");

      // Build the entire Perl regular expression search string which finds
      // entire lines containing one of the strings in the OR expression.
      // All 3 types of line terminations (DOS/UNIX/MAC) are supported.
      var sPerlRegExSearch = "^.*(?:" + sPerlRegExOR + ").*(?:\\r?\\n|\\r)";

      // Move caret to top of file. It should be enough to do that once
      // outside the loop, but for safety it is done inside the loop.
      UltraEdit.activeDocument.top();

      // Run the Perl regular expression Replace all deleting all lines
      // completely containing one of the strings from array at top.
      UltraEdit.activeDocument.findReplace.replace(sPerlRegExSearch,"");

      // Set the index in string array to next string to process.
      nNextStringIndex = nLastStringIndex;
   }
}