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

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

ÁÂÁÂ
G¤j
stillfish00 ¤j
§Úªº¤]¬O2010§ï¤F´N¯àRUN
¬O¤£¬O2010ª©ªºÂÎ
ÁÂÁÂ ^0^
2013-09-10_200706.jpg

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

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

TOP

¥»©«³Ì«á¥Ñ wufonna ©ó 2013-9-12 13:16 ½s¿è

½Ð°Ý¦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
¿ù»~
ÁÂÁÂ

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

½Ð°Ý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

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

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

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

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

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD