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

½Ð°Ý¦p¦ó¿é¥X " ¦r¤¸¡AÁÂÁÂ

½Ð°Ý¦p¦ó¿é¥X " ¦r¤¸¡AÁÂÁÂ

½Ð±Ð¦p¦ó¿é¥X¦p¤U
<td><img alt=""  src="FS00010.jpg" width="80%" /></td>
<td>test</td>

¨Ò¦p±N¤Uªº * ¦r§ï¦¨ " ¡AÁÂÁÂ
Sub test()
Dim s As String
Dim i As String
i = "FS00010.jpg"

s = "<td><img alt=**  src=*" & i & "* width=*80%* /></td>" & Chr(10) & "<td>test</td>"

Debug.Print s

End Sub

¦^´_ 1# wufonna


Sub test()
Dim s As String
Dim i As String
i = "FS00010.jpg"
s = "<td><img alt=**  src=*" & i & "* width=*80%* /></td>" & Chr(10) & "<td>test</td>"
s = Replace(s, "*", Chr(34))
Debug.Print s
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ wufonna ©ó 2019-6-24 12:03 ½s¿è

¦^´_ 2# n7822123

ÁÂÁÂ ¤j¤j

§ï¬°³o¼Ë
Sub test()
Dim s As String
Dim i As String
i = "FS00010.jpg"

s = "<td><img alt=" & Chr(34) & Chr(34) & " src=" & Chr(34) & i & Chr(34) & " width=" & Chr(34) & "80%" & Chr(34) & " /></td>" & Chr(10) & "<td>test</td>"

Debug.Print s


End Sub

TOP

i = "FS00010.jpg"
s = "<td><img alt=**  src=*" & i & "* width=*80%* /></td>" & Chr(10) & "<td>test</td>"
s = Replace(s, "*", """")
MsgBox s

TOP

¦^´_ 4# ­ã´£³¡ªL

ÁÂÁ ¤j¤j ¡A ­ì¨Ó¬O³o¼Ë¼gªº ^_^

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD