Code: Select all

if (UltraEdit.document.length >= 2)  // Are at least 2 files opened?
{
   // Define the environment for the script.
   UltraEdit.insertMode();
   if (typeof(UltraEdit.columnModeOff) == "function") UltraEdit.columnModeOff();
   else if (typeof(UltraEdit.activeDocument.columnModeOff) == "function") UltraEdit.activeDocument.columnModeOff();
   UltraEdit.perlReOn();

   // The first opened file - most left in open file tabs bar - must
   // be the large data file with the millions of rows (lines).

   // Define the parameter for the case sensitive Perl regular expression
   // finds executed in the loop below for each line in list file.
   UltraEdit.document[0].findReplace.mode=0;
   UltraEdit.document[0].findReplace.matchCase=true;
   UltraEdit.document[0].findReplace.matchWord=false;
   UltraEdit.document[0].findReplace.regExp=true;
   UltraEdit.document[0].findReplace.searchDown=true;
   UltraEdit.document[0].findReplace.searchInColumn=false;

   // Move caret in data file to top of file.
   UltraEdit.document[0].top();

   // The second opened file must be the list file containing the lines
   // to search for in data file. It must be small enough to load it
   // completely into memory as an array of strings for this script.

   // This file is made active which avoids display updates on first file
   // if document windows are displayed maximized on script start. Frequent
   // display updates result in a much longer script execution time.
   UltraEdit.document[1].setActive();

   UltraEdit.document[1].selectAll();
   if (UltraEdit.document[1].isSel())
   {
      var sLineTerm;
      if (UltraEdit.document[1].lineTerminator <= 0) sLineTerm = "\r\n";
      else if (UltraEdit.document[1].lineTerminator == 1) sLineTerm = "\n";
      else sLineTerm = "\r";

      // Get the selected lines into as an array of strings.
      var asSearchData = UltraEdit.document[1].selection.split(sLineTerm);
      UltraEdit.document[1].top();  // Just for discarding the selection.

      // The finds in first file are done with the strings from list file
      // in reverse order to make it easy to remove all strings found in
      // data file from the array.
      nDataIndex = asSearchData.length;
      while(nDataIndex > 0)
      {
         nDataIndex--;
         // Is the next search string empty, remove it from array.
         if (asSearchData[nDataIndex].length == 0)
         {
            asSearchData.splice(nDataIndex,1);
         }
         else
         {  // A Perl regular expression is used to make sure to search
            // always for entire lines and not just substrings. This
            // requires data strings which do not contain characters with
            // special meaning in Perl regular expression search strings.
            sFindExp = "^" + asSearchData[nDataIndex] + "$";
            if (UltraEdit.document[0].findReplace.find(sFindExp))
            {
               // This line is found in data file, remove it from list.
               asSearchData.splice(nDataIndex,1);
               UltraEdit.document[0].top();
            }
         }
      }

      // Are there lines from list file not found in data file?
      if (asSearchData.length)
      {
         // Append an empty string to have finally the last
         // line in new file also with a line termination.
         asSearchData.push("");

         // Create a new file and determine type of line termination.
         UltraEdit.newFile();
         if (UltraEdit.activeDocument.lineTerminator <= 0) sLineTerm = "\r\n";
         else if (UltraEdit.activeDocument.lineTerminator == 1) sLineTerm = "\n";
         else sLineTerm = "\r";

         // Write all not found lines into new file line by line as one block.
         UltraEdit.activeDocument.write(asSearchData.join(sLineTerm));
         UltraEdit.activeDocument.top();
      }
      else
      {
         UltraEdit.messageBox("All object identifiers from list file found in data file.","Object Identifiers Check");
      }
   }
}