¼ÓÈëÊÕ²Ø | ÉèΪÊ×Ò³ | »áÔ±ÖÐÐÄ | ÎÒҪͶ¸å Àî´óͬ £¨https://www.lidatong.com.cn/£©- ¿Æ¼¼¡¢½¨Õ¾¡¢¾­Ñé¡¢ÔƼÆËã¡¢5G¡¢´óÊý¾Ý,Õ¾³¤Íø!
µ±Ç°Î»Ö㺠Ê×Ò³ > °Ù¿Æ > ÕýÎÄ

vb.net xml¥Õ¥¡¥¤¥ë¤òÕi¤ßÞz¤ß

·¢²¼Ê±¼ä£º2020-12-17 07:37:52 ËùÊôÀ¸Ä¿£º°Ù¿Æ À´Ô´£ºÍøÂçÕûÀí
µ¼¶Á£º?xml version="1.0" encoding="utf-8" ? settings setting key="keyName1" value="value1" / setting key="keyName2" value="value2222222222222222" / /settings ///////////////////////////////////////////////////////////// Public Shared Function Ge
<?xml version="1.0" encoding="utf-8" ?>
<settings>
<setting key="keyName1" value="value1" />
<setting key="keyName2" value="value2222222222222222" />
</settings>

/////////////////////////////////////////////////////////////
Public Shared Function GetSettingKeyValue(ByVal keyName As String) As String
Dim xmlDoc As New System.Xml.XmlDocument
'XML¥Õ¥¡¥¤¥ë¤òÕi¤ßÞz¤à
xmlDoc.Load("D:TestADTestADTestSetting.xml")
Dim xnode As XmlNode = xmlDoc.DocumentElement
For Each node As XmlNode In xnode.ChildNodes
If node.Attributes("key").Value = keyName Then
Return node.Attributes("value").Value
End If
Next
Return String.Empty
End Function
Dim xmlValue As String = GetSettingKeyValue("keyName2")

£¨±à¼­£ºÀî´óͬ£©

¡¾ÉùÃ÷¡¿±¾Õ¾ÄÚÈݾùÀ´×ÔÍøÂ磬ÆäÏà¹ØÑÔÂÛ½ö´ú±í×÷Õ߸öÈ˹۵㣬²»´ú±í±¾Õ¾Á¢³¡¡£ÈôÎÞÒâÇÖ·¸µ½ÄúµÄȨÀû£¬Ç뼰ʱÓëÁªÏµÕ¾³¤É¾³ýÏà¹ØÄÚÈÝ!

    ÍƼöÎÄÕÂ
      ÈȵãÔĶÁ