Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBº¯ÊýÖÐÓÐûÓÐÀàËÆÓÚsqlÖÐlikeµÄº¯Êý - VB / »ù´¡Àà

ÈçÌ⣬VBÖÐÓÐûÓÐÀàËÆÓÚsqlÖÐlikeµÄº¯Êý£¬ÈçÒ»ÏÂSQLÓï¾äÔõôÓÃVBʵÏÖ
( str like ¡®%Éî%ÛÚ%¡¯ or str is null or str ='')
ÔÚVBÖÐÔõôÅжÏÒ»¸ö×Ö·û´®str°üº¬ÓС°ÉîÛÚ¡±×ÖÁ½¸öÔÚÀïÃæ»òÕßΪ¿Õ
InStr º¯Êý
   

·µ»Ø Variant (Long)£¬Ö¸¶¨Ò»×Ö·û´®ÔÚÁíÒ»×Ö·û´®ÖÐ×îÏȳöÏÖµÄλÖá£

Óï·¨ 

InStr([start, ]string1, string2[, compare])

InStr º¯ÊýµÄÓï·¨¾ßÓÐÏÂÃæµÄ²ÎÊý£º

²¿·Ö ˵Ã÷ 
start ¿ÉÑ¡²ÎÊý¡£ÎªÊýÖµ±í´ïʽ£¬ÉèÖÃÿ´ÎËÑË÷µÄÆðµã¡£Èç¹ûÊ¡ÂÔ£¬½«´ÓµÚÒ»¸ö×Ö·ûµÄλÖÿªÊ¼¡£Èç¹û start °üº¬ Null£¬½«·¢Éú´íÎó¡£Èç¹ûÖ¸¶¨ÁË compare ²ÎÊý£¬ÔòÒ»¶¨ÒªÓÐ start ²ÎÊý¡£ 
string1 ±ØÒª²ÎÊý¡£½ÓÊÜËÑË÷µÄ×Ö·û´®±í´ïʽ¡£ 
string2 ±ØÒª²ÎÊý¡£±»ËÑË÷µÄ×Ö·û´®±í´ïʽ¡£ 
Compare ¿ÉÑ¡²ÎÊý¡£Ö¸¶¨×Ö·û´®±È½Ï¡£Èç¹û compare ÊÇ Null£¬½«·¢Éú´íÎó¡£Èç¹ûÊ¡ÂÔ compare£¬Option Compare µÄÉèÖý«¾ö¶¨±È½ÏµÄÀàÐÍ¡£ 


ÉèÖÃ

 compare ²ÎÊýÉèÖÃΪ£º

³£Êý Öµ ÃèÊö 
vbUseCompareOption -1 ʹÓÃOption Compare Óï¾äÉèÖÃÖ´ÐÐÒ»¸ö±È½Ï¡£ 
vbBinaryCompare 0 Ö´ÐÐÒ»¸ö¶þ½øÖƱȽϡ£ 
vbTextCompare 1 Ö´ÐÐÒ»¸ö°´ÕÕÔ­ÎĵıȽϡ£ 
vbDatabaseCompare 2 ½öÊÊÓÃÓÚMicrosoft Access£¬Ö´ÐÐÒ»¸ö»ùÓÚÊý¾Ý¿âÖÐÐÅÏ¢µÄ±È½Ï¡£ 


·µ»ØÖµ

Èç¹û InStr·µ»Ø 
string1 ΪÁ㳤¶È 0 
string1 Ϊ Null Null 
string2 ΪÁ㳤¶È Start 
string2 Ϊ Null Null 
string2 ÕÒ²»µ½ 0 
ÔÚ string1 ÖÐÕÒµ½string2 ÕÒµ½µÄÎ


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ