Çë½ÌvbÖÐÔõô°´¸ñʽÊä³öÊý×é
vbÖУ¬°´
1£¬2£¬3£¬4£¬...
2£¬3£¬4£¬56£¬...
5£¬6£¬7£¬8£¬...
¡£¡£¡£
ÕâÑùµÄ¸ñʽ¶ÁÈëÁËÊý×飬ÏÖÔÚÏë°ÑÊýÖµ°´ÔÀ´µÄÅÅÁз½Ê½Êä³öµ½csvÎļþÖÐ
Çë½ÌÓ¦¸ÃÔõô²Ù×÷£¬Ð»Ð»Äú°ïÖú
ÓÃSplitº¯Êý
±ÈÈçÒ»ÐÐÎı¾
Dim a As String
a="1,2,3,4,5,6,78,9"
Dim UU() As String
UU=Split(a,",")
ÕâÑù¾ÍÒÔ","Ϊ·Ö¸î·ûºÅ·Ö¸îµ½UUÊý×éÀïÁË,Èç
Msgbox "UU(0):" & UU(0)
½á¹ûÊÇ "UU(0):1"
Splitº¯ÊýÏêϸµÄÄã×Ðϸ¿´¿´MSDN°É
VB code:
Dim s$(3)
s(0) = "1": s(1) = "2": s(2) = "3": s(3) = "4"
MsgBox Join(s, ",")
ÔËÐнá¹û£º¡°1,2,3,4¡±
²»ÖªµÀÂ¥Ö÷ÊÇ·ñÕâ¸öÒâ˼£¿
лл¥ÉÏÁ½Î»£¬
ÎÒûÓн²ÊöÇå³þÒâ˼¡£
ÎÒÒѾÓÐÁËÕâÑùÒ»¸öÊý×飬
ÏÖÔÚÏë°ÑËüÔÑùÊä³öÀ´¡£
¼ÙÈçÒѾÓÐÁËÕâÑùµÄÊý×é
array£¨x£¬y£©
ÎÒÒªÍêÕûÊä³öÕâ¸öÊý×éµ½Ò»¸öÎļþ£¬
ÅųÉx+1ÐУ¬y+1ÁУ¬×Ô¶¯ÓöººÅ·Ö¸î£¬±£´æÎªcsv»òÎı¾Îļþ¡£
ÔõôʵÏÖ£¿
ÊÔÊÔ¿´£¬²»ÖªµÀÊDz»ÊÇÂ¥Ö÷ÒªµÄ½á¹û
VB code:
Private Sub Command1_Click()
Dim s$(3, 2), ss$
For i = 0 To UBound(s)
For j = 0 To UBound(s, 2)
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......