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