1. We have moved from vBulletin to XenForo and you are viewing the site in the middle of the move. Though the functional aspect of everything is working fine, we are still working on other changes including the new design on Xenforo.
    Dismiss Notice

modifying .xml file using vb script

Discussion in 'JavaScript and AJAX' started by pt88john, Oct 3, 2011.

  1. pt88john

    pt88john New Member

    Hi, i have written a VB script which opens a xml file and replace the whole line if it founds a sub string of it, bleow i am giving you my script.

    In the belwo script, it open the file "enduser.xml" and if any line contains the word "Check the new login value" then the whole line be replaced with a new
    line that is "<option name=""Check the new login value"" value=""1000""/>"
    Set Filehandle = CreateObject("Scripting.FileSystemObject")
    Set openFile = Filehandle.OpenTextFile("enduser.xml")
    aText = Split(openFile.ReadAll, VbCrLf)
    Set openFile = Filehandle.CreateTextFile("enduser.xml", True)
    For Each srcLine In aText
    If InStr(1, srcLine, "Check the new login value", 1) = 0 Then
    openFile.WriteLine srcLine
    openFile.WriteLine "<option name=""Check the new login value"" value=""1000""/>"
    End If
    My current Requirement:-

    Now, in the same above same script i want to add a piece to check for a line called <option name="bpel coponent">, if the line doesn't exist then it has to
    write below lines of code( below 4 bold lines) into the enduser.xml file. But trick here is it should not overwirte the file content, In the end of the file i have a line called
    </enuseroptions>, these new lines should go on top of this line.

    <category name="bpel coponent">
    <option name="check the component availability" value="1"/>
    <option name="new component is" value="bpel"/>

    </enuseroptions> -----> This is the last line of my file, the new code (above 4 flines) should appear above this line and a gap should be there between the
    new code and this line.
  2. pradeep

    pradeep Team Leader

    set objDoc = Server.CreateObject("Microsoft.XMLDOM")
    For Each objNetworkNode in objNetWorkNodeLis
    	' iterate like that

Share This Page