VBÈ¡×Ö·û´®
±ÈÈç aaaa,bbbbbb,dddgdfdf,ddseeÕâ¸ö×Ö·û´®£¬ÎÒҪȡ̤µÚÒ»¸ö¶ººÅÇ°ÃæµÄaaaa¾ÍºÃÁË
²»¹ýÕâ¸ö×Ö·û´®»á±ä£¬Ò²¿ÉÄÜÊÇaaaaaaaa,dfdfdfd,ddaa,ddd»òÕßdbdfdfldjdglgdg,dfi,ddld,ddeʲôµÄ
Ìõ¼þÊÇ£¬Èç¹ûÕâ¸ö×Ö·û´®°üº¬¶ººÅ£¬¾ÍÈ¡µÚÒ»¸ö¶ººÅÇ°ÃæµÄ£¬Èç¹û²»°üº¬¶ººÅ¾ÍÈ¡Õû¸ö×Ö·û´®
Çë¸ßÊÖ °ï°ï棬ллÁË
ÇëʹÓÃSplitº¯Êý
Splitº¯Êý
ÃèÊö
·µ»ØÒ»¸öϱê´ÓÁ㿪ʼµÄһάÊý×飬Ëü°üº¬Ö¸¶¨ÊýÄ¿µÄ×Ó×Ö·û´®¡£
Óï·¨
Split(expression[, delimiter[, count[, compare]]])
Splitº¯ÊýÓï·¨ÓÐÈçϼ¸²¿·Ö£º
²¿·Ö ÃèÊö
expression ±ØÐèµÄ¡£°üº¬×Ó×Ö·û´®ºÍ·Ö¸ô·ûµÄ×Ö·û´®±í´ïʽ ¡£Èç¹ûexpressionÊÇÒ»¸ö³¤¶ÈΪÁãµÄ×Ö·û´®("")£¬SplitÔò·µ»ØÒ»¸ö¿ÕÊý×飬¼´Ã»ÓÐÔªËØºÍÊý¾ÝµÄÊý×é¡£
delimiter ¿ÉÑ¡µÄ¡£ÓÃÓÚ±êʶ×Ó×Ö·û´®±ß½çµÄ×Ö·û´®×Ö·û¡£Èç¹ûºöÂÔ£¬ÔòʹÓÿոñ×Ö·û(" ")×÷Ϊ·Ö¸ô·û¡£Èç¹ûdelimiterÊÇÒ»¸ö³¤¶ÈΪÁãµÄ×Ö·û´®£¬Ôò·µ»ØµÄÊý×é½ö°üº¬Ò»¸öÔªËØ£¬¼´ÍêÕûµÄ expression×Ö·û´®¡£
count ¿ÉÑ¡µÄ¡£Òª·µ»ØµÄ×Ó×Ö·û´®Êý£¬–1±íʾ·µ»ØËùÓеÄ×Ó×Ö·û´®¡£
compare ¿ÉÑ¡µÄ¡£Êý×ÖÖµ£¬±íʾÅбð×Ó×Ö·û´®Ê±Ê¹ÓõıȽϷ½Ê½¡£¹ØÓÚÆäÖµ£¬Çë²ÎÔÄ¡°ÉèÖÃÖµ¡±²¿·Ö¡£
ÉèÖÃÖµ
compare²ÎÊýµÄÉèÖÃÖµÈçÏ£º
³£Êý Öµ ÃèÊö
vbUseCompareOption –1 ÓÃOption CompareÓï¾äÖеÄÉèÖÃÖµÖ´ÐбȽϡ£
vbBinaryCompare 0 Ö´Ðжþ½øÖƱȽϡ£
vbTextCompare 1 Ö´ÐÐÎÄ×ֱȽϡ£
vbDatabaseCompare 2 ½öÓÃÓÚMicrosoft Access¡£»ù
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......