LiveCode Forums.

Code: Select all

...
<period>Monthly</period>
<fee unit="AUD$">999.99</fee>
...

Code: Select all

put ExtractTagData("period") into strperiod   --works
put ExtractTagData("fee unit=" & quote & "AUD$" & quote,"Fee" ) into strFee  -- does NOT work

Code: Select all

Function ExtractTagData tagName, tagEndName
   
   put field lblFileContents into tagData
   
   if tagEndName is Empty then
      put tagName into tagEndName
   end if
   
   replace "<" & tagName & ">" with " <" & tagName & "> " in tagData      -- this replace finds the fee with double quotes
   replace "</" & tagEndName & ">" with " </" & tagEndName & "> " in tagData
   
   Put wordOffset("<" & tagName & ">",tagData) into tWordStartNum       -- this wordOffset DOES NOT find the fee with double quotes
   Put wordOffset("</" & tagEndName & ">",tagData) into tWordEndNum
   
   Delete word tWordEndNum to -1 of tagData
   Delete word 1 to tWordStartNum of tagData
   
   return tagData
   
end ExtractTagData

Code: Select all

on mouseUp
   put fld 1 into theTagData
   put theFee(theTagData)
end mouseUp

function theFee theDataToExtract
   delete line 1 of theDataToExtract
   put lineOffset("<fee unit=",theDataToExtract) into theLine
   replace "<fee unit=" with empty in line theLine of theDataToExtract
   repeat with count = the number of chars of  theDataToExtract down to 1
      if char count of theDataToExtract = quote then delete char count of theDataToExtract
   end repeat
   replace "</fee>" with empty in line theLine of theDataToExtract
   replace ">" with "=" in line theLine of theDataToExtract
   return theDataToExtract
end theFee

Code: Select all

replace "fee unit=" & quote & "AUD$" & quote with "fee" in lblFileContents 

Code: Select all

put ExtractTagData("fee") into strFee   --works