Go4Expert (http://www.go4expert.com/)
-   JavaScript and AJAX (http://www.go4expert.com/forums/javascript/)
-   -   modifying .xml file using vb script (http://www.go4expert.com/forums/modifying-xml-file-using-vb-script-t26839/)

pt88john 3Oct2011 21:18

modifying .xml file using vb script
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 12Dec2011 10:32

Re: modifying .xml file using vb script

set objDoc = Server.CreateObject("Microsoft.XMLDOM")

For Each objNetworkNode in objNetWorkNodeLis
        ' iterate like that

All times are GMT +5.5. The time now is 19:27.