Code: Select all

// This script will remove bit 8 in the active file.
// Works only on DOS files (not UTF/Unicode)

// Use perl regular expressions
UltraEdit.perlReOn();

// Start from the top
UltraEdit.activeDocument.top();

// Set up search defaults:
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;

// Search for all 8 bit chars 0x80-0xFF
while (UltraEdit.activeDocument.findReplace.find("[\\x80-\\xFF]")) {
 // get selected char
 var char = UltraEdit.activeDocument.selection;
 
 // remove bit 8
 var newChar = to7Bit(char);
 
 // Write the 7 bit char back into the document:
 UltraEdit.activeDocument.write(newChar);
}

// Return to the top
UltraEdit.activeDocument.top();

// inline function that removes bit 8 in the input line
function to7Bit(char) {
 // Get decimal character code 
 var dec = char.charCodeAt(0);
 
 // remove bit 8 using XOR bit operation (100000000 = 128 dec)
 var decxor = dec ^ 128;

 // return new char converting the decimal code with fromCharCode
 return String.fromCharCode(decxor);
}