ÓÃ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µÄÄÚÈÝ
Ïà¹ØÎÊ´ð£º
txt ºÍXML ¸ñʽÏàÓ¦
²»½èÖúDataSet
µ¼Èë¶ÁÈ¡TXTÎļþ
È»ºóÖ±½ÓдÈëXML(ͬһÎļþ,²»Í¬Êý¾Ý,µÝÔöÔÊý¾ÝûÓб»¸²¸ÇÇé¿öÏÂÔö¼ÓÊý¾Ý.)
½Ì¸öÒªµã»ò×îºÃÊÇÓиö´úÂëÌáʾµÄ
¹ý·ºÃºº °ï¸öæÈö^^
²»»á£¬°ïÂ¥Ö÷ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÎÒÓÐÒ»¸öÀàËÆµÄxmlµÄ string£¬Ïëͨ¹ý±éÀúÔõô¸öxml Êä³öÎÒÏëÒªµÄelementµÄÖµ
xml Ϊ£º
<Discover xmlns="urn:schemas-microsoft-com:xml-analysis">
<RequestType>DISCOVER_XML_ME ......
ÈçºÎÓÃATL´°ÌåÓ¦ÓóÌÐòÖÐÓÃSystem.Xml±éÀúÒ»¸öXmlÎļþ
Äã˵µÄÊÇÍйܴúÂ룿
¡£
vc¿ÉÓÃmsxml
http://msdn.microsoft.com/en-us/library/ms767594(VS.85).aspx
MSXML4
//ÒýÈëmsxml4.dll &nbs ......