標題: 請問如何輸出 " 字元，謝謝 [打印本頁]

---

作者: wufonna    時間: 2019-6-24 10:05     標題: 請問如何輸出 " 字元，謝謝

請教如何輸出如下
<td><img alt=""  src="FS00010.jpg" width="80%" /></td>
<td>test</td>

例如將下的 * 字改成 " ，謝謝
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

---

作者: n7822123    時間: 2019-6-24 11:24

回復 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

---

作者: wufonna    時間: 2019-6-24 11:52

本帖最後由 wufonna 於 2019-6-24 12:03 編輯

回復 2# n7822123

謝謝 大大

改為這樣
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

---

作者: 准提部林    時間: 2019-6-24 14:53

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

---

作者: wufonna    時間: 2019-6-27 21:47

回復 4# 准提部林

謝謝 大大 ， 原來是這樣寫的 ^_^

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)