Dim Content As List
Dim Buffer As String
Content.Initialize
Content = File.ReadList("/data/system/" , "packages.xml")
For I = 0 To Content.Size -1
Buffer = Content.Get(I)
If Buffer.IndexOf("verifier device=") > -1 Then
Buffer = Buffer.Replace(QUOTE, "").Replace("<verifier device=", "").Replace("/>", "")
Msgbox("Development ID = " & Buffer, "")
End If
Next