چطوري با XML در وي بي 6 كار كنم

[A.Eimani]

سلام هموطن

ميخواستم بدونم چطوري با XML در ويژوال بيسيك 6 كار كنم
ممنون ميشم

[mahdi-vb]

جواب .. ؟؟

[Pouria.NET]

برای کار کردن با XML در VB 6 دو روش وجود داره:
1- استفاده از Simple Api for Xml یا SAX
2- استفاده از Document Object Model یا DOM

[Pouria.NET]

استفاده از SAX به این صورته که شما یک CLass مثلا با نام mySaxHandler به پروژه اضافه می کنید. بعد یک رفرنس به MS XML3.0 یا بالاتر می دهید.

حالا در کلاس خود کد زیر را بنویسید:

Implements IVBSaxContentHandler

حالا نوبت آن است که خطوط Wrapper را برای همه متدهای این Interface بنویسید و سپس بدنه متدهای مورد نظر را برای کاربردی که می خواهید کد بزنید.
مثلا


Private Sub IVBSAXContentHandler_startElement(strNamespaceURI As String, strLocalName As String, strQName As String, ByVal oAttributes As MSXML2.IVBSAXAttributes)
If strLocalName = "Name" Then

'code to work with <Name>
End If

End SubPrivate Sub IVBSAXContentHandler_startElement(strNamespaceURI As String, strLocalName As String, strQName As String, ByVal oAttributes As MSXML2.IVBSAXAttributes)
If strLocalName = "Name" Then

'code to work with <Name>
End If

End Sub

[Pouria.NET]

در بدنه اصلی برنامه هم این کد را بنویسید:



Sub XMLReading()

Dim mySaxReader As New SAXXMLReader
mySaxReader.parseURL ("AddressOfYourXmlFile.xml")
mySaxReader.contentHandler = mySaxHandler

End Sub

[Pouria.NET]

در بدنه اصلی برنامه هم این کد را بنویسید:



Sub XMLReading()

Dim mySaxReader As New SAXXMLReader
mySaxReader.parseURL ("AddressOfYourXmlFile.xml")
mySaxReader.contentHandler = mySaxHandler

End Sub