Database Search

TechHome

• ADO Reading XML Data
• Creating User-Defined Types Using XML Document Object Model
• DBF to XML Converter
• Edit an Existing XML File
• Get First Column of Data from an Excel Spreadsheet
• MSXML Transformation via OLE
• Read XML Row by Row Based on Namespace String
• Replace Existing Element with New Data
• Soundex UDF
• Uses XML DOM and DHTML to Create a DSO-like editable HTML display
• XML Recordset and Excel Named Ranges
• XML Recordset Editing Script
• XML Recordset Primer
• XML Recordset to MDB
• XPATH and XML Parsing

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Edit an Existing XML File

Question:

Answer:

• If running WinBatch 2003G or newer it seems like the following should work:

  x=FileGet("dafile.xml")
  x=StrReplace("Old stuff","New Stuff")
  FilePut("dafile.xml",x)
  

• You could try using Binary Operations:

  http://techsupt.winbatch.com/webcgi/webbatch.exe?techsupt/nftechsupt.web+WinBatch/Binary~Functions+Search~and~Replace~Another~Example.txt

  and

  http://techsupt.winbatch.com/webcgi/webbatch.exe?techsupt/nftechsupt.web+WinBatch/Binary~Functions+Search~and~Replace~in~Binary~Buffer.txt

• Using OLE... http://techsupt.winbatch.com/webcgi/webbatch.exe?techsupt/nftechsupt.web+WinBatch/OLE~COM~ADO~CDO~ADSI~LDAP/OLE~with~XML+Replace~Existing~Element~with~New~Data.txt

• use the Microsoft XML Parsing SDK -- it's available for a free download from microsoft and has a nice tutorial, complete with VB sample code...

  ;   This works for me Winbatch 2002G and uses the SDK...
  
  ;The name of the file is user_settings.xml (attached). I want to
  ;change the line PROPERTY NAME="SD SERVER" kdchrt01 /PROPERTY to
  ;PROPERTY NAME="SD SERVER" kdcitc01 /PROPERTY I am familiar with
  ;editing a private INI file and making registry changes with WinBatch
  ;but I can not find info on editing or creating a XML file.
  
  #definefunction SetData(str, value, file)
     Doc = objectopen("Msxml2.DOMDocument.4.0")
     Doc.async = @false      
     Doc.load(file)
     dNode = doc.selectsingleNode(strcat("//", str))
     dNode.text = value
     Doc.save(file)
     objectclose(dNode)
     objectclose(Doc)
     return   
  #endfunction
  
  #definefunction GetData(str, file)
     Doc = objectopen("Msxml2.DOMDocument.4.0")
     Doc.async = @false      
     Doc.load(file)
     dNode = doc.selectsingleNode(strcat("//", str))
     retstr = dNode.text
     objectclose(dNode)
     objectclose(Doc)
     return(retstr)
  #endfunction
  
  xfile = "C:\Test\Stan\user_settings.xml"
  
  oldvalue = "kdchrt01"
  newserver = "kdcitc01"
  
  ;   specify a search string to return the correct node...
  searchstr = "SETTINGS/GROUP[@NAME='ACCOUNTS']/GROUP[@NAME='1']/PROPERTY[@NAME='SD SERVER']"
  
  ;   show the old value...
  message("Debug", GetData(searchstr, xfile))
  ;   set the new value...
  SetData(searchstr, newserver, xfile)
  ;   show the new value...
  message("Debug", GetData(searchstr, xfile))
  
  exit
  

  ---

  Article ID:   W16150
  

  File Created: 2014:07:18:09:51:38

  Last Updated: 2014:07:18:09:51:38