//RecordFindChange_CS3.js  
//An InDesign CS3 JavaScript  
//Writes the current find/change preferences to a text file so that you can copy/paste  
//them into a find/change list file.  
 
String.prototype.cleanProps = function ()  
{ 
	var s = this; 
	s = s.replace(/, /g,'\r'); 
	s = s.replace(/\({/g,''); 
	s = s.replace(/}\)/g,''); 
	s = s.replace(/1851876449/g,''); 
	s = s.replace(/\"\"/g,''); 
	s = s.replace(/parent:resolve\(\"\/\"\)/g,''); 
	return s; 
} 
 
 
var myResult;  
var myFindTextProperties = app.findTextPreferences.properties;  
var myChangeTextProperties = app.changeTextPreferences.properties;  
myFindTextProperties = myFindTextProperties.toSource().cleanProps();  
myChangeTextProperties = myChangeTextProperties.toSource().cleanProps();  
 
var myFindGrepProperties = app.findGrepPreferences.properties;  
var myChangeGrepProperties = app.changeGrepPreferences.properties;  
myFindGrepProperties = myFindGrepProperties.toSource().cleanProps();  
myChangeGrepProperties = myChangeGrepProperties.toSource().cleanProps();  
 
var myFile = myGetFileName();  
if(myFile!=""){  
	//Open the file for writing.  
	myResult = myFile.open("w", undefined, undefined);  
	if(myResult != false){	  
		myFile.writeln("//FindTextProperties:");		  
		myFile.writeln(myFindTextProperties);  
		myFile.writeln("\r//ChangeTextProperties:");		  
		myFile.writeln(myChangeTextProperties);  
		myFile.writeln("\r\r\r//FindGrepProperties:");		  
		myFile.writeln(myFindGrepProperties);  
		myFile.writeln("\r//ChangeGrepProperties:");		  
		myFile.writeln(myChangeGrepProperties);  
		myFile.close();  
	}  
}  
function myGetFileName(){  
	if(File.fs != "Macintosh"){  
		//Filter files by extension.  
		var myFile = File.saveDialog("Save Text File As:", "Text Files:*.txt;All Files:*")  
	}  
	else{  
		var myFile = File.saveDialog("Save Text File As:")  
	}  
	return myFile;  
} 

String.prototype.cleanProps = function ()  
{ 
	var s = this; 
	s = s.replace(/, /g,'\r'); 
	s = s.replace(/\({/g,''); 
	s = s.replace(/}\)/g,''); 
	s = s.replace(/[\w]+:1851876449/g,''); 
	s = s.replace(/[\w]+:\"\"/g,''); 
	s = s.replace(/[\w]+:null/g,''); 
	s = s.replace(/\r\r+/g,'\r'); 
	s = s.replace(/\"\"/g,''); 
	s = s.replace(/parent:resolve\(\"\/\"\)/g,''); 
	return s; 
} 

[\w]+:1851876449 

^[\w]+:1851876449$ 

bulletChar:resolve("/@find-text-preferences/@bullet-char") 

[^\r]+@[^\r]+