ת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ÏîÄ¿µÄʱºò£¬Ê¹ÓÃÁËListBox¿Ø¼þÀ´»ñȡһЩÁбíÏÓÃÁ˲ŷ¢ÏÖûÓÐListViewºÃÓã¬ListViewÓÐItems£¨SelectItem£©¿ÉÒÔ¶¨Î»µ½µ±Ç°µÄÑ¡ÖÐÏ¶øListBoxûÓУ»ListViewÓÐTag¿ÉÒÔÉ趨ѡÖÐÏîµÄ±êʾ£¬ListBoxûÓС£ÉÏÍøÒ²ÕÒ²»µ½ÔÒò£¬ÖªµÀÈ¥ÔĶÁMSDNºÍ×Ô¼º²âÊÔ¡£
Ö®ºóÖÕÓÚÕÒµ½ÁËÎÊÌâµÄ¹Ø¼ü¡£
ʼþ1£ºÌí¼ÓListBoxÏ ......
C#×Ô¼ºÃ»ÓÐInputboxÕâ¸öÀ࣬µ«ÊÇInputboxÒ²ÂùºÃÓõģ¬ËùÒÔÓÐÁ½ÖÖ·½·¨¿ÉÒÔʹÓÃ
Ò»£º.¼ä½Óµ÷ÓÃvbÖеÄInputbox¹¦ÄÜ
1¡£ÔÚÏîÄ¿ÖÐÌí¼Ó¶ÔMicrosoft.VisualBasicÒýÓÃ
2¡£ÔÚÏîÄ¿ÖÐÌí¼ÓÃüÃû¿Õ¼äUsing Microsoft.VisualBasic;
&n ......
'´´½¨Êý¾Ý¿â
Private Sub Create(ByVal mdbPath As String)
If File.Exists(mdbPath) Then
Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ´æÔÚ£¬ÎÞ·¨´´½¨")
......
¼òµ¥
ÔÚGlobal.asaÎļþÖмÓÈëÈçϵĴúÂ룺
Java´úÂë
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. 'µ±·þÎñÆ÷¿ªÆôʱ£¬ÉèÖÃÔÚÏßÓû§¼ÆÊýÆ÷Ϊ0
6. Application("ActiveUsers") = 0
7.
......