xml quote attribute value in tcl -
how can "convert" non valid xml (i.e. attrbutes not quoted) valid xml, i.e. convert a=b attribute a="b".
for example such xml file:
<top> <name name='name' /> <group number=1> <member name='name1' test='test1' l=100/> </group> </top> desire output be:
<top> <name name='name' /> <group number="1"> <member name='name1' test='test1' l="100"/> </group> </top>" i know tdom package, has -html option. package should use dom, xml file attribute must quoted.
that's not valid xml document, can't use xml processor tdom this. instead, have nasty regular expressions , hope best:
set inputdocument "…"  regsub -all {(\w+)=(\w+)} $inputdocument {\1="\2"} outputdocument  puts $outputdocument this isn't honest, right thing in case. possible put more effort in , ensure transformation applied within elements , not in bodies well, if it's enough real data it's enough. (getting such transformations right quite hard since input document not xml; knows other nasties lying in wait inside in general?)
Comments
Post a Comment