Thanks for the help. Using the reader has helped a little bit in the
performance, but I am still taking a big hit when I load the data into my
collection. If I write the output directly to the console it takes a split
second to write 24 appointments. As soon as I load the XML into the
collection and then loop through the collection to display an appointment,
the time jumps up to over 5 seconds.
The main reason I load the data into the collection is so I can loop through
the collection in the dayrender of the calendar control. Is there a better
way to get from the XML string to populating the calendar control that I am
missing?
Thanks,
Kurt Bauer
Here is my new code using the XML reader:
Dim oAppointment As Calendar.Appoin tment
Dim oAppointments As Calendar.Appoin tments
Dim doc As Xml.XPath.XPath Document = New Xml.XPath.XPath Document(New
XmlTextReader(N ew System.IO.Strin gReader(strXML) ))
Dim nav As Xml.XPath.XPath Navigator = doc.CreateNavig ator()
Dim oNSManager As XmlNamespaceMan ager = New
XmlNamespaceMan ager(nav.NameTa ble)
Dim expression As Xml.XPath.XPath Expression = nav.Compile("//a:prop")
oNSManager.AddN amespace("a", "DAV:")
expression.SetC ontext(oNSManag er)
Dim it As Xml.XPath.XPath NodeIterator = nav.Select(expr ession)
If it.Count > 0 Then
oAppointments = New Calendar.Appoin tments
' Walk the response collection
While it.MoveNext
oAppointment = New Calendar.Appoin tment
Dim appointments As Xml.XPath.XPath Navigator = it.Current
Dim children As Xml.XPath.XPath NodeIterator =
appointments.Se lectChildren(XP ath.XPathNodeTy pe.Element)
While children.MoveNe xt
Select Case children.Curren t.LocalName
Case "subject"
Dim intIndex As Integer
intIndex = InStr(1, children.Curren t.Value, ":")
If intIndex > 0 Then
oAppointment.Ca tegory = Mid(children.Cu rrent.Value, 1,
intIndex - 1)
oAppointment.Su bject = Mid(children.Cu rrent.Value,
intIndex + 1)
Else
oAppointment.Su bject = children.Curren t.Value
End If
intIndex = Nothing
Case "dtstart"
oAppointment.St artTime = children.Curren t.Value
Case "dtend"
oAppointment.En dTime = children.Curren t.Value
Case "location"
oAppointment.Lo cation = children.Curren t.Value
Case "alldayeven t"
oAppointment.Al lDayEvent = children.Curren t.Value
Case "reminderoffset "
oAppointment.Re minderOffset = children.Curren t.Value / 60
Case "descriptio n"
oAppointment.Bo dy = children.Curren t.Value
End Select
End While
oAppointments.A dd(oAppointment )
oAppointment = Nothing
End While
End If
Here are my 2 collections for reference:
Public Class Appointments
Implements IEnumerable
Private mcolItems As Collection
Public Sub New()
mcolItems = New Collection
End Sub
Public ReadOnly Property Count()
Get
Count = mcolItems.Count
End Get
End Property
Sub Add(ByVal objNew As Calendar.Appoin tment)
mcolItems.Add(o bjNew)
End Sub
Public ReadOnly Property Item(ByVal vIndex As Object) As Appointment
Get
Item = mcolItems.Item( vIndex)
End Get
End Property
End Class
Public Class Appointment
Private strUrl As String
Private dtStartTime As DateTime
Private dtEndTime As DateTime
Private strSubject As String
Private strLocation As String
Private strBody As String
Private strCategory As String
Private strBusyStatus As String
Private blnAllDayEvent As Boolean
Private lngReminderOffs et As Long
Private objAttendies As Calendar.Attend ies
Public Property EmailUrl() As String
Get
Return strUrl
End Get
Set(ByVal Value As String)
strUrl = Value
End Set
End Property
Public Property StartTime() As DateTime
Get
Return dtStartTime
End Get
Set(ByVal Value As DateTime)
dtStartTime = Value
End Set
End Property
Public Property EndTime() As DateTime
Get
Return dtEndTime
End Get
Set(ByVal Value As DateTime)
dtEndTime = Value
End Set
End Property
Public Property Subject() As String
Get
Return strSubject
End Get
Set(ByVal Value As String)
strSubject = Value
End Set
End Property
Public Property Location() As String
Get
Return strLocation
End Get
Set(ByVal Value As String)
strLocation = Value
End Set
End Property
Public Property Body() As String
Get
Return strBody
End Get
Set(ByVal Value As String)
strBody = Value
End Set
End Property
Public Property Category() As String
Get
Return strCategory
End Get
Set(ByVal Value As String)
strCategory = Value
End Set
End Property
Public Property BusyStatus() As String
Get
Return strBusyStatus
End Get
Set(ByVal Value As String)
strBusyStatus = Value
End Set
End Property
Public Property AllDayEvent() As Boolean
Get
Return blnAllDayEvent
End Get
Set(ByVal Value As Boolean)
blnAllDayEvent = Value
End Set
End Property
Public Property ReminderOffset( ) As Long
Get
Return lngReminderOffs et
End Get
Set(ByVal Value As Long)
lngReminderOffs et = Value
End Set
End Property
Public Property Attendies() As Calendar.Attend ies
Get
Return objAttendies
End Get
Set(ByVal Value As Calendar.Attend ies)
objAttendies = Value
End Set
End Property
Sub New()
objAttendies = Calendar.Attend ies.GetAttendie s
End Sub
End Class
"Christoph Schittko [MVP]" <ch************ ********@austin .rr.com> wrote in
message news:ue******** ******@TK2MSFTN GP10.phx.gbl...
Kurt,
try the XPathNavigator/XPathNodeIterat or combo rather than the
XmlDocument. This combo is optimized for read-only XPath access and performs better
than the SelectNodes couterpart.
See the code snippet below. I hope you get the idea:
Dim doc As Xml.XPath.XPath Document = New Xml.XPath.XPath Document(New
XmlTextReader(N ew System.IO.Strin gReader(strXML) ))
Dim nav As Xml.XPath.XPath Navigator = doc.CreateNavig ator()
Dim oNSManager As XmlNamespaceMan ager = New
XmlNamespaceMan ager(nav.NameTa ble)
Dim expression As Xml.XPath.XPath Expression = nav.Compile("//a:prop")
oNSManager.AddN amespace("a", "DAV:")
expression.SetC ontext(oNSManag er)
Dim it As Xml.XPath.XPath NodeIterator = nav.Select(expr ession)
' Walk the response collection
While it.MoveNext
Dim appointments As Xml.XPath.XPath Navigator = it.Current
Dim children As Xml.XPath.XPath NodeIterator =
appointments.Se lectChildren(XP ath.XPathNodeTy pe.Element)
While children.MoveNe xt
Select Case children.Curren t.LocalName
Case "subject"
Dim intIndex As Integer
intIndex = InStr(1, children.Curren t.Value, ":")
If intIndex > 0 Then
Console.WriteLi ne(String.Forma t("Category {0}",
Mid(children.Cu rrent.Value, 1, intIndex - 1)))
Console.WriteLi ne(String.Forma t("subject {0}",
Mid(children.Cu rrent.Value, intIndex + 1)))
Else
children.Curren t.MoveToFirstCh ild()
Console.WriteLi ne(String.Forma t("subject {0}",
children.Curren t.Value))
End If
' ...
HTH,
Christoph Schittko
Software Architect, .NET Mentor
MS MVP XML .NET
"Kurt Bauer" <kb****@NOSPAMt ampabay.rr.com> wrote in message
news:uK******** ******@TK2MSFTN GP09.phx.gbl... I'm pretty new to .net development, so I used an msdn article to give me
some guidance on getting the xml from Exchange. Here is a link.
http://msdn.microsoft.com/library/de...asp?frame=true Here is my function to parse my xml string.
Private Shared Function ConvertXMLtoApp ointment(ByVal strXML As
String) As Calendar.Appoin tments
' this routine takes the XML stream and puts it into a
collection of appointments
Dim oAppointment As Calendar.Appoin tment
Dim oAppointments As Calendar.Appoin tments
Dim oXML As New Xml.XmlDocument
oXML.LoadXml(st rXML)
Dim oNSManager As XmlNamespaceMan ager = New
XmlNamespaceMan ager(oXML.NameT able)
oNSManager.AddN amespace("a", "DAV:")
Dim oResponses As Xml.XmlNodeList =
oXML.SelectNode s("//a:prop", oNSManager)
oXML = Nothing
oNSManager = Nothing
Dim iResponseLoop As Int16
Dim iLoop As Int16
' Walk the response collection
If oResponses.Coun t > 0 Then
Try
'load collection
oAppointments = New Calendar.Appoin tments
'loop through each response
For iResponseLoop = 0 To oResponses.Coun t - 1
'load appointment into collection
Dim oNode As Xml.XmlNode
oNode = oResponses.Item (iResponseLoop)
oAppointment = New Calendar.Appoin tment
For iLoop = 0 To oNode.ChildNode s.Count - 1
Select Case
oNode.ChildNode s.Item(iLoop).N ame Case "subject"
Dim intIndex As Integer
intIndex = InStr(1,
oNode.ChildNode s.Item(iLoop).I nnerText, ":")
If intIndex > 0 Then
oAppointment.Ca tegory =
Mid(oNode.Child Nodes.Item(iLoo p).InnerText, 1, intIndex - 1)
oAppointment.Su bject =
Mid(oNode.Child Nodes.Item(iLoo p).InnerText, intIndex + 1)
Else
oAppointment.Su bject =
oNode.ChildNode s.Item(iLoop).I nnerText
End If
intIndex = Nothing
Select Case oAppointment.Ca tegory
Case "Conference Call"
Case "Events"
Case "Meeting"
Case "Other"
Case "Personal"
Case "Vacation"
Case Else
oAppointment.Ca tegory = ""
oAppointment.Su bject =
oNode.ChildNode s.Item(iLoop).I nnerText
End Select
Case "dtstart"
oAppointment.St artTime =
oNode.ChildNode s.Item(iLoop).I nnerText
Case "dtend"
oAppointment.En dTime =
oNode.ChildNode s.Item(iLoop).I nnerText
Case "location"
oAppointment.Lo cation =
oNode.ChildNode s.Item(iLoop).I nnerText
Case "alldayeven t"
oAppointment.Al lDayEvent =
oNode.ChildNode s.Item(iLoop).I nnerText
Case "reminderoffset "
oAppointment.Re minderOffset =
oNode.ChildNode s.Item(iLoop).I nnerText / 60
Case "descriptio n"
oAppointment.Bo dy =
oNode.ChildNode s.Item(iLoop).I nnerText
End Select
Next
oAppointments.A dd(oAppointment )
oAppointment = Nothing
Next
Catch ex As Exception
oAppointment = Nothing
Finally
iLoop = Nothing
iResponseLoop = Nothing
End Try
End If
oResponses = Nothing
ConvertXMLtoApp ointment = oAppointments
oAppointments = Nothing
oAppointment = Nothing
End Function
Here is a small sample of an xml string I am trying to parse into my
collection.
<?xml version="1.0"?> <a:multistatu s
xmlns:b="urn:uu id:c2f41010-65b3-11d1-a29f-00aa00c14882/" xmlns:c="xml:"
xmlns:d="urn:sc hemas-microsoft-com:office:offi ce"
xmlns:a="DAV:"> <a:response><a: href>http://localhost/exchange/kurtbauer/Calen
dar/{D1A44985-AD7A-41E9-97BA-A6245517AB4C}.E ML</a:href><a:props tat><a:statusHTTP/1.1 200
OK</a:status><a:pro p><url>http://localhost/exchange/kurtbauer/Calendar/{D1A4 4985-AD7A-41E9-97BA-A6245517AB4C}.E ML</url><subject>Co nference Call:Add
my initials KB</subject><dtstar t
b:dt="dateTime. tz">2003-07-15T21:00:00.000 Z</dtstart><dtend
b:dt="dateTime. tz">2003-07-15T22:00:00.000 Z</dtend></a:prop></a:propstat></a
:response><a:re sponse><a:href> http://localhost/exchange/kurtbauer/Calendar/{
FF5A919B-0FB0-4AF0-8013-42F4CC5F3B4D}.E ML</a:href><a:props tat><a:status>H TTP /1.1 200
OK</a:status><a:pro p><url>http://localhost/exchange/kurtbauer/Calendar/{FF5A 919B-0FB0-4AF0-8013-42F4CC5F3B4D}.E ML</url><subject>Va cation:I need a
vacation (KB)</subject><dtstar t
b:dt="dateTime. tz">2003-07-27T04:00:00.000 Z</dtstart><dtend
b:dt="dateTime. tz">2003-07-28T04:00:00.000 Z</dtend></a:prop></a:propstat></a :response></a:multistatus>
Thanks,
Kurt Bauer
"Christoph Schittko [MVP]" <ch************ ********@austin .rr.com> wrote
in message news:O6******** ******@tk2msftn gp13.phx.gbl... Kurt,
How are you loading the Xml data into the collection? If you could
post code or proovide some details I could probably provide some details. There may be faster ways to do it. Does populating the collection involve executing
a lot of XPath expressions? Then make sure you are using an XPathDocument.
Is it simple, forward-only parsing of the XML, then you should try using an
XmlReader or XmlSerializatio n (which is built around XmlReaders).
HTH,
Christoph Schittko
Software Architect, .NET Mentor
MVP XML .NET
"Kurt Bauer" <kb****@NOSPAMt ampabay.rr.com> wrote in message
news:e8******** ******@TK2MSFTN GP12.phx.gbl...
> I have an ASP group calendar application which pulls calendar data from > Exchange via webdav into an XML string. I then loop the XML nodes
to > populate a collection of appointments. Finally I use the
appointment > collection to populate the calendar control. The performance
getting the > XML data is fine, but loading the data into the collection is slow.
My > question/problem is should I be using the collection, a dataset, or
> something else to load the xml data into the calendar control?
> Thanks,
> Kurt Bauer
>
>
