c#µÄÎÒÖªµÀ£¬¿ÉÊÇvb.netÊÇÔõô±íʾµÄ£¿ Assembly code: Dim node As System.Xml.XmlNode = xmlDoc.SelectSingleNode("root/" & key) 'key½Úµã If node Is Nothing Then '²»´æÔÚ End If
VB.NET code: Dim node As System.Xml.XmlNode = xmlDoc.SelectSingleNode("root/" & key) 'key½Úµã If node Is Nothing Then '²»´æÔÚ End If
Dim node As System.Xml.XmlNode = xmlDoc.SelectSingleNode("//Root/A[@id=" & id & "]") If node IsNot Nothing Then End If ΪÁËÎÊÎÊÌ⣬ ÏȵÄ׬׬
ÎÒÏë°ÑwordÁí´æΪxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......