[µo°Ý] ½Ð°Ý¦p¦ó®»¨úºô­¶¤º¥þ³¡¹Ï¤ùªººô¤î

wufonna

½Ð°Ý¦p¦ó®»¨úºô­¶¤º¥þ³¡¹Ï¤ùªººô«ü


¨Ò¦p
http://blog.mjjq.com/archives/1975.html

ªº


.
.
.
.


ÁÂÁÂ

wufonna

ÁÂÁ  G ¤j
excel ¤ºªº¦n¦h¨ç¼Æ´N¾Ç¤£§¹¡A^_^
­n¦h¦hªº½m²ß¡A
«D±`·PÁÂ G ¤j

GBKEE

¦^´_ 18# wufonna

1. Option Explicit
   
2. Sub test()
   
3.     Dim a As String, b As String, c As String, d As String
   
4.     Dim AR As Variant, i As Integer, S(1 To 2) As Integer
   
5.     a = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/130asf302-190c8a5.jpg"" alt=""Video ¹Ï¤ù"" width=160 height=115><br>"
   
6.     b = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/asf912151302190c8a35.jpg"" ></p>"
   
7.     c = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/130f302-19c8a35.jpg"" alt=""Video ¹Ï¤ù"" height=115><br />"
   
8.     d = "<img width=160 height=115 src=http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/13092151302190c8a35.jpg  ></a>"
   
9.     AR = Array(a, b, c, d)
   
10.     For i = 0 To UBound(AR)
    
11.         S(1) = InStr(AR(i), "http://")
    
12.         S(2) = InStr(AR(i), "jpg") + 3
    
13.         AR(i) = Mid(AR(i), S(1), S(2) - S(1))
    
14.     Next
    
15.     MsgBox Join(AR, vbLf)
    
16. End Sub

½Æ»s¥N½X

wufonna

«D±`ÁÂÁÂ G ¤j ^_^
¾Ç¥Í«Ü¦h°ÝÃD /___\
ºô­¶¤º«Ü¦h¼Ë¦¡ªº¼ÐÅÒ
¥i¥Î³o¼Ëªº¤èªk¡AÁÙ¬O¦³¤°»ò¤è«Kªº¤èªk
Sub test()
Dim a, b, c, d

a = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/130asf302-190c8a5.jpg"" alt=""Video ¹Ï¤ù"" width=160 height=115><br>"
b = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/asf912151302190c8a35.jpg"" ></p>"
c = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/130f302-19c8a35.jpg"" alt=""Video ¹Ï¤ù"" height=115><br />"
d = "<img width=160 height=115 src=http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/13092151302190c8a35.jpg  ></a>"
a = Split(a, "http://")(1)
a = Split(a, ".jpg")(0)
a = "http://" & a & ".jpg"
b = Split(b, "http://")(1)
b = Split(b, ".jpg")(0)
b = "http://" & b & ".jpg"
c = Split(c, "http://")(1)
c = Split(c, ".jpg")(0)
c = "http://" & c & ".jpg"
d = Split(d, "http://")(1)
d = Split(d, ".jpg")(0)
d = "http://" & d & ".jpg"
MsgBox a & Chr(10) & b & Chr(10) & c & Chr(10) & d

End Sub
ÁÂÁÂ

GBKEE

¦^´_ 16# wufonna
½Ð¸Ô¬ÝSplit ¨ç¼Ævba»¡©ú

1. Split ¨ç¼Æ
   
2. ¶Ç¦^¤@­Ó³¯¦C¯Á¤Þ±q¹s¶}©lªº¤@ºû°}¦C¡A¥¦¥]§t«ü©w¼Æ¥Øªº¤l¦r¦ê¡C

½Æ»s¥N½X

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim s As Variant, i As Integer
   
4.     s = "<meta name=""description"" content=""´£¨Ñ³Ì¤è«Kªººô¯¸·j´Mcontent=""§Y®É·s»Dcontent=""¡B¥Í¬¡¸ê°T©MYahoo©_¼¯ªA°È¤J¤f¡C"">"
   
5.     s = Split(s, "content=""")
   
6.     MsgBox Join(s, vbLf)
   
7.     MsgBox UBound(s)           '°}¦C¤W­­¤¸¯À¯Á¤Þ­È
   
8.     For i = 0 To UBound(s)
   
9.         MsgBox s(i)
   
10.     Next
    
11. End Sub

½Æ»s¥N½X

wufonna

½Ð°ÝG¤j
split «á­±ªº(1)¬O§R¦r¤¸«eªº¥þ³¡
(0)§R¦r¤¸«áªº¥þ³¡¶Ü
ÁÂÁÂ

Sub Ex()
    Dim s As String, i, ss As String
    s = """"
    MsgBox s
    s = "A &   ""   &   B"
    MsgBox s
    s = "<meta name=""description"" content=""´£¨Ñ³Ì¤è«Kªººô¯¸·j´M¡B§Y®É·s»D¡B¥Í¬¡¸ê°T©MYahoo©_¼¯ªA°È¤J¤f¡C"">"
    MsgBox s
    s = Split(s, "content=""")(1)
    MsgBox s
    s = Split(s, """>")(0)
    MsgBox s
End Sub

GBKEE

¦^´_ 14# wufonna

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim s As String
   
4.     s = """"
   
5.     MsgBox s
   
6.     s = "A &   ""   &   B"
   
7.     MsgBox s
   
8.     s = "<meta name=""description"" content=""´£¨Ñ³Ì¤è«Kªººô¯¸·j´M¡B§Y®É·s»D¡B¥Í¬¡¸ê°T©MYahoo©_¼¯ªA°È¤J¤f¡C"">"""
   
9.     MsgBox s
   
10. End Sub

½Æ»s¥N½X

wufonna

½Ð°Ý¦p«Å§i¦r¦ê
<meta name="description" content="´£¨Ñ³Ì¤è«Kªººô¯¸·j´M¡B§Y®É·s»D¡B¥Í¬¡¸ê°T©MYahoo©_¼¯ªA°È¤J¤f¡C">

===========================
Sub TEST()

Dim s As String
s = "<meta name="description" content="´£¨Ñ³Ì¤è«Kªººô¯¸·j´M¡B§Y®É·s»D¡B¥Í¬¡¸ê°T©MYahoo©_¼¯ªA°È¤J¤f¡C">"
End Sub
¿ù»~
ÁÂÁÂ

cji3cj6xu6

¯u¬O¯«¤F¡A­ì¨Ó VBA¥i¥H°µ³o»ò¦h¨Æ¡A
¯u¬O!$@#%@#$#%@#%#$%^

GBKEE

¦^´_ 11# wufonna
2003±µ¨ü±N .Pictures.Insert (.Cells(i, 2)) Âন.Cells(i, 2).Value
10# stillfish00 §Ú¥Î2010¡A­n§â23¦æ§ï¦¨  .Pictures.Insert .Cells(i, 2).Value ¤~¯à¶]