Макрос Excel для замены тегов переменными

Question

Я использую приведенный ниже код для замены текста и тегов в экспортированном файле qml.

sTemp = Replace(sTemp, "<CONTENT>", "</CONTENT>")

Но теперь я хочу заменить тег на переменную, как показано ниже:

sTemp = Replace(sTemp, "<CONTENT ID="0">", "<CONTENT ID="0"><![CDATA[")

Я ценю любую помощь.Спасибо

Answer 1

Вашему Replace нужны две строковые части.
Их ограничивающие двойные кавычки должны оставаться такими, как они показаны здесь:

sTemp = Replace(sTemp, "...", "...")

Если вы поменяете каждую ... своими строками, удвойте каждую из их двойные кавычки,
, но оставьте вышеуказанные ограничивающие, как они есть.

Примеры:

Doublequote somewhere in the middle: <CONTENT ID="0">
                                     <CONTENT ID="0"><![CDATA[
sTemp = Replace(sTemp, "<CONTENT ID=""0"">", "<CONTENT ID=""0""><![CDATA[")

---

Doublequote at the end: ID="0"
                        "ID=1"
sTemp = Replace(sTemp, "ID=""0""", """ID=1""") 

---

Double-Doublequote: =IF(A1="you got it","yeah :)","")
Range.Formula = "=IF(A1=""you got it"",""yeah :)"","""")"