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. |