var BUFFER,BUFTEMP,M_BUFFER;
var MYURL1="http://localhost:9080/_WEBS/CHATOX.COM/www/regexp/";
var MYURL3="http://www.chatox.com/regexp/";
var MYURL=MYURL1;
var SNC=1;
var ns4=document.layers;
var ns6=document.getElementById&&!document.all;
var ieV=false;
if (document.all){p=navigator.appVersion.substr(navigator.appVersion.indexOf("MSIE "));n=p.substr(5,p.indexOf(";")-5);ieV=parseFloat(n);}
var lang;
function LeeParams(){
myLnk=self.location.href;f=myLnk.split("\?"); myPar=f[1];
if(!myPar || myPar==null) {return false;}
f=myPar.split("\&");fc=0;for(i in f){f2=f[i].split("\=",2);evtxt=f2[0]+"=unescape('"+f2[1]+"');";eval(evtxt);fc++;}
}

// DR=Lee ID , DW=Escribe ID
function DR(x){evtxt=ns6?"document.getElementById('"+x+"').innerHTML":"document.all('"+x+"').innerHTML";return eval(evtxt);}
function DW(x,x2){evtxt=ns6?"document.getElementById('"+x+"').innerHTML=x2":"document.all('"+x+"').innerHTML=x2";return eval(evtxt);}

function Textos(){
switch(lang){
 case "ES":
 TXTERROR1="ERROR: No se puede cargar el fichero ";
 TXTERROR2="ERROR: El Fichero NO EXISTE...";
 TXTERROR3="ERROR de sintaxis en el campo BUSCAR";
 TXTERROR4="* Plantilla NO encontrada *";
 TXTERROR5="*** ERROR EN LA GRABACION***\n\nCOMPRUEBA EL PATH Y NOMBRE DEL FICHERO A GRABAR\n\nRECUERDA QUE SOLO se puede grabar\nsobre un fichero en tu ordenador.";
 TXTERROR6="SE HA GRABADO CON EXITO EL FICHERO...\n\n"
 TXTMACROSINNOMBRE="SinNombre";
 TXTMACRONUEVA="-------<Nueva>--------";
 TXTMETODO="Metodo...";
 TXTEDITMACRO="======================= Sintaxis =======================\nCADENA BUSQUEDA...CADENA REEMPLAZAR###TITULO DE LINEA";
 TXTCONFIRMDELMACRO="Seguro de que deseas borrar";

 DW("TXT_TITULO","REGEXP Javascript v1.0");
 DW("TXT_BUSCAR","Buscar...");
 DW("TXT_SUSTITUIR","Sustituir...");
 DW("TXT_CODIGO_FUENTE","CODIGO FUENTE");
 DW("TXT_FICHURL","Fich/Url");
 DW("TXT_MISMODOM","(Si es Url debe estar bajo el mismo dominio)");
 DW("TXT_FOOTER","Válido para IE5+ NN6+ <b>(c) <a href=http://www.chatox.com>WWW.CHATOX.COM</a> Software 2004</b> - Lenguajes utilizados: Javascript<br>Este programa no necesita ningún lenguaje de servidor para funcionar. Sólamente usa Javascript (lenguaje de navegador)");
 DW("TXT_LINK","<a href=\"?lang=EN\">Show in English</a>");

 MF.XTXT_MATCH.value="/ejemplo/ig";
 MF.XTXT_REPLACE.value="CAMBIADO";

 MF.XCARGA_FICHERO.value="Cargar";
 MF.XASENTAR_DATOS.value="Asentar";
 MF.XRECUPERAR_DATOS.value="Recuperar";
 MF.XVISUALIZA_RESULTADOS.value="Refrescar";
 MF.XELIMINA_ORDENMACRO.value="Borr";
 MF.XCARGA_FICHMACRO.value="Carg";
 MF.XGRABA_FICHMACRO.value="Grab";
 MF.XAPLICAR_MACRO.value="Ejec";
 MF.XLIMPIA_MATCH.value="Limpiar";
 MF.XLIMPIA_REPLACE.value="Limpiar";

 FICHERO="ejemplo.html";
 FICHMACRO="mi_macro.txt";


 break;
 default:
 TXTERROR1="ERROR: I can not load the file...\n\n";
 TXTERROR2="ERROR: File not exists...";
 TXTERROR3="ERROR: Syntax error in the MATCH field";
 TXTERROR4="* Pattern not found *";
 TXTERROR5="ERROR: Saving the file\n\nPlease check the path and file name\n\nRemember that you only can save if the destination is your computer";
 TXTERROR6="IT HAS BEEN SAVED SUCCESSFULLY THE FILE...\n\n"
 TXTMACROSINNOMBRE="NoNamed";
 TXTMACRONUEVA="--------<New>---------";

 TXTMETODO="Method...";
 TXTEDITMACRO="======================== Syntax ========================\nMATCH STRING...REPLACE STRING###TITLE OF LINE";
 TXTCONFIRMDELMACRO="It will delete this line, Are you Sure ?";

 DW("TXT_TITULO","REGEXP Javascript v1.0");
 DW("TXT_BUSCAR","Find...");
 DW("TXT_SUSTITUIR","Replace...");
 DW("TXT_FICHURL","File/Url");
 DW("TXT_MISMODOM","(If Url it must be under the same domain)");
 DW("TXT_FOOTER","Valid for IE5+ NN6+ <b>(c) <a href=http://www.chatox.com>WWW.CHATOX.COM</a> Software 2004</b> - Language programming: Javascript<br>This program dont needs any server language to run. It only uses Javascript (browser language)");
 DW("TXT_LINK","<a href=\"?lang=ES\">Ver en Español</a>");

 MF.XTXT_MATCH.value="/example/ig";
 MF.XTXT_REPLACE.value="CHANGED";

 MF.XCARGA_FICHERO.value="Load";
 FICHERO="example.html";
 FICHMACRO="my_macro.txt";

 }
}
function Inicio(){
MF=document.forms['MIFORM'].elements;
LeeParams();
Textos();
MF.XN_FICHERO.value=MYURL+FICHERO;
CargaFich();
MF.XN_FICHMACRO.value=MYURL+FICHMACRO;
CargaFichMacro();
}

function LoadURL(x){
if (ns6)
 {
  AX1 = new XMLHttpRequest();
  onerror=function() {alert(TXTERROR1+String(x));}
  AX1.open("GET",x,false);
  AX1.send(null);
  RX1 = AX1.responseText;
  onerror="";
 }
 else
 {
  AX1 = new ActiveXObject("Microsoft.XMLHTTP");
  onerror=function() {alert(TXTERROR1+String(x));}
  AX1.Open("GET",x,false);
  AX1.Send();
  RX1=AX1.responseText;
  onerror="";
 }
return RX1;
}

function CargaFich(){
BUFFER=LoadURL(MF.XN_FICHERO.value);
if(!BUFFER) {alert(TXTERROR2+MF.XN_FICHERO.value);return false;}
BUFTEMP=BUFFER;
MF.XRESULTADOS.value=BUFTEMP;
MF.XVISUALIZA_RESULTADOS.click();
}

function AplicarRegExp(){
var mybuff=BUFTEMP;
M=MF.XTXT_MATCH.value;
M2=MF.XTXT_REPLACE.value;
onerror=function(){alert(TXTERROR3);return false;}
patern=eval( "(" + M + ")" );
onerror="";
MF.XTXT_MATCH.value=patern;
result=mybuff.match(patern);
if (result==null) 
 { alert(TXTERROR4); }
 else
 {
  MF.XRESULTADOS.value=result;
  if(MF.XMATCH_REPLACE[1].checked) {mybuff=mybuff.replace(patern,M2); MF.XRESULTADOS.value=mybuff;}
  BUFTEMP=MF.XRESULTADOS.value;
 }
}

function CargaFichMacro(){
M_BUFFER=LoadURL(MF.XN_FICHMACRO.value);
if(!M_BUFFER) {alert(TXTERROR2+MF.XN_FICHMACRO.value);return false;}
M_BUFFER=M_BUFFER.replace( (/\r/gi),"");
AsignaMacro();
}
function AsignaMacro(){
Af=M_BUFFER.split("\n");
MF.XMACRO.length=Af.length+1;
c=0;
for(i in Af) {
 Af2=Af[i].split("###",2);
 if (Af2.length==1) {Af2[1]=TXTMACROSINNOMBRE;}
 MF.XMACRO[c].value=String(Af2[0]);
 MF.XMACRO[c].text=Af2[1].length>22?Af2[1].substr(0,22):Af2[1];
 c++;
 }
 MF.XMACRO[c].value="";
 MF.XMACRO[c].text=TXTMACRONUEVA;
}

function AplicarMacro(){
c=1;cL=MF.XMACRO.length-1;
for(f=0; f<cL; f++)
  {
  MF.XMACRO.selectedIndex=f;
  if (SeleccionarMacro(true)){ MF.XAPLICAR_REGEXP.click();}
  }
MF.XMACRO.selectedIndex=-1;
}
function SeleccionarMacro(b){
   f=MF.XMACRO.selectedIndex;
   if (MF.XMACRO.value=="") {MF.XELIMINA_ORDENMACRO.disabled=true;} else {MF.XELIMINA_ORDENMACRO.disabled=false;}
   if(f<0){ f=0;}
   XMA=MF.XMACRO[f].value;
   XMT=MF.XMACRO[f].text;
   if (XMA=="" || XMT=="<new>") 
    { MF.XTXT_MATCH.value="//";MF.XTXT_REPLACE.value=""; }
    else
    {
     XMA2=XMA.split("...");
     if (XMA2.length==1) {XMA2[1]="";}
     MF.XTXT_MATCH.value=XMA2[0];
     MF.XTXT_REPLACE.value=XMA2[1];
     METODO=MF.XMATCH_REPLACE[0].checked?"MATCH":"REPLACE";
     if (b){if(!confirm(TXTMETODO + METODO + ":\n\n" + XMT + "\n\nreplace ( (" + XMA2[0] + ") , " + XMA2[1] +" )")) {return false;} }
    }
   return true;
}
function CambiarMacro(){
 var f,CRLF,Af,frs;
 f=MF.XMACRO.selectedIndex;
 if(f<0){ return false;}
 CRLF="\n";if(M_BUFFER.indexOf("\r\n")>0) {CRLF="\r\n";}
 Af=M_BUFFER.split(CRLF);
 frs=prompt(TXTEDITMACRO,Af[f]);
 if (frs==null) {return false;}
 Af[f]=frs; M_BUFFER=Af.join(CRLF);
 AsignaMacro();
}
function BorrarMacro(){
 f=MF.XMACRO.selectedIndex;
 if(f<0){ return false;}
 Af=M_BUFFER.split("\r\n");
 if (!confirm(TXTCONFIRMDELMACRO+"\n\n"+Af[f]+"\n\n???????")) {return false;}
 c=0;for (i in Af) { if (c!=f) {Af2[c]=Af[i];};c++ }
 M_BUFFER=Af2.join("\r\n");
 AsignaMacro();
}
function GrabaFichMacro(){
NF=MF.XN_FICHMACRO.value;
if (ns6){
netscape.security.PrivilegeManager.enablePrivilege("UniversalFileAccess");
var fileWriter = new java.io.FileWriter(NF);
fileWriter.write (M_BUFFER, 0, M_BUFFER.length);
fileWriter.close();
}
else
{
fso2 = new ActiveXObject("Scripting.FileSystemObject");
onerror=function(){alert(NF+"\n\n"+TXTERROR5);return true;}
f2 = fso2.CreateTextFile(NF, true);
f2.Write( M_BUFFER);
f2.close();
onerror="";
fso2=null;
}
alert(TXTERROR6+NF);
}

function Refrescar() {
if(ns6) 
  { mi=window.frames["MYIFRNS6"].document; }
  else
  { mi=MYIFR.document;}
mi.open();mi.write(MF.XRESULTADOS.value);mi.close(); 
}