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

תVB ×Ö·û´®´¦Àíº¯Êý¼¯ ÊÕ²Ø

 

VB ×Ö·û´®´¦Àíº¯Êý¼¯

ÊÕ²Ø



mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È)
  ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®] 
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ" 
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2)
´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1ÖеÄλÖà
ÀýÈç instr(1,"СÐÀÎÞµÐ","С") Ôò·µ»Ø 1,instr(2,"СÐÀÎÞµÐ","С")£¬Ôò·µ»Ø 0 ¡£ 0 ±íʾδÕÒµ½ 
InStrRev(×Ö·û´®1,×Ö·û´®2,´ÓµÚ¼¸¸ö¿ªÊ¼)
´Ó¹æ¶¨µÄλÖÿªÊ¼£¬´Óºóסǰ²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1ÖеÄλÖ㬴˴¦×¢Ò⣬ËäÊÇ´Óºóסǰ²éÕÒ£¬µ«ÊÇ·µ»ØµÄÖµ»¹ÊÇ´ÓǰÍùºóËãµÄ¡£ 
ÀýÈç instrRev("СÐÀÎÞµÐ","С",2) Ôò·µ»Ø 2 ; instrRev("СÐÀÎÞµÐ","ÐÀ",1) Ôò·µ»Ø 0 ,ÒòΪËü´Ó"СÐÀÎÞµÐ"µÄµÚ1¸ö×Ö¿ªÊ¼Íùǰ²éÕÒ£¬ËùÒÔÕÒ²»µ½ ¡£0 ±íʾδÕÒµ½ 
left(×Ö·û´®,³¤¶È)
´Ó[×Ö·û´®]µÄ×ó±ß¿ªÊ¼·µ»Ø[³¤¶È]¸ö×Ö·û 
ÀýÈç Left("СÐÀÎÞµÐ,3) Ôò·µ»Ø "СÐÀÎÞ" 
right(×Ö·û´®,³¤¶È)
´Ó[×Ö·û´®]µÄÓұ߿ªÊ¼·µ»Ø[³¤¶È]¸ö×Ö·û 
ÀýÈç Right("СÐÀÎÞµÐ",3) Ôò·µ»Ø "ÐÀÎÞµÐ" 
ucase(×Ö·û´®)
·µ»Ø[×Ö·û´®]µÄ´óдÐÎʽ£¬Ö»¶ÔÓ¢ÎÄ×Ö·ûÓÐЧ 
ÀýÈç ucase("xiaoXINwuDi") Ôò·µ»Ø "XIAOXINWUDI" 
lcase(×Ö·û´®)
·µ»Ø[×Ö·û´®]µÄСдÐÎʽ£¬Ö»¶ÔÓ¢ÎÄ×Ö·ûÓÐЧ 
ÀýÈç lcase("xiaoXINwuDi") Ôò·µ»Ø "xiaoxinwudi" 
asc(×Ö·û)
·µ»Ø[×Ö·û]µÄascii±àÂ룬ÈôÓжà¸ö×Ö·û£¬ÔòÖ»·µ»ØÊ××Ö·ûµÄascii±àÂë,ºÍChr()º¯ÊýÊÇÒ»¸ö¿ÉÄæµÄ¹ý³Ì 
ÀýÈç asc("С") Ôò·µ»Ø -12127 ; asc("СÐÀÎÞµÐ") Ò²·µ»Ø -12127 
chr(ASCii±àÂë)
·µ»Ø[Ascii]±àÂëËù´ú±íµÄ×Ö·û£¬ºÍChr()º¯ÊýÊÇÒ»¸ö¿ÉÄæµÄ¹ý³Ì 
ÀýÈç chr(-12127) Ôò·µ»Ø "С" £»chr(asc("С")) Ôò·µ»Ø"С"(ÕâÀïÊÇΪÁË˵Ã÷ascºÍchrµÄ¿ÉÄæÐÔ£¬ÀýÓôËÌØÐÔ¿ÉÒÔ¼ÓÃÜÎı¾) 
trim(×Ö·û´®)
·µ»ØÈ¥µôÁËǰ¡¢ºóÖ®ºóµÄ[×Ö·û´®] 
ÀýÈç trim("   С ÐÀ   Î޵Р  ") Ôò·µ»Ø "С ÐÀ   ÎÞµÐ" £¬Ö


Ïà¹ØÎĵµ£º

vbʹÓÃopen·½·¨¶ÁдÎļþ

 
vbʹÓÃopen·½·¨¶ÁдÎļþ
£¨Ò»£©´ò¿ªºÍ¹Ø±ÕÎļþ
¡¡¡¡1¡¢Ë³ÐòÎļþ
¡¡¡¡´ò¿ªË³ÐòÎļþ£¬ÎÒÃÇ¿ÉÒÔʹÓÃOpenÓï¾ä¡£ËüµÄ¸ñʽÈçÏ£º

Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]
¡¡¡¡ËµÃ÷£º
¡¡¡¡£¨1£©²ÎÊýpathname ±íʾҪ´ò¿ªµÄÎļþÃû£¬ÎļþÃû¿ÉÒÔ°üº¬ÓÐÇý¶¯Æ÷ºÍÄ¿ ......

VB È¡µØÖ·º¯Êý´óÈ«

Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
Public Declare Function VarPtrStringArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
È¡¶ÔÏóµØÖ·: ObjPtr
È¡OLE¶ÔÏóµÄµØÖ·: OLE_NAME.LpOleObject
È¡º¯ÊýµØÖ·: AddressOf
È¡×Ö·û´®µØÖ·: StrPtr
È¡ ......

VBÈ¡µÃÏ߳̾ä±ú

 Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
 OpenThread(THREAD_ALL_ACCESS, 1, Ïß³ÌID)    'ÓÉÏß³ÌIDÈ¡µÃÏ߳̾ä±ú,·µ»ØÏß³Ì¾ä± ......

VB³ÌÐòÖÐÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍ±í

    ÕªÒª£º ±¾ÎIJûÊöÁËÔÚVB³ÌÐòÖÐÀûÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬ÕâЩ·½·¨ÔÚ¿ª·¢VBÊý¾Ý¿âÓ¦ÓóÌÐòÖкÜÓÐʵÓüÛÖµ£¬Ëü¿ÉÒÔÌá¸ßÊý¾Ý¿â³ÌÐòÁé»îÐÔ¡£
¡¡¡¡¹Ø¼ü´Ê£ºÊý¾Ý¿â¡¢Êý¾Ý±í¡¢ADO¡¢ADOX
¡¡¡¡1: ÎÊÌâµÄÌá³ö
¡¡¡¡ÔÚVisual BasicÖУ¬³£ÓõÄÊý¾Ý·ÃÎʽӿÚÓÐÏÂÁÐÈýÖÖ£ºÊý¾Ý¿â·ÃÎʶÔÏó(DAO£¬Data A ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ