I'm trying to "word process" an xml string to put it in the right format for xmltocursor to work. I need to insert an endtag to close the data as in

for i = 1 to len(mystr)
teststr = substr(mystr,i,15)
if left(teststr,10)=""
mystr = stuff(mystr,i+20,0,"")
endif
next

The problem is this loop takes hours to run. Can anyone suggest a simpler and faster way to do this?

Thanks for all suggestions.