*xml_document

[omagarc]

Extra characters at end " /> appear in the return of data to the grid.

I tried stritran to remove and ran a debug and don't see the characters when the code is run in any of my variables.

Is anyone else seeing this behavior?

[Steve Workings]

Re: *xml_document

It sure would be helpful to have some context here.

[omagarc]

Re: *xml_document

FUNCTION extractme AS C ( category as c, xml AS C )
dim dom as p
dim q1 as p
dim q2 as p
dim dataresult as c=""
dim getel as c
dim ptr as p
dim xmldump3 as c = ""
dim dump3 as c=""
dim c2 as p
dim st as c ="HD Title="
dim en as c ="/>"
dim xmldump2 as c = ""
dim dump2 as c=""

getel = "*tag= "+chr(39)+category+chr(39)
' Category
dom=*xml_document(xml)
q1=dom.QueryElement(getel)
dim xmldump1 as c =""
xmldump1=q1.all[1].OuterXml
'First Data Branch
dom1=*xml_document(xmldump1)
q2=dom1.queryElement("*tag = 'TextValue'")
qty2=q2.all.size()
for x = 1 to qty2
dump2=dump2+q2.all[x].output("*Value")+""
'Inner Branch
dom2=*xml_document(xmldump1)
q3=dom2.queryElement("*tag = 'STI_RXItem'")
qty3=q3.all.size()
if qty3>0
xmldump3=q3.all[1].innerxml
xmldump3=extract_string(xmldump3,st,en)
xmldump3=stritran(xmldump3,chr(34),"")
else
xmldump3=""
end if

next x
debug(1)
dataresult=dump2+xmldump3
extractme=stritran(dataresult,crlf(),"<br>")
extractme=stritran(extractme," />","")
delete getel
delete dom
delete q1
delete xmldump1
delete dom1
delete xmldump3
delete dataresult
END FUNCTION


..sorry the paste didn't keep the tabs; the attachment is easier on the eyes.

When I run debug, it does not present the " /> text that gets displayed in the grid.

The xml data is not mine to post and understand that I'm tying hands in looking at the data. The actual text data I'm extracting is located in CDATA sections of the xml file. I don't always get the " />. If I save the xml to file and open in ie, i don't get a formatting error. My knowledge of xml is slim to none and the *xml_document function makes me look like I know what I'm talking about.

[MikeC]

Re: *xml_document

Omar,
Use the "Code Tag" icon when using Advanced reply (the # icon)....highlight the code you want inside the tags and click the icon--it will retain the formatting.
Such as

FUNCTION extractme AS C ( category as c, xml AS C )
    dim dom as p
    dim q1 as p
    dim q2 as p
    dim dataresult as c=""
    dim getel as c
    dim ptr as p
    dim xmldump3 as c = ""
    dim dump3 as c=""
    dim c2 as p
    dim st as c ="HD Title="
    dim en as c ="/>"
    dim xmldump2 as c = ""
    dim dump2 as c=""    

    getel = "*tag= "+chr(39)+category+chr(39)
' Category
    dom=*xml_document(xml)
    q1=dom.QueryElement(getel)
    dim xmldump1 as c =""
    xmldump1=q1.all[1].OuterXml
'First Data Branch    
        dom1=*xml_document(xmldump1)
        q2=dom1.queryElement("*tag = 'TextValue'")
        qty2=q2.all.size()
            for x = 1 to qty2
                dump2=dump2+q2.all[x].output("*Value")+""    
'Inner Branch
                dom2=*xml_document(xmldump1)
                q3=dom2.queryElement("*tag = 'STI_RXItem'")
                qty3=q3.all.size()
                if qty3>0
                    xmldump3=q3.all[1].innerxml
                    xmldump3=extract_string(xmldump3,st,en)
                    xmldump3=stritran(xmldump3,chr(34),"")
                else
                    xmldump3=""
                end if

            next x
            debug(1)
        dataresult=dump2+xmldump3
        extractme=stritran(dataresult,crlf(),"<br>")
        extractme=stritran(extractme," />","")
delete getel
delete dom
delete q1
delete xmldump1
delete dom1
delete xmldump3
delete dataresult
END FUNCTION

[omagarc]

Re: *xml_document

Thanks Mike!