GBKEE

¦^´_ 3# cji3cj6xu6

1. Option Explicit
   
2. Sub ¤U¸üºô¸ô·Ó¤ù()
   
3.     Dim a As Variant, e As Integer, i As Integer, s As Variant, p As Integer
   
4.     With CreateObject("Microsoft.XMLHTTP")
   
5.         .Open "get", "http://blog.mjjq.com/archives/1975.html", False
   
6.        .send
   
7.        a = Split(.responseText, vbLf)
   
8.     End With
   
9.     With ActiveSheet
   
10.         .Pictures.Delete
    
11.         .Cells.Clear
    
12.         i = 1
    
13.         For e = 0 To UBound(a)
    
14.             If InStr(a(e), "src=""http://") And InStr(a(e), ".jpg"" /><br />") Then
    
15.                 s = Split(a(e), "alt=""")(1)
    
16.                 s = Split(s, """ width=""")(0)
    
17.                 .Cells(i, 1) = s
    
18.                 s = Split(a(e), "src=""")(1)
    
19.                 s = Split(s, """ /><br />")(0)
    
20.                 .Cells(i, 2) = s
    
21.                 p = .Pictures.Count
    
22.                 .Cells(1 + (p * 20), "H").Select
    
23.                 .Pictures.Insert (.Cells(i, 2))
    
24.                 i = i + 1
    
25.             End If
    
26.        Next
    
27.     End With
    
28. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# wufonna
¤£¤F¸Ñ³o¿ù»~.(2003 ¥¿±`)

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 ¤~¯à¶]

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

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

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