ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# wufonna
¤£¤F¸Ñ³o¿ù»~.(2003 ¥¿±`)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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 ¤~¯à¶]
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD