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

wufonna

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


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

ªº


.
.
.
.


ÁÂÁÂ

wufonna

jakcy1234  cji3cj6xu6  ¤j¤j¡AÁÂÁ±z­Ì
§Ú¬O·Q¥Î
CreateObject("InternetExplorer.Application")
¬O¦p¦ó¥Î
¥H«á­n¥Î¦bµ{¦¡¤¤
¨Ò¦p ¨ú±o
http://xxx.xxx.xxx/........../a.xls
http://xxx.xxx.xxx/..../.../.....o.zip
¦UºØÀÉ®×µ¥
ÁÂÁÂ

wufonna

ÁÂÁÂ G¤j
¤£ª¾ CreateObject("Microsoft.XMLHTTP") ¥i¥H
G¤j±z¦n
¬O¤£¬O§Úªº¨t²Îªº°ÝÃD¡A°õ¦æ®É¦³¥H¤Uªº¿ù»~¡A½ÐG¤j«üÂI
ÁÂÁÂ

wufonna

½Ð°ÝG¤j¡A¬O¤£¬O
.Pictures.Insert (.Cells(i, 2))
ªº°ÝÃD
§Úµù¸Ñ¤F¡A´N¥i°õ¦æ
ÁÂÁÂ

Option Explicit
Sub ¤U¸üºô¸ô·Ó¤ù()
    Dim a As Variant, e As Integer, i As Integer, s As Variant, p As Integer
    With CreateObject("Microsoft.XMLHTTP")
        .Open "get", "http://blog.mjjq.com/archives/1975.html", False
       .send
       a = Split(.responseText, vbLf)
    End With
    With ActiveSheet
        .Pictures.Delete
        .Cells.Clear
        i = 1
        For e = 0 To UBound(a)
            If InStr(a(e), "src=""http://") And InStr(a(e), ".jpg"" /><br />") Then
                s = Split(a(e), "alt=""")(1)
                s = Split(s, """ width=""")(0)
                .Cells(i, 1) = s
                s = Split(a(e), "src=""")(1)
                s = Split(s, """ /><br />")(0)
                .Cells(i, 2) = s
                p = .Pictures.Count
                .Cells(1 + (p * 20), "H").Select
              '  .Pictures.Insert (.Cells(i, 2))
                i = i + 1
            End If
       Next
    End With
End Sub

wufonna

½Ð°ÝG¤j¬O¤£¬O¹ÏÀɤӤj
§Úªº¹q¸£¤£¯à¶]

wufonna

ÁÂÁÂ
G¤j
stillfish00 ¤j
§Úªº¤]¬O2010§ï¤F´N¯àRUN
¬O¤£¬O2010ª©ªºÂÎ
ÁÂÁÂ ^0^

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
¿ù»~
ÁÂÁÂ

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

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
ÁÂÁÂ

wufonna

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