- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-12
|
¦^´_ 11# lalalada
¢°¡Ddim «á±ªº$©M&¬O«ü©w«¬§Oªº·N«ä§a?
¡Ä¡Ä¥i¥H°Ñ¦Ò¶W¯Åª©¥Dªº»¡©ú¡Ghttp://forum.twbts.com/redirect. ... 22366&ptid=3820
¢±¡D¡eget¡f¡epost¡f¬°¦ó¦³®t¡H
¡Ä¡Ä¤£¬Oexcel¤Îvba¥¿¬ì¡A®Ú¥»¤£À´¨ä¾÷¨î¡A¬Ý¹L¶W¯Åª©¥Dªºµ{¦¡½X«D±`¹D¦a¦Ó±M·~¡A©Î³\¥i¥H´£¨Ñ±M·~ª¾ÃѤÀ¨É¡I
¡@¡@¥t¡A¦bºô§}¤W¥[¤JÅܰʰѼơA¨Ï¥Î¡eget¡f¤]¥i§ì¥X³Ì·s¼Æ¾Ú¡A¦ý¥i¯àµLªk¾A¥Î©Ò¦³ªººô§}¡A¨Ò¦p¡G
¡@¡@QcURL = "http://www.post.gov.tw/post/internet/index.jsp?" & Rnd
¡@¡@³o¤]¬Oª¾¨äµM¦Ó¤£ª¾¨ä©Ò¥HµM¡A¤j·§ie¦³¦Û°Ê®Õ¥¿ºô§}ªºì¦]§a¡I¡]²q¡^
¢²¡D´ú¸Õ½X¦]±q´XÓ¤lµ{§Ç¤¤´ê¦¨¡A¤@®É±N´N¡F¸g¶Q¤âºë²«á¡A¬Ý°_¨Ó²M²n³\¦h¡I^ ^
¡@¡@¦]¬°¦³¤ÏÂШú«ü©w¦r¦ê»Ý¨D¡A¤@¯ë·|¥H¤lµ{§Ç©Îfunction¨Ó©I¥s¡A¬ù²¤¦p¤U¡G
Sub ¨ú±o«ü©w¦r¦ê()
Dim uTxt$, T1$, T2$
uTxt = "©Ò¦b¦a¡G¥xÆW¡A¤é´Á¡G102¦~5¤ë19¤é¡A¬P´Á§O¡G¬P´Á¤é¡A®É¶¡¡G12:52:24(TM)"
T1 = "¤é´Á¡G": T2 = "¡A¬P´Á"
MsgBox Get_String(uTxt, T1, T2)
T1 = "®É¶¡¡G": T2 = "(TM)"
MsgBox Get_String(uTxt, T1, T2)
End Sub
Function Get_String(xStr$, xT1$, xT2$) As String
Dim X1%, X2%
X1 = InStr(xStr, xT1)
If X1 > 0 Then X2 = InStr(X1 + Len(xT1), xStr, xT2)
If X2 = 0 Then Exit Function
Get_String = Mid(xStr, X1 + Len(xT1), X2 - X1 - Len(xT1))
End Function
«D¥¿²Îªºµ{¦¡½X¡A¬Ý¬Ý´N¦n¡I |
|