XML مەشغۇلاتى

بۇ يازمىنى ئاخىرىدا mardan123 تەھرىرلىگەن. ۋاقتى 2016-1-13 11:05

ھازىر ئۇچۇر ساقلاش ۋە ئوقۇتۇش مەشغۇلاتىدا XML بىلەن Json كۆپ ئىشلىتىلىدىغان بولۇپ، سېستىمىغا بولغان تەلىۋىنىڭ تۆۋەنلىكى ۋە سىغىمىنىڭ كىچىك بولىشى قاتارلىق ئارتۇقچىلىقى بىلەن كەڭ پىروگىراممىرلارنىڭ ياقتۇرۇپ ئىشلىتىشىگە نائىل بولغان. بىز تۆۋەندىكى يازمىمىزدا پىروگرامما ئارقىلىق XML قۇرۇش، ئۇچۇر قېتىش، تەھرىرلەش ۋە ئۆچۈرۈش مەشغۇلاتى قىلىشنى سۆزلەيمىز.

'''

''' XML ھۆججىتى قۇرۇش

'''
''' XML ھۆججىتىنىڭ ئادرېسى
Public Sub CreateXML(ByVal xmlFilePath As String)
Try
'utf-8 فورماتىدا ھۆججەتنى قۇرىدۇ
Dim writer As New Xml.XmlTextWriter(xmlFilePath, System.Text.Encoding.GetEncoding("utf-8"))
'ئاپتوماتىك ئالدىدىن ئارلىق تاشلىنىپ ئوقۇشقا قولاي بولىدۇ
writer.Formatting = Xml.Formatting.Indented
writer.WriteRaw("")
'بىرىنچى ئېلىمىنت قېتىلىدۇ
writer.WriteStartElement("BookStore")
'بالا ئىلىمىنىت قېتىلىدۇ
writer.WriteStartElement("Book")
'Book دېگەن بالا ئېلىمىنىتقا خاسلىق قېتىلىدۇ
writer.WriteAttributeString("Genre", "رومان")
writer.WriteAttributeString("ISBN", "1234-567-890")
'يەنە بالا ئېلىمىنىت قېتىلىدۇ
writer.WriteElementString("Title", "ئانا يۇرت")
writer.WriteElementString("Author", "زوردۇن سابىر")
writer.WriteElementString("Price", "93.5")
'بالا ئېلىمىنىت ئاخىرلىشىدۇ
writer.WriteEndElement()
'بىرىنچى ئېلىمىنىت ئاخىرلىشىدۇ
writer.WriteFullEndElement()
'XML ھۆججىتى يىزىش ئاخىرلىشىدۇ
writer.Close()
Catch ex As Exception
MsgBox(ex.Message & vbCrLf & ex.StackTrace)
End Try
End Sub

مەزمۇننى كۆچۈرۈۋېلىش

يۇقىرىدىكى كودنى ئىجرا قىلغاندا ئىرىشكەن XML ھۆججىتى بولسا:

ئانا يۇرت
زوردۇن سابىر
93.5

مەزمۇننى كۆچۈرۈۋېلىش

XML ھۆججىتىگە ئۇچۇر قېتىش
بىز يۇقىرىدا ئېرىشكەن XML ھۆججىتىگە يەنە بىر كىتاب(Book) ئۇچۇرى قوشۇپ باقايلى. كودى:

'''

''' XML ھۆججىتىگە ئۇچۇر قىستۇرۇش

'''
''' XML ھۆججىتىنىڭ ئادرېسى
Public Sub InsertXml(ByVal xmlFilePath As String)
'XML ھۆججىتىنى ئوقۇتتۇق
Dim XmlDoc As New Xml.XmlDocument()
XmlDoc.Load(xmlFilePath)
'بىرىنچى ئېلىمىنىت BookStore نى تېپىۋالدۇق
Dim Root As Xml.XmlNode = XmlDoc.SelectSingleNode("BookStore")
'بالا ئېلىمىنىتتىن بىرنى قۇردۇق
Dim WordsNode As Xml.XmlElement = XmlDoc.CreateElement("Book")
'بالا ئېلېمىنىتقا خاسلىق بەردۇق
WordsNode.SetAttribute("Genre", "رومان")
WordsNode.SetAttribute("ISBN", "0123-456-789")
'يەنە بىر ئېلىمىنىت قۇردۇق
Dim LanNode As Xml.XmlElement = XmlDoc.CreateElement("Title")
'ئېلېمىنىتقا قىممەت بەردۇق
LanNode.InnerXml = "باھادىرنامە"
'ئېلىمىنىتنى بالا ئېلىمىنىتقا قاتتۇق
WordsNode.AppendChild(LanNode)
'ئالدىنقى مەشغۇلات تەكرارلاندى
LanNode = XmlDoc.CreateElement("Author")
LanNode.InnerXml = "ياسىنجان سادىق چوغلان"
WordsNode.AppendChild(LanNode)
LanNode = XmlDoc.CreateElement("Price")
LanNode.InnerXml = "245"
WordsNode.AppendChild(LanNode)
'بالا ئېلىمىنىتنى بىرىنچى ئېلىمىنىتقا ئۇلىدۇق
Root.AppendChild(WordsNode)
'XML ھۆججىتىنى ساقلىدۇق
XmlDoc.Save(xmlFilePath)
End Sub

مەزمۇننى كۆچۈرۈۋېلىش

يۇقىرىدىكى كودنى ئىجرا قىلىپ ئېرىشكەن XML ھۆججىتى بولسا:

ئانا يۇرت
زوردۇن سابىر
93.5
باھادىرنامە
ياسىنجان سادىق چوغلان
245

مەزمۇننى كۆچۈرۈۋېلىش

XML ھۆججىتىدىكى ئۇچۇرنى ئۆزگەرتىش

ئەمدى بىز يۇقىرىدا XML ھۆججىتىگە قاتقان كىتاب(باھادىرنامە) ئۇچۇرىنى ئۆزگەرتىپ باقايلى. كودى:

'''

''' XML ھۆججىتىنى ئۆزگەرتىش

'''
''' XML ھۆججىتىنىڭ ئادرېسى
Public Sub EditXML(ByVal xmlFilePath As String)
'XML ھۆججىتىنى ئوقۇتتۇق
Dim Doc As New Xml.XmlDocument
Doc.Load(xmlFilePath)
'بىرىنچى ئىلىمىتنىڭ بالا ئىلىمىتلىرىنى تىزىملىككە ئېلىۋالدۇق
Dim List As Xml.XmlNodeList = Doc.SelectSingleNode("BookStore").ChildNodes
For Each Node As Xml.XmlNode In List
'ئەگەر ISBN نومۇرى 0123-456-789گە تەڭ بولغان كىتاب بولسا ئۇچۇرىنى ئۆزگەرتتۇق
If Node.Attributes("ISBN").Value = "0123-456-789" Then
Node.ChildNodes(0).InnerXml = "ئىز"
Node.ChildNodes(1).InnerXml = "ئابدىرىھىم ئۆتكۈر"
Node.ChildNodes(2).InnerXml = "35"
End If
Next
'XML ھۆججىتىنى ساقلىدۇق
Doc.Save(xmlFilePath)
End Sub

مەزمۇننى كۆچۈرۈۋېلىش

يۇقىرىدىكى كودنى ئىجرا قىلغاندىن كىيىن ئېرىشكەن XML ھۆججىتىمىز بولسا:

ئانا يۇرت
زوردۇن سابىر
93.5
ئىز
ئابدىرىھىم ئۆتكۈر
35

مەزمۇننى كۆچۈرۈۋېلىش

XML ھۆججىتىدىكى ئۇچۇرنى ئۆچۈرۈش
ئەمدى بىز داۋاملىق ئۈستىدە ئېرىشكەن XML ھۆججىتىدىكى كىتاب(ئانا يۇرت) ئۇچۇرنى ئۆچۈرۈپ باقايلى. كودى:

'''

''' XML ھۆججىتىنى ئۆچۈرۈش

'''
''' XML ھۆججىتىنىڭ ئادرېسى
Public Sub RemoveXml(ByVal xmlFilePath As String)
'XML ھۆججىتىنى ئوقۇتتۇق
Dim Doc As New Xml.XmlDocument
Doc.Load(xmlFilePath)
'بىرىنچى ئىلىمىتنىڭ بالا ئىلىمىتلىرىنى تىزىملىككە ئېلىۋالدۇق
Dim List As Xml.XmlNodeList = Doc.SelectSingleNode("BookStore").ChildNodes
For Each Node As Xml.XmlNode In List
'ئەگەر ISBN نومۇرى 1234-567-890گە تەڭ بولغان كىتاب بولسا ئۇچۇرىنى ئۆچۈردۇق
If Node.Attributes("ISBN").Value = "1234-567-890" Then
Node.ParentNode.RemoveChild(Node)
End If
Next
'XML ھۆججىتىنى ساقلىدۇق
Doc.Save(xmlFilePath)
End Sub

مەزمۇننى كۆچۈرۈۋېلىش

يۇقىرىدىكى كودنى ئىجرا قىلغاندىن كىيىنكى ئېرىشكەن XML ھۆججىتى بولسا:

ئىز
ئابدىرىھىم ئۆتكۈر
35

مەزمۇننى كۆچۈرۈۋېلىش

شۇنىڭغا دېققەت قىلىش كېرەككى، XML ھۆججىتى &،<، >، ”، ‘ قاتارلىق بەلگىلەرگە سەزگۈر بولۇپ، بۇخىل بەلگىلەر بولۇپ قالسا خاتالىق ئۇچۇرى چىقىدۇ. شۇڭا بۇ خىل خاتالىقنىڭ ئالدىنى ئېلىش ئۈچۈن بۇ بەلگىلەرنى ماس كودقا ئۆزگەرتىۋىتىشىمىز كېرەك. تۆۋەندە بۇ بەلگىلەرنى ئالماشتۇرىۋىتىدىغان فونكىسىيە بېرىلدى. XMLغا قارىتا مەشغۇلات ئېلىپ بارغاندا قىممەتنى مۇشۇ فونكىسىيە ئارقىلىق بىر ئالماشتۇرىۋىتىشنى تەۋسىيە قىلىمەن. كودى:

'''

''' XML ھۆججىتىدىكى سەزگۈر بەلگىلەرنى ئالماشتۇرۇش

'''
''' مەزمۇن
''' سەزگۈر بەلگىلەرنى ئالماشتۇرۇپ بولغاندىكى مەزمۇن
Function ReplaceXml(Source As String) As String
Return Source.Replace("&", "&").Replace("<", "<").Replace(">", ">").Replace("""", """).Replace("'", "'")
End Function

مەزمۇننى كۆچۈرۈۋېلىش

يۇقىردا سۆزلەپ ئۆتكەن كود vb.net كودى

قوللاپ قۇيارسىلەر مەن بۇنى ناھايتى تەستە يازدىم بۇنىڭغا قانچىلىك ۋاقىت كەتكەنلىكىنى ئۆزۈڭلار بىلەرسىلەر شۇڭا قوللاپ قۇيۇڭلار

ئالىم12 · ۋاقتى: 2016-1-13 13:37:32

رەھمەت

»»»:ئالپ ئاندرويد تېرمىنالىدا يېزىلغان

yawaghaz · ۋاقتى: 2016-1-13 20:04:05

راسىت گەپنى قىلسام خىلى جاپا تارتىپ يازغاندەك قىلىسىز، ئەمما سىز ئۇ كودنى يىزىپ چىقىرىپ قويغان بىلەن باشقىلارغا كۆرۈشمۇ خوش ياقمايدۇ، چۈنكى سىز يىزىپ قويغان ھەر بىر ھەرىپ، چىكىت پەشنىڭ نىمە مەنىسى بارلىقىنى بىلمىگەندىكىن بىر قاراپلا بىشى قىيىپ كىتىدۇ، شۇڭا بۇنى يازغىچە سىنغا ئىلىپ ئاۋازلق دەرسز چىقارسىڭز ئۈنۈمى ياخشىراق بولىدۇ.(نەشىرياتلار كىتاپنى بىسىپ چىقىرىپ قويغان بىلەن ئوقۇتقۇچى كىلىپ سۆزلىمىسە بىكار،چۈنكى بۇ ھىكايە كىتاپ ئەمەس دەرسلىك)، قاراڭ 200 يۈزدىن كۆپ ئادەپ كۆرۇپتۇ، ئەمما ئاران بىر ئادەم ئىنكاس يىزىپتۇ.

شەرەر · ۋاقتى: 2016-1-13 20:33:09

سىز بۇنى ناھايىتى تەستە يازدىڭىزمۇ ياكى كۆچۈردىڭىزمۇ؟ بۇنىڭدىن كېيىن يالغان گەپ قىلماسلىقىڭىزنى ئۈمۈد قىلىمەن.
ئەسلى ئادرېس: شەرەر تورى - xml مەشغۇلاتى

ablizt · ۋاقتى: 2016-1-13 20:44:33

رەھمەت سىزگە XMLدا لوغەتكە سۆزلۈك ئامبىرى ياسىغىلى بولامدۇ

uqkun77 · ۋاقتى: 2016-1-13 23:13:35

تىما كۆچۇرۇلمىگەن بولسا تىخىمۇ ئىسىل ئىش بولاركەن

XML مەشغۇلاتى

5ئادەم ئىنكاس يازدى

تۆھپە ئوردېنى