Code: Select all

if (UltraEdit.document.length > 1)  // At least 2 documents must be open.
{
   // Define the environment for the script.
   UltraEdit.insertMode();
   UltraEdit.columnModeOff();
   UltraEdit.perlReOn();
   var nCsvFileCnt = UltraEdit.document.length;;
   // If the last opened file is this script file, ignore that file.
   if (UltraEdit.document[nCsvFileCnt-1].path.indexOf(".js") > 0) nCsvFileCnt--;

   // Create already a new file to avoid display updates.
   UltraEdit.newFile();

   // Make sure that every CSV file ends with a line terminator
   // and set caret to start of line 2 in all CSV files.
   for (var nFileIndex = 0; nFileIndex < nCsvFileCnt; nFileIndex++)
   {
      UltraEdit.document[nFileIndex].bottom();
      if (UltraEdit.document[nFileIndex].isColNumGt(1))
      {
         UltraEdit.document[nFileIndex].insertLine();
      }
      UltraEdit.document[nFileIndex].gotoLine(2,1);
      // Define once the find parameters use for all finds and make
      // the Perl regular expression engine active for the finds.
      UltraEdit.document[nFileIndex].findReplace.mode=0;
      UltraEdit.document[nFileIndex].findReplace.matchCase=true;
      UltraEdit.document[nFileIndex].findReplace.matchWord=false;
      UltraEdit.document[nFileIndex].findReplace.regExp=true;
      UltraEdit.document[nFileIndex].findReplace.searchDown=true;
   }

   // Get header line from first file.
   UltraEdit.document[0].top();
   UltraEdit.document[0].selectLine();
   var sHeader = UltraEdit.document[0].selection;
   var sLineTerm = "\r\n";

   // In the main loop the first string at start at line is selected
   // with a regular expression search. This loop is executed until
   // there is no line anymore with a double quoted string at start
   // of the line (= end of file reached).
   while (UltraEdit.document[0].findReplace.find('^".*?"'))
   {
      var sName = UltraEdit.document[0].selection;
      var_dump(sName);
      UltraEdit.document[0].gotoLine(1,1);
      var sList = UltraEdit.document[0].path + sLineTerm + sHeader;

      // The Perl regular expression below selects multiple lines
      // starting with same string. Usually a single search should
      // be enough to find all lines starting with that string if the
      // lines are sorted. But for security the search is executed
      // within a loop to really find and select all lines starting
      // with that string although this makes the script slower.
      var sSearch = "^(:?" + sName + ".*\\r\\n)+";

      // Get all lines starting with current name from all files. It
      // is important the lines in all files are sorted alphabetically.
      var nFileIndex = 0;
      do
      {
         while (UltraEdit.document[nFileIndex].findReplace.find(sSearch))
         {
            sList += UltraEdit.document[nFileIndex].selection;
         }
         // Discard the selection in active file.
         UltraEdit.document[nFileIndex].key("HOME");
         // Prepare output for the next file.
         if (++nFileIndex < nCsvFileCnt)
         {
            sList += sLineTerm + UltraEdit.document[nFileIndex].path + sLineTerm + sHeader;
         }
      }
      while (nFileIndex < nCsvFileCnt);

      // Write into new file the results list and save the file.
      UltraEdit.activeDocument.write(sList);
      var sFileName = sName.substr(1,sName.length-2) + ".csv";
      UltraEdit.saveAs(sFileName);
      // Close the just saved file with the results of current run.
      UltraEdit.closeFile(UltraEdit.activeDocument.path,2);
      UltraEdit.newFile();
   }
   // After processing all lines of first file close
   // the reaining not needed new file without saving it.
   UltraEdit.closeFile(UltraEdit.activeDocument.path,2);
}