VB/delphi ÐÞ¸ÄtextÎļþ - VB / »ù´¡Àà
¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC....
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß*********************************
ÎÊÌâÀ´ÁË...
ÎÒÏ뽫1.textµÄÄÚÈݲåÈëµ½ 2.text globalsÓëendglobalsÕâ¼ä,²¢±£´æеÄ2.text
********************************************************************
ÏÖÇódelphi ºÍVB µÄÔ´´úÂë.....
ºÃÏóÎı¾ÎļþÖ»ÄÜ˳Ðò¶Áд ÎÞ·¨¸Äд¼Ç¼ Ö»ÄÜÖØдÎļþÁË
Ëùν²åÈëÊý¾Ý£¬Êµ¼ÊÉÏÐèÒªÖØдÎļþ¡£
Äã´ò¿ªÁ½¸öÎļþ£¬°´ÄãÔ¤ÆڵıàÅÅ˳Ðò¶ÁÈ¡²¢Ð´ÈëÒ»¸öÐÂÎļþ¡£
ɾ³ýÎļþ2£¬½«ÐÂÎļþ¸ÄÃûΪ2¡£
Ö§³Ö3Â¥
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
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=& ......