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

vb Îļþ´¦ÀíÎÊÌ⣬¼±¼±¼±£¡ - VB / »ù´¡Àà

Ô­ÎļþÄÚÈÝÈçÏ£¨ÎļþºÜ´ó£¬Ô¼ÓÐ15ÍòÐУ©£º
'ÈÕÆÚ+Õýµã Êý¾Ý
2001110100 25325.0
2001110101 25635.0
2001110102 26035.0
2001110103 26345.0
2001110104 26700.0
2001110105 99999
2001110106 99999
2001110107 99999
2001110108 27170.0
2001110109 27070.0
2001110110 26850.0
2001110111 26580.0
2001110112 26320.0
2001110113 26045.0
¡­¡­
¡­¡­
¡­¡­
1.ÓÐʱµÚÒ»ÁÐÇ°Ãæ»áÓÐÒ»¸ö¿Õ¸ñ
È磺
£¨¿Õ¸ñ£©2001110100 25325.0
£¨¿Õ¸ñ£©2001110101 25635.0
  ¡­¡­ ¡­¡­
  ¡­¡­ ¡­¡­
  ¡­¡­ ¡­¡­
2.²»¹ÜÔ­ÎļþµÚÒ»ÁÐǰÊÇ·ñÓпոñ£¬¶¼Òª½«µÚ¶þÁеÄÿ¸öÊý¾Ý³ËÒԹ̶¨Öµ£¨Èç0.32£©£¬Èç¹ûµÚ¶þÁеÄÊý¾ÝΪ¡°99999¡±Ôò²»ÐèÒª¼ÆËã±£³ÖÔ­Óеġ°99999¡±¡£È»ºó½«½á¹ûÊä³öΪÁíÒ»¸öÎļþ£¨µÚÒ»ÁÐǰ²»´ø¿Õ¸ñ£©¡£
¸ñʽÈçÏ£º£¨±£ÁôһλСÊý£©
2001110100 8104.0
2001110101 8203.2
¡­¡­
2001110106 99999
2001110107 99999
¡­¡­
¡­¡­

¶àл£¡£¡£¡
splitº¯Êý²ð·Ö¡£
trimÈ¥µô¿Õ¸ñ¡£

ÒýÓÃ
splitº¯Êý²ð·Ö¡£
trimÈ¥µô¿Õ¸ñ¡£

²ð·ÖË­¶¼ÖªµÀ ÎÊÌâÊÇÔõôȷ¶¨ÊǺóÃæµÄÄǸöÊý?


Õâ¸öÎÊÌ⣬´ó¼Ò²»ÊÇÔÙÔÚÉÏÒ»ÌûÀïÓлشðÂð£¬ÄѵÀ»¹Î´½â¾ö
http://topic.csdn.net/u/20100519/23/067aff69-aab2-43ef-b3db-872e5a49fe7e.html

¸ÐлÉϵۣ¬¸Ðл¥Ö÷É¢·Ö£¬°³ÔÙ¸´ÖÆÒ»Ï£º
Dim i As Long
Dim strText As String
Dim strLines() As String
Dim strFields() As String

'¶ÁÎļþ
Open App.Path


Ïà¹ØÎÊ´ð£º

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......

VBÌîÐ´ÍøÒ³Îı¾Çø - VB / »ù´¡Àà

ÓÐÁ½¸öÎÊÌâ
µÚÒ»¸öÎÊÌ⣺
ÍøÒ³Ô´Âë
<td><select name="question" onchange="showcustomquest(this.value)" tabindex="4"><option value="0">ÎÞ°²È«ÎÊ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ