modifying .xml file using vb script

pt88john's Avatar, Join Date: Oct 2011
Newbie 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.
pradeep's Avatar, Join Date: Apr 2005
Team Leader
set objDoc = Server.CreateObject("Microsoft.XMLDOM")

For Each objNetworkNode in objNetWorkNodeLis
	' iterate like that