xml file with similar nodes

[Gintaras]

Macro Macro1991

Code:

Copy      Help

str s=
;<?xml version="1.0" encoding="UTF-8" ?>
;<configuration>
;;;;<appSettings>
;;;;;;;<!-- Comination Which we need enter with earch webservice link-->
;;;;;;;<add key="1" value="http://localhost/OSI/ConvergysBankingOSIWebService.asmx" />
;;;;;;;<add key="2" value="http://localhost:4861/Banking/BankingWebService.asmx" />
;;;;;;;<add key="3" value="http://localhost/CBS/ConvergysBankingCBS.asmx" />
;;;;;;;<add key="4" value="http://localhost:30938/ConvergysVUITester.asmx" />
;;;;;;;<!--<add key="4" value ="http://localhost/DemoWebservice/ConvergysVUITester.asmx"/>-->
;;;;;;;<add key="OSIProxy" value="Convergys.Banking.Proxy.OSI.ProxyOSI" />
;;;;;;;<add key="ITIProxy" value="Convergys.Banking.Proxy.ITI.ProxyITI" />
;;;;;;;<add key="CBSProxy" value="Convergys.Banking.Proxy.CBS.ProxyCBS" />
;;;;;;;<add key="VUITesterProxy" value="Convergys.Banking.Proxy.Demo.VUITesterProxy" />
;;;;;;;<add key="OSI" value="1" />
;;;;;;;<add key="ITI" value="2" />
;;;;;;;<add key="CBS" value="3" />
;;;;;;;<add key="VUITester" value="4" />
;;;;;;;<add key="HostAttached" value="OSI,ITI,CBS,VUITester" />
;;;;;;;<add key="TraceWriting" value="true" />
;;;;</appSettings>
;</configuration>

IXml x._create
x.FromString(s)
ARRAY(IXmlNode) a
x.Path("configuration/appSettings/add" a)
int i
for i 0 a.len
,IXmlNode attr=a[i].Attribute("value")
,str s2=attr.Value
,s2.ucase
,attr.Value=s2
x.ToString(s)
out s