Çë½Ì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)
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......