ÓÃVB»ñÈ¡Ò»¸öÎļþ¼ÐϵÄËùÓÐXMLÎļþ
ÎÒÏë»ñÈ¡VBÎļþ¼ÐϵÄËùÓÐXMLÎļþ
¸ú»ñÈ¡TXTÎļþÒ»Ñù.
Ñ»·Àú±é¼´¿É.
ÄãÈ¥ÕÒһϠͷËÑË÷Îļþ µÄVB´úÂë »òÕßÖ±½ÓÓà FileListBox È»ºó¼ÓÔص½Êý×é ÌáÈ¡XMLÎļþ
ÄÜ°ïæдһ¶Î´úÂëÂð
¸ø¸ö¼òµ¥Àý×Ó£º
VB code:
Dim spath As String
Dim sfile As String
spath = "vb·¾¶\*.xml"
sfile = Dir(spath)
While sfile <> ""
sfile = Dir()
Wend
lz²ÎÕÕ×Ô¼º¸Ä¸Ä°É¡£
FileSystemObject
'Ò²¿ÉÒÔshellÔËÐÐdirÃüÁî
shell("cmd /c dir /b /s /a-d d:\Îļþ¼Ð\*.xml >d:\allxml.txt")
'È»ºó¶Ád:\allxml.txtµÄÄÚÈÝ
Ïà¹ØÎÊ´ð£º
´ÓÊý¾Ý¿âÖвéѯһÕűíµÄÊý¾Ý
select ²¿ÃÅ,ÐÕÃû from tb
ÈçºÎ²ÅÄÜÉú³ÉÏÂÃæµÄxml¸ñʽ
XML code:
<folder state="unchecked" label="È«²¿">
¡¡¡¡ <folder state="unchecked&qu ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
Ç°ÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÎÒÓÐÒ»¸öÀàËƵÄxmlµÄ string£¬Ïëͨ¹ý±éÀúÔõô¸öxml Êä³öÎÒÏëÒªµÄelementµÄÖµ
xml Ϊ£º
<Discover xmlns="urn:schemas-microsoft-com:xml-analysis">
<RequestType>DISCOVER_XML_ME ......
ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎĶ¼¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À²®ÎĵÄ×Ö¿âÄãÓÐô£¿
ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......