home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 June / PCWorld_2003-06_cd.bin / SOFTWARE / VYZKUSTE / RKEDIT / MSXML.JS < prev    next >
Encoding:
Text File  |  2003-03-18  |  933 b   |  35 lines
  1. //-----------------------------------------------------------------------------
  2. //
  3. // Testing XML document validity
  4. //
  5. // Usage: msxml filename.xml
  6. //
  7. //-----------------------------------------------------------------------------
  8.  
  9.   if (WScript.Arguments.Count() == 0)
  10.   {
  11.     WScript.Echo ("Usage: msxml filename.xml");
  12.     WScript.Quit (1);
  13.   }
  14.  
  15.   var xml = WScript.CreateObject ("MSXML2.DOMDocument");
  16.   xml.async = false;
  17.   xml.load (WScript.Arguments (0));
  18.  
  19.   var err = xml.parseError;
  20.   if (err.errorCode != 0)
  21.   {
  22.     WScript.Echo ("Error line: "+err.line+"\nError line pos: "+err.linepos);
  23.  
  24.     var message = err.srcText;
  25.     var s = "";
  26.     for (i = 1; i < err.linepos; i++) s += "-";
  27.     s += "^";
  28.     message += "\n"+s+"\n";
  29.     WScript.Echo (message + err.url + ":" + err.line + ":" +
  30.                   err.linepos + ":" + err.reason);
  31.   } else WScript.Echo ("XML document is ok.");
  32.  
  33.  
  34.  
  35.