ת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·½·¨¶ÁдÎļþ
£¨Ò»£©´ò¿ªºÍ¹Ø±ÕÎļþ
¡¡¡¡1¡¢Ë³ÐòÎļþ
¡¡¡¡´ò¿ªË³ÐòÎļþ£¬ÎÒÃÇ¿ÉÒÔʹÓÃOpenÓï¾ä¡£ËüµÄ¸ñʽÈçÏ£º
Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]
¡¡¡¡ËµÃ÷£º
¡¡¡¡£¨1£©²ÎÊýpathname ±íʾҪ´ò¿ªµÄÎļþÃû£¬ÎļþÃû¿ÉÒÔ°üº¬ÓÐÇý¶¯Æ÷ºÍÄ¿ ......
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
È¡ ......
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È¡µÃÏ߳̾ä±ú,·µ»ØÏß³Ì¾ä± ......
ÕªÒª£º ±¾ÎIJûÊöÁËÔÚVB³ÌÐòÖÐÀûÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬ÕâЩ·½·¨ÔÚ¿ª·¢VBÊý¾Ý¿âÓ¦ÓóÌÐòÖкÜÓÐʵÓüÛÖµ£¬Ëü¿ÉÒÔÌá¸ßÊý¾Ý¿â³ÌÐòÁé»îÐÔ¡£
¡¡¡¡¹Ø¼ü´Ê£ºÊý¾Ý¿â¡¢Êý¾Ý±í¡¢ADO¡¢ADOX
¡¡¡¡1: ÎÊÌâµÄÌá³ö
¡¡¡¡ÔÚVisual BasicÖУ¬³£ÓõÄÊý¾Ý·ÃÎʽӿÚÓÐÏÂÁÐÈýÖÖ£ºÊý¾Ý¿â·ÃÎʶÔÏó(DAO£¬Data A ......