2004.10.15发表于blog.csdn.net/zxub

  一开始做这个题目时,找了好多资料都没有很好的介绍!花了点工夫,终于解决了这个问题,高兴的同时也对网上这方面的资料的实用性深有感触,正好有这么个Blog,就放上来,希望对大家有点帮助。

function openFile(fileName)     //打开文本文件,以字串返回文件内容
{
    var fso, ts, s;
    var ForReading = 1;
    fso = new ActiveXObject("Scripting.FileSystemObject");
    ts = fso.OpenTextFile(fileName, ForReading);
    s = ts.ReadAll();
    ts.Close();
     return s;
}
function saveFile(fileName,xmlStr)//保存文本文件
{
   var fso, tf,f;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   try
 {
    f = fso.GetFile(fileName);
 f.attributes =0;
 }
 catch(e){}
   tf = fso.CreateTextFile(fileName, true);

   tf.Write(xmlStr);
   tf.Close();
}
function saveXMLFile(pfilePath,xmlDom)   //存为XML文件
{
 var xmlStr=xmlDom.xml;
 xmlStr=xmlStr.replace("<?xml version=\"1.0\"?>","<?xml version=\"1.0\" encoding=\"gb2312\"?>");
 //alert(pfilePath+","+xmlStr);
 saveFile(pfilePath,xmlStr);
}
function loadDom(fileName)
{
 var xmlDoc = new ActiveXObject("Msxml2.DOMDocument.3.0");
 xmlDoc.async = false;
 xmlDoc.resolveExternals = false;
 xmlDoc.load(fileName);
 return xmlDoc;

}
//依据XML串,创建DOM对象
function createDom(xmlStr)
{
  var dom = new ActiveXObject("Msxml2.DOMDocument.3.0");
  //创建DOM实例,并装载文件
    dom.async="false";
  dom.loadXML(xmlStr);
     return dom;
}
function fileExist(FileFullPath) //判断文件是否存在
{
 var fso = new ActiveXObject("Scripting.FileSystemObject");
 if (fso.FileExists(FileFullPath))
   {return true;}
 else
   {return false;}
}
function createXmlCfg(pTagName,pKeyName,pValue) //创建一个包含相关信息的新XML文件
{
 var xmlStr="<?xml version=\"1.0\" encoding=\"gb2312\"?>";
 xmlStr+="<Report/>";
 var xmlDom=createDom(xmlStr);
 var root=xmlDom.documentElement;
 var infoNode=xmlDom.createNode(1,pTagName, "");
 root.appendChild(infoNode);
 var tmpNode=null;
 var obj=null;
 tmpNode=xmlDom.createNode(1,pKeyName,"");
 tmpNode.text=pValue;
 infoNode.appendChild(tmpNode);
 saveXMLFile(GetXmlFilePath("userdefine"),xmlDom);  
}

function addXmlTag(pTagName,pKeyName,pValue) //向XML文件中插入一个包含相关信息的新节点
{
 var xmlDom=createDom(openFile(GetXmlFilePath("userdefine")));
 var root=xmlDom.documentElement;
 var infoNode=xmlDom.createNode(1,pTagName, "");
 root.appendChild(infoNode);
 var tmpNode=null;
 var obj=null;
 tmpNode=xmlDom.createNode(1,pKeyName,"");
 tmpNode.text=pValue;
 infoNode.appendChild(tmpNode);
 var xmlStr=xmlDom.xml;
    xmlStr=xmlStr.replace("<?xml version=\"1.0\"?>","<?xml version=\"1.0\" encoding=\"gb2312\"?>")
    saveFile(GetXmlFilePath("userdefine"),xmlStr);
}
function addXmlKey(pTagName,pKeyName,pValue)   //向XML中的相关节点插入新信息
{
 var xmlDom=createDom(openFile(GetXmlFilePath("userdefine")));
    var pNodeList=xmlDom.getElementsByTagName(pTagName);
 var pchildNode=pNodeList.item(0);
 var tmpNode=null;
 var obj=null;
 tmpNode=xmlDom.createNode(1,pKeyName,"");
 tmpNode.text=pValue;
 pchildNode.appendChild(tmpNode);
 var xmlStr=xmlDom.xml;
    xmlStr=xmlStr.replace("<?xml version=\"1.0\"?>","<?xml version=\"1.0\" encoding=\"gb2312\"?>")
    saveFile(GetXmlFilePath("userdefine"),xmlStr);
}
 function GetXmlFilePath(FileType) //取得配置文件的路径:FileType代表文件类型,default为default.xml,userdefine同理
    {
     var dir = location.href.substring(0,location.href.lastIndexOf('?')+1);
     var XmlFilePath = location.href.substring(dir.length,location.href.length+1);
  XmlFilePath=XmlFilePath.replace("file:///","");
  XmlFilePath=XmlFilePath.substring(0,XmlFilePath.lastIndexOf("/"));
  XmlFilePath=XmlFilePath.substring(0,XmlFilePath.lastIndexOf("/"));
  switch (FileType) {
   case "default":
    XmlFilePath=XmlFilePath+"/config/default.xml";
    break;
      case "userdefine":
    XmlFilePath=XmlFilePath+"/config/userdefine.xml";
    break
      default:
    alert("不清楚是默认文件或用户自定义文件!");
    return false;
   }   
  XmlFilePath=XmlFilePath.replace("/","//");
     return(XmlFilePath);
    }

function setValueByName(FileType,pTagName,pKeyName,pValue)  //XML文件定位赋值
{
 var xmlDom;
 if (fileExist(GetXmlFilePath(FileType)))
   { 
     xmlDom=createDom(openFile(GetXmlFilePath(FileType)));
   }
  else
   {
    //alert("用户配置文件不存在,将创建新文件");
    //创建文件
    createXmlCfg(pTagName,pKeyName,pValue);
    alert("已保存修改信息,以后将按修改后的配置进行A4纸打印!");
    return;
   }
   try
   {
  var pNodeList=xmlDom.getElementsByTagName(pTagName);
  if (pNodeList.item(0)==null)
    {
     //alert("不存在该表信息!");
     addXmlTag(pTagName,pKeyName,pValue);
     alert("已保存修改信息,以后将按修改后的配置进行A4纸打印!");
     return;
    }
  var pchildNode=pNodeList.item(0).firstChild;
  for (j=1;;j++)
   {
    if (pchildNode.nodeName==pKeyName)
    {
     pchildNode.text=pValue;
     break;
    }
    pchildNode=pchildNode.nextSibling;
   }
  var xmlStr=xmlDom.xml;
  xmlStr=xmlStr.replace("<?xml version=\"1.0\"?>","<?xml version=\"1.0\" encoding=\"gb2312\"?>")
  saveFile(GetXmlFilePath(FileType),xmlStr);
  alert("已保存修改信息,以后将按修改后的配置进行A4纸打印!");
   }
   catch(e)
   {
    //alert("该表打印配置节点不存在!");
    addXmlKey(pTagName,pKeyName,pValue);
    alert("已保存修改信息,以后将按修改后的配置进行A4纸打印!");
    return;
   }
}
function getValueByName(FileType,pTagName,pKeyName)  //取得特定节点的值
{
 var curFileType=FileType;//当前配置文件类型。
 var xmlDom;
 if (fileExist(GetXmlFilePath(FileType)))
   {
    xmlDom=createDom(openFile(GetXmlFilePath(FileType)));
    }
  else
    {
    if (fileExist(GetXmlFilePath("default")))
      {
        //alert("用户自定义设置文件不存在,将取默认设置!");
        xmlDom=createDom(openFile(GetXmlFilePath("default")));
     curFileType="default";
   }
    else
      {
     alert("不存在打印设置文件,请在线更新系统以取得默认设置文件,或在页面调整中保存自定义设置以创建用户自定义打印配设置文件!");
     return false;
   }
    }
 try
 {
  var pNodeList=xmlDom.getElementsByTagName(pTagName);
  //alert(pNodeList.item(0).nodeName);
  var pchildNode=pNodeList.item(0).firstChild;
  var pValue;
  for (j=1;;j++)
   {
    if (pchildNode.nodeName==pKeyName)
    {
     pValue=pchildNode.text;
     return pValue;
     break;
    }
    pchildNode=pchildNode.nextSibling;
   }
 }
 catch(e)
 {
  if (curFileType=="default") //默认配置文件中不存在对该表的配置
    {
     alert("打印设置文件中不存在对该表的设置,请在线更新系统以取得最新默认设置文件,或在页面调整中保存自定义设置以创建用户自定义打印配设置文件!");
     return false;
    }
  else
    {
     //alert("自定义打印设置中不存在对该表的打印设置,将取默认值!");
     return getValueByName("default",pTagName,pKeyName);
    }
 }
}

 posted on 2005-06-13 14:11  往事如风  阅读(721)  评论(0编辑  收藏  举报