AccessTr.neT
XML Cereate - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: XML Cereate (/konu-xml-cereate.html)



XML Cereate - kardelen188 - 23/06/2011

Merhaba ;
Vb ile yapılan bir ara yüzde ListBox taki verileri XLM dosyası olarak Export etmek istiyorum.Basit bir örnek ile yardımcı olurmusunuz.Teşk.


Cvp: XML Cereate - |By|KiDnArUt| - 23/06/2011

XML ile işlem yapmanın kolay yolu


yeni bi proje açalım 1 adet listbox 3 adet text ve 1 adet command ve kodları projeye yapıştıralım

List1.Listine <?xml version="1.0"?> bunu öncelikle yapıştıralım

Private Sub Command1_Click()
List1.AddItem "<!-- *********** ONEMLI OLAN HAZIR DEGIL YENIYI BULMAK - SINAN KOSE*********** -->"
List1.AddItem ""
List1.AddItem " <PERSONEL_BILGISI>"
List1.AddItem " <ADI_SOYADI>" & Text1 & "</ADI_SOYADI>"
List1.AddItem " <TELEFON>" & Text2 & "</TELEFON>"
List1.AddItem " <ADRES>" & Text3 & "</ADRES>"
List1.AddItem " </PERSONEL_BILGISI>"
Call kayıt_click
End Sub
Sub kayıt_click()
On Error Resume Next
Dim X, tmm
Open App.Path & "\" & Text1 & ".XML" For Output As 1

For X = 0 To List1.ListCount - 1
List1.ListIndex = X
Print #1, List1.Text
Next
Close 1
tmm = MsgBox("Dosya " & App.Path & "\ Klasörüne " & Text1.Text & ".XML olarak kayıt edildi", , "XML")
End Sub

Önemli NOT : Arkadaşlar Türkçe harfleri kesinlikle kullanmayın yoksa çalışmaz

ALINTIDIR.