Code: Select all
Global base
base = {}
;; base:GetXmlDate(data,key)
; You should call this recursively in a While ... data = ReadLine(1)...Wend structure; ex. call line$ = base:GetXmlString(data,"Date Added")
Function base:GetXmlDate(data,key)
Local result = ""
If FindStr(data,"<key>") > -1
If FindStr(data,key) > -1
data = ReadLine(1)
result = MidStr(data,FindStr(data,"<date>")+StrLen("<date>"),StrLen(data))
result = UnleftStr(result,StrLen("</date>"))
EndIf
EndIf
Return(result)
EndFunction