ÓÃ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 ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ÈçºÎÓÃATL´°ÌåÓ¦ÓóÌÐòÖÐÓÃSystem.Xml±éÀúÒ»¸öXmlÎļþ
Äã˵µÄÊÇÍйܴúÂ룿
¡£
vc¿ÉÓÃmsxml
http://msdn.microsoft.com/en-us/library/ms767594(VS.85).aspx
MSXML4
//ÒýÈëmsxml4.dll &nbs ......