Başlangıç > Kodlar > Visual Basic 6 ile XML kullanımı

Visual Basic 6 ile XML kullanımı


XML'e yazma

Bunun icin once Project menusunden references..XML data sources 3.0 i ekleyin

Private xDoc As msxml.DOMDocument

Public Enum eOpenXMLDoc
xDosya = 0
xMetin = 1
End Enum

Public Function XML_AC(ByVal kaynak As String, Optional ByVal tur As eOpenXMLDoc = xDosya) As Boolean
xDoc = New msxml.DOMDocument

Select Case tur
Case xDosya
XML_AC = xDoc.Load(kaynak)
Case xMetin
XML_AC = xDoc.loadXML(kaynak)
End Select
End Function

Public Function NesneOku(ByVal yol As String) As String
On Error GoTo HATA

Dim x As msxml.IXMLDOMNode
x = xDoc.documentElement.selectSingleNode(yol)
NesneOku = x.Text
Exit Function
HATA:
x = Nothing
End Function

Public Function NesneXMLiniOku(ByVal yol As String) As String
Dim x As msxml.IXMLDOMNode
x = xDoc.documentElement.selectSingleNode(yol)
NesneXMLiniOku = x.xml
End Function

Public Function NesneYaz(ByVal yol As String, ByVal deger As Object)
On Error GoTo HATA
Dim x As msxml.IXMLDOMNode
x = xDoc.documentElement.selectSingleNode(yol)
x.Text = deger
Exit Function
HATA:
x = Nothing
End Function

Public Function DegerOku(ByVal yol As String, ByVal isim As String) As String
On Error GoTo HATA

Dim x As msxml.IXMLDOMElement
x = xDoc.documentElement.selectSingleNode(yol)

DegerOku = x.getAttribute(isim)

Exit Function
HATA:
DegerOku = ""
End Function

Public Function DegerYaz(ByVal yol As String, ByVal isim As String, ByVal deger As Object)

On Error GoTo HATA

Dim x As msxml.IXMLDOMElement
x = xDoc.documentElement.selectSingleNode(yol)
x.setAttribute(isim, deger)

Exit Function
HATA:
End Function

Public Function NesneSayisi(ByVal yol As String) As Long
On Error GoTo HATA

Dim x As msxml.IXMLDOMNodeList
x = xDoc.documentElement.SelectNodes(yol)

NesneSayisi = x.length
Exit Function
HATA:
End Function

Public Function Kaydet(ByVal dosya As String)
xDoc.Save(dosya)
End Function

 


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: