View Full Version : سوال: خواندن دیتابیس XML
SHD.NET
چهارشنبه 24 آبان 1391, 20:50 عصر
سلام.
من یه دیتابیس آماده XML دارم که حاوی اسم های پسرانه و دخترانه و معنی آن هاست.
ولی بلد نیستم اطلاعات اونو فراخونی کنم. میخوام ببینم کسی از دوستان می تونند برنامه بنویسند که این اطلاعاتو بتونه بخونه و قابلیت جست جو رو داشته باشه.
چون من کار با XML رو بلد نیستم.
فایل XML رو ضمیمه کردم
ممنون
SHD.NET
پنج شنبه 25 آبان 1391, 12:25 عصر
نبوددددددد؟
gilsoft
جمعه 26 آبان 1391, 05:14 صبح
سلام دوست عزیز
اینم اون چیزی که میخواستی ....
موفق باشید
gilsoft
شنبه 27 آبان 1391, 05:57 صبح
سلام دوستان من
فایل ضمیمه ی پست 3# رو Update کردم ( لطفا دانلود کنید ...) :لبخندساده:
موفق باشید
gilsoft
شنبه 27 آبان 1391, 07:12 صبح
من یه دیتابیس آماده XML دارم که حاوی اسم های پسرانه و دخترانه و معنی آن هاست.
فایل XML رو ضمیمه کردم
سلام دوست عزیز
فایل xml شما مشکل داشت ! ... با کد زیر اول اونو اصلاح کردم ..
این کد رو اینجا میزارم شاید بدرد دوست دیگه ای بخوره ...
Imports VB = Microsoft.VisualBasic
Imports System.Xml
Imports System.IO
Module Module1
Sub RepairXML(frm As Form)
frm.Cursor = Cursors.WaitCursor
Dim xmlFile As String = Application.StartupPath & "\..\..\esm.xml"
Dim renFile As String = Application.StartupPath & "\..\..\esm_Renamed.xml"
Dim ds As New DataSet
My.Computer.FileSystem.MoveFile(xmlFile, renFile, True)
Dim fs As New System.IO.FileStream(renFile, FileMode.Open)
Application.DoEvents()
Dim src_xml As New XmlTextReader(fs)
ds.ReadXml(src_xml)
src_xml.Close()
Dim dsc_xml As New XmlTextWriter(xmlFile, System.Text.Encoding.UTF8)
With dsc_xml
.WriteStartDocument(True)
.Formatting = Formatting.Indented
.Indentation = 2
.WriteStartElement("Table")
End With
Dim tbl As DataTable
Dim row As DataRow
Dim col As DataColumn
Dim GroupName As String = ""
Dim TableName As String = ""
For Each tbl In ds.Tables
Dim tn As String = tbl.TableName.Trim.ToLower
If VB.Len(tn.Trim) <= 1 Then Continue For
If tn = "info" Then
Continue For
ElseIf tn = "pesaraneh" Then
GroupName = tn
ElseIf tn = "dokhtaraneh" Then
GroupName = tn
Else
TableName = tn
End If
Console.WriteLine(GroupName & " => " & TableName)
Application.DoEvents()
Dim flag As Boolean = True
For Each row In tbl.Rows
Dim cell As Byte = 0
For Each col In tbl.Columns
Dim value As String = row(col).ToString
flag = True
If cell = 0 And (IsNumeric(value.Trim) Or value.Trim = "") Then flag = False : Exit For
If cell = 0 Then dsc_xml.WriteStartElement("Record")
If cell = 0 Then
dsc_xml.WriteStartElement("Name")
dsc_xml.WriteString(value.Trim)
dsc_xml.WriteEndElement()
ElseIf cell = 1 Then
Dim splt() As String = Split(value, "/")
dsc_xml.WriteStartElement("Descrip")
dsc_xml.WriteString(splt(1).Trim)
dsc_xml.WriteEndElement()
dsc_xml.WriteStartElement("Type")
dsc_xml.WriteString(IIf(splt.Length = 3, splt(2).Trim, splt(3).Trim))
dsc_xml.WriteEndElement()
splt = Nothing
End If
cell += 1
If cell > 1 Then Exit For
Next
If flag = True Then dsc_xml.WriteEndElement()
Next
Next
With dsc_xml
.WriteEndElement()
.WriteEndDocument()
.Close()
End With
frm.Cursor = Cursors.Default
End Sub
End Module
در ضمن فایل ضمیمه ی پست 3# رو Update کردم ( لطفا دانلود کنید ...) :لبخندساده:
موفق باشید
SHD.NET
شنبه 27 آبان 1391, 15:51 عصر
دقیقا همون چیزی بود که میخواستم . ممنون
SHD.NET
شنبه 27 آبان 1391, 16:32 عصر
یه سوال دگ هم داشتم . چجوری از پست #5 استفاده کنم ؟؟
gilsoft
شنبه 27 آبان 1391, 17:56 عصر
یه سوال دگ هم داشتم . چجوری از پست #5 استفاده کنم ؟؟
سلام دوست عزیز
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
RepairXML(Me)
End Sub
موفق باشید
SHD.NET
شنبه 27 آبان 1391, 18:22 عصر
شما آموزشی که کار با XML ؤو توضیح داده باشه سراغ ندارید ؟
آخه لازم دارم
ممنون
SHD.NET
یک شنبه 28 آبان 1391, 14:58 عصر
کسی آموزش XML رو نداره ؟
لازم دارم .
shellx
یک شنبه 28 آبان 1391, 17:48 عصر
آقا منم لازم دارم . اگه بتونید راهنمایی کنید ممنون
gilsoft
یک شنبه 28 آبان 1391, 22:42 عصر
کسی آموزش XML رو نداره ؟
لازم دارم .
سلام دوست عزیز
کار با XML در VB.NET (http://barnamenevis.org/showthread.php?323705)
آموزش XML برای مبتدی ها (http://http://www.barnamenevis.org/showthread.php?95683)
جستجو در XML (http://www.barnamenevis.org/showthread.php?32085)
چگونگی کار با XML (http://barnamenevis.org/showthread.php?334228)
نحوه ی استفاده از XML بجای INI (http://barnamenevis.org/showthread.php?328553)
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.