ËÓÐVB×Ô¶¯·¢ËͶÌÐųÌÐò´úÂë!
ÒÑÓÐÒ»¶ÌÐÅè,²âÊÔÒÑͨ¹ý,ÏÖÔÚÈçºÎʵÏÖÈÃÕâ¸ö¶ÌÐÅè¸ù¾ÝÊý¾Ý±íÀïµÄÊÖ»úºÅ,×Ô¶¯·¢ËͶÌÐÅ.²»¿ÉÄÜÎÒÓÃÊÖ¹¤È¥·¢ËͰÉ!
ÄÄλºÃÐĵÄÅóÓÑÄÜÌṩһÏÂ,
»òÕßдһÏÂ×Ô¶¯·¢ËÍÖªÐŵĴúÂë.лл
Ã»Íæ¹ý£¬²»ÖªµÀ½Ó¿Ú¡£¡£¡£
½Ó¿ÚÎÒÒѾÓÐÁË..¶¼²âÊÔ¿ÉÒÔ·¢..µ«ÊÇÄÇÊÇÊÖ¹¤·¢ËÍ,,ÏÖÔÚÒªËû×Ô¶¯·¢ËÍ
Ò²¾ÍÊÇ˵֪ÐÅ×Ô¶¯±¨¾¯
UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
²âÊÔÈç¹ûÊÇÔ´ÂëµÄ»°£¬·¢³öÀ´£¬Èôó¼Ò¸ø¿´¿´¡£Èç¹û²»ÊÇÔ´ÂëµÄ»°£¬ËµÏÂGSMèµÄÐͺţ¬²»¹ýÒ»°ãGSMè¶¼´ø×ÅÏà¹ØµÄ¿ª·¢×ÊÁÏ¡£
¿ÉÒÔ....ÎÒÃ÷ÌìÌù³öÀ´..
Ìṩһ¸ö˼·£¬¶ÌÐŵÄÄÚÈÝÌí¼Óµ½Êý¾Ý¿âµÄÒ»¸öÊý¾Ý±íÖС£
×Ô¼ºÐ´Ò»¸ö³ÌÐò£¬×îºÃʹÓÃvc»ò.netÀ´Ð´¡£ÓöàÏ̼߳¼Êõ£¬Ã¿¸ô5Ãë¹Û²âÒ»´ÎÕâ¸ö±í¡£
·¢ÏÖÓÐÐÂÔö¼Í¼£¨Î´·¢Ë͵ļͼ£¬¸ù¾Ý±êʾ·ûÀ´Åжϣ©£¬¾Í°´¼Í¼µÄ¶ÌÐÅÄÚÈÝ¡¢µç»°ºÅÂëÀ´·¢ËÍ£¬·¢ËÍÍê³Éºó½«×´Ì¬Éè³É·¢ËÍÍê³É¡£
ÕâÑù»¹¿ÉÒԲ鿴ÀúÊ·¼Ç¼¡£
ÎÒÃǹ«Ë¾¾ÍÕâô¸É¡£
½«ËùÓдý·¢µÄ¶ÌÐżÇÈëÊý¾Ý¿âµÄ´ý·¢ÐÅÏ¢±íÖУ»
³ÌÐòÓà Timer ¿Ø¼þ¿ª¸ö¶¨Ê±£º
1)ÏÈÅж϶ÌÐÅèÊÇ·ñ¿ÕÏÐ
2)ÊÇ·ñÓдý·¢ÐÅÏ¢¼Ç¼£¬È¡µÚÒ»Ìõ
3)·¢¶ÌÐÅ
4)·¢Ëͳɹ¦ºóɾ³ý¸Ã´ý·¢ÐÅÏ¢¼Ç¼
ÒÔÉϵÄÅóÓѺܸßÐËÈÏʶÄã¡£¡£¿ÉÒÔ¼ÓÎÒQÁÄÁÄÂ𡣡£¡£Ð»Ð»23284221
Õæ³ÏÇë½Ì
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
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 ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......